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System/360 Scientific Subroutine Package (PL/I) 
(460A-CM-07X) 


Program Description and Operations Manual 


The System/360 Scientific Subroutine Package (SSP) (PL/I is a 
collection of mathematical and statistical subroutines (or pro- 
cedures) written in the PL/I language. It provides the PL/I user 
with most of the basic capabilities in earlier FORTRAN versions 
of SSP/360. It also has the same basic characteristics as the 
FORTRAN versions, in that it consists of input/output-free 
computational building blocks, written completely in PL/I, which 
may be combined with a user's input, output, or computational 
routines as needed. The package may be applied to the solution 
of many problems in industry, science, and engineering. 


This manual contains sufficient information to permit the reader 
to understand and use all of the subroutines in the Scientific 
Subroutine Package. 
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Note: This programming package has been developed w with the cooperation and assistance 
of IBM Germany and IBM France. 


First Edition (January 1968) 


Significant changes or additions to the specifications contained 
in this publication will be reported i in subsequent revisions or 
Technical Newsletters. 


This edition applies to Version 1, Modification Level 0 of System/360 
Scientific Subroutine Package (PL/I) (360A-CM-07X) and to all 
subsequent versions and modifications until otherwise indicated in new 
editions or Technical Newsletters. 


Changes are continually made to the specifications herein. There- 
fore, before using this publication, consult the latest System/360 
SRL Newsletter (N20-0360) for the editions that are applicable 
and current. 


Copies of this and other IBM publications can be obtained through 
IBM branch offices. Address comments concerning the contents 
of this publication to: IBM, Technical Publications Department, 
1133 Westchester Avenue, White Plains, New York 10604. 
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INTRODUCTION 


The Scientific Subroutine Package (SSP) for Oper- 
ating System/360 PL/I is a set of basic computa- 
tional subroutines intended to help the user develop 
his own PL/I program library. .The user may sup- 
plement or modify the subroutines to meet his needs. 
This package includes a wide variety of subroutines | 
to perform the functions listed below but is not 


intended to be exhaustive in terms of either functions | 


performed or methods used. As with all tools, the 
user should understand their capabilities and their _ 
application to his functional requirements before 
deciding to use them. | 


AREAS OF APPLICATION 


Individual subroutines or a combination of them can 
be used for the general areas listed here. 


Mathematics 


Matrix operations 

Elementary 

Linear equations 

Eigenvalues 

- Polynomial operations 

Orthogonal polynomials 

Polynomial economization 

Polynomial roots 
Numerical quadrature 

Tabulated functions 

Nontabulated functions 
Numerical differentiation 

Tabulated functions 

Nontabulated functions 
Interpolation of tabulated functions 
Approximation of tabulated functions 
Smoothing of tabulated functions 
Roots and extrema of functions 
Systems of ordinary differential equations 
Special mathematical functions | 


Statistics 


Data screening and analysis 
Elementary statistics 
Correlation and regression analysis 
Correlation 
Multiple linear regression 
Stepwise multiple regression 
Canonical correlation 
Analysis of variance 
Discriminant analysis 
Principal components analysis 
Nonparametric statistics 
Distribution functions 


IBM REFERENCE MATERIAL 


System/360 Scientific Subroutine Package 
(360A-CM-03X) Version III eee Ss 
Manual (H20-0205) _ | 


IBM System/360 Seertne System PL/I (F) 
Reference Manual (C28~8201) 


IBM System/360 Operating System PL/I (F) 
Programmer's Guide (C28-6594) 


Preface to PL/I Programming in — 
Scientific Computing (E20-0312) | 


CHARACTERISTICS 


Some of the characteristics of SSP/360 (PL/I) are 
as follows: 
e All subroutines are free of input/output 
statements. 
e All subroutines are written in OS/360 PL/I (F). 
@e Most of the subroutines provide a double- 
precision option. 
e The use of certain subroutines (or eroups of 
them) is illustrated in the program documen- 
. tation by sample main programs with input/ 
output. | 
e All subroutines are documented uniformly. 
An example of a sample main program that uses 
several of the subroutines is the statistical function 
called Principal Components Analysis (FACT). * 
It uses five separate subroutine capes as 
follows: 
e Computation of means, standard deviations, 
and correlation matrix (CORR) 
e Computation of eigenvalues and eigenvectors 
of the correlation matrix (MSDU) 
@ Selection of eigenvalues (TRAC) 
e Computation of factor matrix (LOAD) — 
e Varimax rotation of the factor matrix (VRMX) 
- This is one of the sample main programs 
included in the program documentation. 


*This program performs the same functions as the 
program that was called Factor Analysis in the 
FORTRAN versions of SSP. The name Principal 
Components Analysis more aptly describes the 
function of this program than the name Factor 
Analysis. For a discussion of the distinction 
between Factor Analysis and Principal Components 
Analysis see Section 2.2 of 1130 Statistical System _ 
(1130-CA-06X) User's Manual (H20-0333). | 


REQUIRED SYSTEMS. 


Programming Systems | 


The subroutines are written in the PL/I language; 


using the 48-character set ‘and the facilities pro- 


vided by the PL/I (F) compiler, which ‘functions: 


under Operating System/360. 


Machine Configuration 


A minimum requirement is a System/360 suitable — 
for the OS/360 PL/I (F) compiler. ‘The machine -— 
configuration required for any given problem | 
depends on the number of subroutines used, the 


size of the compiled subroutines, the size of the | 


compiled main program, the size of the control ~~ 
program, and the data storage requirements. 


OVERALL RULES OF USAGE > \ 
GENERAL RULES 


All subroutines in SSP are entered by means of the 
standard PL/I CALL statement. The subroutines 
are purely computational in nature and do not con- 
tain any references to input/output devices. The 
user must therefore furnish, as part of his program, 
the input/output and other operations necessary for 
the total solution of his problem. He must also 
define by DECLARE statements all matrices to be 
operated on by SSP subroutines as well as those’ 
matrices utilized in his program. The subroutines 
contained in SSP are used like any user-supplied 
subroutine. All of the normal rules of PL/I con- 
cerning subroutines must therefore be followed. 
Note that the subroutines have been written using the 
48-character set, so the programmer should be 
familiar with its use. 

_ All variables in the calling program must be 
declared with the proper attributes. Those vari- 
ables appearing as parameters in the call statement 
of the calling program should not have attributes 
conflicting with those of the called program. 

The CALL statement transfers control to the 
subroutine and replaces the dummy variables in 
that subroutine with the value of the actual argu- 
ments that appear in the CALL statement. When 
the argument is an array, the address and size of 
the array are transmitted to the called subroutine. 

The arguments in a CALL statement should agree 
in order, number, and type with the corresponding 
arguments in the subroutine. In SSP, all arguments 
in a CALL statement must be variable names. _ 
Constants are not acceptable. For example, if the 
user wishes to invert a matrix A, which is 10. by 10, 
using the SSP subroutine MINV, and if the constant 
for testing the condition of the matrix is 1078, 
these constants must be defined as variables before 
calling MINV, as illustrated below: 


N =10,. 
CON =1.0E-8,. 
CALL MINV (A, N, D, CON), « 
where D is the determinant. 
Some of the subroutines in SSP require the name 


of a user function subprogram or a PL/ I-supplied 
function name as part of the argument list in the 


CALL statement. If the user's program contains 
such a CALL, the function name appearing in the 
argument list must be declared as ENTRY in the 
user's calling program. 

For example, the SSP routine SBST calls a user- 
supplied subroutine. The user must, therefore, 
prepare a subroutine, with the proper argument 
list, to perform the desired tasks. He must 
declare the name of this subroutine as ENTRY in 
his calling program and supply the name of that 
subroutine to SBST as the appropriate parameter in 
his CALL statement to subroutine SBST. The sub- 
routine SBST need not be modified by the user. The 
dummy argument B in the subroutine SBST is 
replaced by the user! Ss pUunoulne name at execution 
time. 

The following illustrates these procedures: 


SSP Subroutine SBST (need not be altered) — 


SBST.. 
PROCEDURE (A, C, R, B, 8, NO, NV, NC),. 
DECLARE | 
B ENTRY,. 


CALL B (R, TR), . 


RETURN, 
END, . 


User's Calling Program 


USER. 
PROCEDURE OPTIONS (MAnN), ‘ 
DECLARE | 
BOOL ENTRY, 


CALL SBST (A, C, R, BOOL, S, NO, NX, 
NC),. | 


RETURN, . 
END, . 


User's Function Subprogram 


_ BOOL.. 
| "PROCEDURE @, nD, 


RETURN, . 
END, . 
ERROR CODES 


In the Scientific ‘Subroutine Package ‘mo st of the _ 
subroutines use an error indicator to warn the 
user that a certain condition exists. The user, in 
his calling program, should check the error indi- 
cator when returning from a called program. If. 
the user wishes to use the error indicator as an aid, 
he should, in his calling program, declare ERROR 
EXTERNAL CHARACTER(1). In this way he has 
available in the calling program the value of the 
error indicator (ERROR). 

If, in using a subroutine, an error is detected, 
some of the output.areas may contain invalid data. 
Generally, however, output areas are set to appro- 
priate values (for example, zero or + 1075), 


MATRIX OPERATIONS 


Special consideration must be given to the sub- 
routines that perform matrix operations. These 
subroutines have two characteristics that affect the 
size and format of the data in storage: variable 
dimensioning and data storage compression. 


Variable Dimensioning 


Those subroutines that deal with matrices can 
operate on any size array, limited in most cases 
only by the available core storage and numerical 
analysis considerations. The subroutines do not 
contain fixed maximum dimensions for data arrays 
named in their calling sequence. The variable 
dimension capability has been implemented in SSP 


by using the asterisk notation. Under this approach, 


where a called subroutine needs to declare an array 
of the same dimensions as a calling program, the 
dimension specifications are replaced by asterisks. 
Thus, the user does not need to modify the sub- 
routines so long as he has declared adequate dimen- 
sions for arrays in the calling program or main 
program, 

One way to ensure that arrays have sdecnaie 
dimensions for various problems is to declare them 
with variable notations. 


For example, if matrix R | 


- contains intercorrelation coefficients among M 


variables, the DEC LARE statement appears as 


follows: 


DECLARE R(M, M), : 


If M is 10, “ene 100 locations will be allocated fo 
matrix R. | 


If Mis 20, then 400 locations will be allocated. 
automatically. 


Storage Compression 


When working with symmetric matrices it is often . 
advantageous to use a compressed (vector) storage _ 
form. ‘This means that only the upper or lower 
triangular part of the matrix need be stored, which. 
for an N by N matrix reduces the core requirements 
from N2 locations to N(N+1)/2 locations. A sub- 
routine, MSCS, is provided in this package which 
stores a symmetric matrix in compressed form and 
at the same time tests the matrix for symmetry. 
The element stored is the average of each pair of 
symmetric elements of an,n by n matrix Q, i.e., 


Qik + Qi. 4e=1,. 


= . = oy De 
Sik 2 | ee a eee ee 


At the same time the diffe sends Qik _ Qe is - 
tested against a user-supplied tolerance. If this test 
fails, an ERROR indication is given but in any case 
the results Si are supplied in the vector form: | 


Si Be tg a 


S147 Soy 8 31’ “32? "33° °° Pan 


11’ 21’ .~ 22" 
Another subroutine, MSCG, is provided which c con- 
verts this vector (compressed) form back to the ee 
general two-dimensional form. | 

Some of the subroutines of SSP-- for example, 


- MMSS and MAGS-- accept input in this compressed 


form. 7 | 
DOUBLE PRECISION 


The accuracy of the computations in many of the ~ 
SSP subroutines is highly dependent upon the number 
of significant digits available for arithmetic 
operations. Matrix inversion, integration, and 
many of the statistical subroutines fall. into this cate- 
gory. The user may, therefore, wish to use double- 
precision versions of these subroutines. Most of 
the SSP/360 (PL/I) subroutines provide a double- 
precision option. PL/I double-precision statements 


have been included in each of these subroutines in 


the form of a comments card. The double-precision 
version of the subroutine can be obtained by remov- 
ing/* from cc 3 and 4 of the double-precision state- 
ment card(s) and by removing the corresponding 
single-precision cards (or making them comments 
cards) before compilation. The use of double- 
precision subroutines requires a detailed knowledge 
of the PL/I rules concerning double precision. Two 
of the more basic rules are as follows: 
| 1. Any real variable, vector, or array name 
contained in the argument list of a CALL toa 
double-precision subroutine must be declared as 
double precision in the calling program. 

2. Any user-supplied function named in the CALL 
statement for a double-precision SSP subroutine must 
be programmed as a double-precision function. 


FORMAT OF THE DOCUMENTATION 


The major portion of this manual consists of the 
documentation for the individual subroutines and 
sample programs. 


SUBROUTINE DESCRIPTIONS 


Subroutines and sample program guides, both cate- 
gorical and alphabetic, designed to help locate par- 
ticular subroutines are given in the pages that 
follow. 

The subroutine descriptions, in general, consist 
of purpose, usage, remarks, method, mathematical — 
background, programming considerations, and a 
program listing. References to books and peri- | 
odicals will be found under the method section of the 
description. The mathematical description pages 
do not, in all cases, indicate the derivation of the 
mathematics. They are intended to indicate what 
mathematical operations are actually being per- 
formed in the subroutines. 


SAMPLE PROGRAM DESCRIPTIONS 


A sample program, in general, consists of a de- 
scription of the problem, program, input, output, 
program modification, operating instructions, error 
messages, timing, machine listing of the program, 
sample input data, and output results. In some 
cases (for example, as a part of developing the data 
screening sample program) a special sample sub- 
routine has been implemented that may prove useful 
to the programmer. One such subroutine, called 
HIST, prints a histogram of frequencies. The listing | 
of these subroutines is included after the sample 
program documentation in this manual. 

Instructions for modifying the sample programs 
for different data formats are included in the docu- 
mentation. In addition, those sample programs that 
illustrate potentially double-precision subroutines 
include double-precision statements in the form of 
comment cards. These comment cards are contained 
in the sample program source decks. 


' OPERATING NOTES 


It is recommended that those SSP subroutines that 
will be frequently used in an installation be compiled 
and that the relocatable programs be placed on the 
PL/I systems residence device. In the case of | 
Operating System/360, this will be the PL/I library 
portion of the system disk pack. Information on the 
method for updating the system to include user- 
supplied subroutines appears in the appropriate PL/I 
programmer's guide. SSP subroutines are handled 
in the same manner as user-supplied subroutines. 

If the subroutines are not placed in the. PL/I library, 
those required by a particular program will have to 
be included in that program each time itis run. As 
noted earlier, the subroutines have been written using 
the 48-character set. | 
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variable) including fre- 
quencies, over class 
intervals, mean, standard 
deviation, minimum, and 
maximum oh ‘ 
Tabulation of data (two 
variables) 


Page 


153 
159 


163 


167 


172. 


174 — 


177 
180 


181 


182 


183 
184 


185 


187. 


SUBM 


Copying a subset matrix 
that satisfies certain 
conditions from an observa- 
tion matrix 


Elementary Statistics 


MOMN 


TTST 


First four moments for 
grouped data on equal class 
intervals 

Certain t-statistics on the 
means of populations 


Correlation and Regression Analysis 


CORR 


ORDR 


MLTR 
STRG 


CANC 


Means, standard deviations, 
and correlation coefficients 
Selection of submatrix from 
matrix of correlation co- 
efficients for multiple 
linear regression analysis 
Multiple linear regression > 
analysis 

Stepwise multiple linear 
regression analysis - 
Canonical correlation be- 
tween two sets of variables 


Analysis of Variance 


AVAR 


Analysis of variance for a 
complete factorial design 


Discriminant Analysis 


DMTX 


DSCR 


Means and dispersion matrix 


for all groups 
Discriminant functions 


Principal Components Analysis » 


TRAC 


LOAD 
VRMX 


Cumulative percentage of 


eigenvalues 


Factor loading 
Varimax rotation 


Nonparametric Statistics 


KLMO- 


KL M2 


SMIR 


Kolmogorov-Smirnov one- 
sample test 
Kolmogorov-Smirnov two- 
sample test 
Kolmogorov-Smirnov limit- 
ing distribution values 


Page 


190 


191 


192 


194 


196 


197 


200 


204 


206 


209 


210 


213 


214 
215 


218 
221 


223 


CHSQ 


KRNK 
QTST 

RANK 
SRNK 

TIE 


TWAV 


UTST 
WTst 


HTES 


Chi-square test for 
contingency tables 

Kendall rank correlation 
Cochran Q-test 

Rank observation 
Spearman rank correlation 
Calculation of correction 
factor due to ties 
Friedmann two-way analysis 
of variance statistic 
Mann-Whitney U-test 
Kendall coefficient of . 
concordance 
Kruskal-Wallis H-test 


Distribution Functions 


NDTR 


BDTR 
CDTR 


NDTI 


Normal distribution function 
Beta distribution function 
Chi-square distribution 


function 
Inverse of normal distribu- 


tion function 


GUIDE TO SAMPLE PROGRAMS 


Data Screening 


DACR 


Sample main program 


Illustrates use of: 


SBST 


TAB1 


Subset selection from. 
observation matrix 
Tabulation of data (one 
variable) 


Special sample subroutines are: 


BOOL 
HIST 
DAT1 


Boolean expression 
Histogram printing 
Sample data read 


Multiple Linear Regression 


REGR 


Sample main program 


Illustrates use of: | 


CORR 


ORDR 


MINV 
MLTR 


Means, standard deviations, 
and correlations 
Rearrangement of 
intercorrelations 

Matrix inversion 

Multiple regression 


Special sample subroutines are: 


DAT2 
IDTI1 


Sample data read 
Sample binary fixed data 
read 


Page 
224 
227 
229 
230 
231 
233 
234. 


2395 
236 


238 


239 
240 
243 


246 


255 
184 


185 


259 
2909 
209 © 


260 
194. 
196 


44. 
197 


. 2695 


265 


Stepwise Multiple Regression 


STEP Sample main pices 
Illustrates use of: : 
CORR Means, Seandanl dsvistleny, 
- and correlations 
STRG Stepwise multiple 
regression . 
Special sample subroutines are: 
DAT2 . |. ‘Sample data read sub- 
routine | 
IDT2 Sample binary fixed data 
i read 
SOUT Sample stepwise regression 


output subroutine 
Canonical Correlation © 


CANO | Sample main program 


Illustrates use of: 
CORR Means, standard deviations, 
and correlations 
CANC Canonical correlation 
MINV Matrix inversion 
MGDU Eigenvalues and eigen- 


vectors of a special 
general matrix 


MSDU Eigenvalues and eigen- 
: --vectors of a symmetric 
matrix 
Special sample subroutine is: . 
DAT2 Sample data read 


Analysis of Variance 
ANOV Sample main program 


Illustrates the use of: ao 
AVAR Analysis of variance 


Special sample subroutine is: 


DATS | Sample data read 


Discriminant Analysis 


MDSC Sample main program » 
Illustrates the use of: _ 

DMTX Means and dispersion matrix 

MINV Matrix inversion 

DSCR _ Discriminant analysis 
Special sample subroutine is: 


DAT2 Sample data read 


10° 


Page 


Principal Components ene’ 


281 — 


Page 


281 

194 
69 

213 


214 
215 


286 


286 


218 


221 


223 


239 


(291 


152 


293 


294 


sat , 


~ 39 


965 FACT | Sample main program 
_ Illustrates the use of: : 
194. CORR Means, standard deviations, 
| and correlations | | - 
200 MSDU Eigenvalues and eigen- 
vectors of a real symmetric 
matrix _ 
270 TRAC | Cumulative percentage of 
| eigenvalues 
970 LOAD Factor loading - 
VRMX - Varimax rotation 
270 Special sample subroutine is: | 
DAT2 Sample data read 
Sa SC eel Test. 
27 0 KOLM | sampie main program 
| Illustrates the use of: 
194. KLMO | _. One sample test. 
KLM2 Two sample test 
204. SMIR Kolmogorov-Smirnov limit- 
44. | -. ing distribution function 
71 NDTR . Normal distribution function 
Triple Exponential Smoothing . 
69 , 
EXPN Sample main program 
Illustrates the use of: 
_EXSM Triple exponential smoothing 
274 Special sample subroutine is: : 
, DATS Sample data read 
Allocation of Overhead Costs 
274 | be 
| COST Sample main program 
. Illustrates the use of: 
3 06 MFG Matrix triangular factoriza- 
| tion 
077 MDLG Division by triangular © 
matrices ; 
ei 
209 
44 
210 


ALPHABETIC GUIDE TO SUBROUTINES AND 
SAMPLE PROGRAMS, WITH STORAGE 


REQUIREMENTS 


The following table lists.the number of bytes of 


storage for the program control section required by 


each of the subroutines in the Scientific Subroutine 


Package. The storage requirements were obtained 


by using Version 4 of PL/I and Release 16 of OS, 
The use of other versions and releases may cause 


. deviations from these figures. 


The double-precision version storage require- 


ments of the subroutines in the Scientific Subroutine 


Package are included in parentheses. 


Name 


ABST 
ACFM 
ACFE 


AHIE 
ALIM 
ALIE 
ANOV 
APC1 
APC2 
APLL 
ASN 
AVAR 
BDTR 
BOOL 
BOUN 
CANC 
CANO 
CDTR 
CELI \ 
CEL2 
CHSQ 
CORR 
COST 
DACR 
DATI 
 DAT2 
DAT3 
DERE 
DET3 
DET5 
DFEC 
DFEO 
DGT3 
DMTX 
DSCR 
ELI1 \ 
ELI2 - 
EXPN 
EXSM. 


} | 
— 


Math. Description 
Page Number 


183 
126 
126 
122 
122 
118 
118 
274. 
140 
140 
139 
143 
206 
240 
259 
182 
204. 
270 
243 
172 
172 
224 
194 
294 
255 
259 
265 
277 
167 
108 
110 
112 
115 
107 
209 
210 
174. 
174 
291 
152 


Storage Required 


Bytes 
610 
2,826 (2,696) 


2,946 (2,950) 


2,306 (2,310) 


4, 482 
1,766 (1,766) 
986 (986) 


1,902 (1,874) 
4,174 (4,174) 
8, 830 
266 
1, 102 
4,718 (4,718) 
5,478 
3,962 


858 (854) 


3, 882 
4,352 (4, 408) 
3,206 
4,294 
1,098 
1,098 
850 
2,762 (2,738) 
658 (658) 
890 (890) 
1,142 (1,142) 
1,118 (1,118) 
894 (894) 
2,498 (2,510) 
8,090 (3,110) 


1,458 (1, 454) 


2,430 
1, 030 


Name 


FACT 
FFT 
FFTM 
FMFP 
HIST 
HTES 
IDT1 
IDT2 
JELF 
KLMO 
KLM2 
KOLM 
KRNK 
LGAM 
LOAD 
MAGS 
MATE 


 MATU 


MDLG 
MDLS ' 
MDRS 
MDSB 
MDSC 
MEAT 
MEBS 
MEST 
MFG 
MFGR 
MFS 
MFSB 
MGBI1 } 
MGB2 
MGDU 
MIG 
MINV 
MIS 
MLSQ 
MLTR 
MMGG 
MMGS 


MMGT | 


MMSs 
MOMN 
MPRM 
MPIT 
MSCG 
MSCS 
MSDU 


MSTU 


MTPI 


Math. Description 
Page Number 


281 
129 
134 
153 
259 
238 
265 
270 
177 
218 


221 | 


286 
227 
180 
214 
14 
56 
a8 
39 
35 
35 
37 
277 
61 
66 
63 
23 
29 
20 
27 
A9 
49 
71 
40 
AA. 
42 
45 


197 


15 
17 
18 
16 
191 
19 
21 
14 
13 
69 
59 
20 


Bytes 


7,116 
3,166 (3, 166) 
4,040 (4, 040) 
4,174 (4,040) 
2,674 
1,122 

614 

614 
1,270 (1, 270) 
2,010 


1,998 


6, 828 
2,010 
750 
666 (666) 
688 (638) 
1,706 
1,918 
1,314 


1, 426 (1, 414) 


1,202 (1, 186) 

6,482 

5, 638 

1, 066 

1,890 

1,882 (1, 858) 

2,730 (2,714) 
886 (874) 

1,158 (1, 142) 


3,562 (3,550) 


2,274 (2,274) 
1,894 (1, 858) 
3,014 (3, 014) 
1,198 (1, 182) 
3,622 (3,558) 
2,098 (2, 098) 


1,078 (1, 078) 
730 
474 (474) 
626 (626) 
8,588 (3,538) 
2,426 
674 


Storage Required 


630 (622) 
1, 062 (1, 058) 
858 (846) 
718 (710) — 
2,078 
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Math. Description 


Storage Required 


Math. Description 


Storage Required 


Name Page Number _ Bytes Name Page Number Bytes 

MVAT 72 5,782 QL2 101 362 (354) 

MVEB 76 1,294 QL4 101 510 (490) | 

MVST 67 3,254 QL8 101 398 (398). 

MVSU 74 1,182 QL12 101 402 ~(402)~ 
_ MVUB 75 1,518 — QLI6 101 : 402 (402) 
NDTI | 246 834 QL24 101 | 8398 (3894) 

NDTR 239 450 ' QSF 93 | 710 = (710) 

ORDR 196 1,238 (1,238). QTFG } 92 zs : 

oe ie 2,082 (2,090) IEE ie oe 

PTC , 81 : - QTST 2.29 | «1, 462 

POST 86 1,322 (1, 322) RANK 230 | 962 

POSV | 78 798 (790) REGR 260 7,980 

POV 77 722 (714) RTF 159 1,878 (1,882) 

PRTC 87 2,686 (2,718) RTFD 163 1,762 (1,762) 

QA2 105 362 (354) SBST 184 1,562 

QA4 105 510 (490) SE13 

QA8 105 898 (898) SG13 } sl fee ee 

QA12 105 402 (402) SEI5 149 730 (730) 

QAI16 105 402 (402) SE35 150 774 (774). 

QA24 105 898 (394) _ SMIR- 923 710. = 

QATR 97 3 1,318 (1,318) SRNK 231 1,558 

QG2 99 422 (422) SOUT 270 7 3,458 

QG4 99 . 574 (554) STEP 265 5, 494 | 

QG8 99 584 (526) STRG 200 4,914 (4,950) 

QG16 99 588 (5380) SUBM 190 790 
—QG24 99 538 (530) TABI 185 2,642 

QG32 99 588 (530) TAB2 187 4,894 

QG48 | 99 530 (522) TALY gi 2,090 

QH2- 103 346 (342) TIE 233 926 , 

QH4. 103 474 (466) TRAC 213 818 (818) 

QH8 103 454 (450) TTST | 192 2,562 7 

QH16 103 458 (454) TWAV 234 1,562 

QH24 103 458 (454) UTST : 235 1,302 

QH32 103 458 (454) VRMX 215 3,970 (38, 852) 

QH48 3 103 450 (446) WTST 236 1,986 

QHFG 94 | 

QHFE 94 

QHSG oA 1,178 (1,178) 

QHSE 94 
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SUBROUTINE DESCRIPTIONS AND LISTINGS 
MATHEMATICS - 

Matrix Operations 

Elementary Operations 


e Subroutine MSCS 


MSCS. | MSCS 
TERK MM BM HN BR HH I RR EKEERREKE KA EKEKKKAEKRRKKEKKE/MSCS 
re | #/MSCS 
1% CONVERT THE STORAGE ALLOCATION OF A SYMMETRIC MATRIX */MSCS 
fx FROM A TWO-DIMENSIONAL ARRAY TO A LINEAR ARRAY */MSCS 


/* */MSCS 
paeedaba yes nbaule cs dehueks eck cv ace suas ceaunekebeanwecessueleunedseen ucce 
PROCEDURE (On Ny EPS 9S) y. MSCS 

- DECLARE MSCS 
(0) *) pEPSy SUH) QL, 029M) ; . MSCS 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MSCS 

/* BINARY FLOAT(53)» /*DOUBLE PRECISION VERSION /*0*/MSCS 
(NyI,KyL) BINARY FIXED, MSCS 

ERROR EXTERNAL CHARACTER(1)y- —. . MSCS 
/*PRESET ERROR INDICATOR ®/MSCS 

MSCS 

/*TEST SPECIFIED DIMENSION */MSCS 

THEN DO I =1 TO Ny. . . MSCS 
DO K =1 TO I¢. A A MSCS 

tL  =Ltl,. MSCS. 

Ql =QUT4K)y. /*REPLACE QL BY QUIyK) .  -&/MSCS 

Q2  - =Q(KyT)y. /*REPLACE Q2 BY O(KyI) */MSCS 

SCL) »M=(Q14Q2) #0055. /*SET RES. S(L) =(Q1+Q21/2° = */ MSCS 

IF ABS(Q1-Q2) GT /*TEST FOR SYMMETRY OF Q " */MSCS 
EPS#MAX(1,ABS(M)) MSCS 

. THEN ERROR="S"y..  .. . #*Q IS. NOT. SYMMETRIC -. . */MSCS 

END». MSCS 

END). MSCS 

ELSE ERROR='D',. /*ERROR IN SPECIFIED DIMENSION */MSCS 
ENDy. /*END GF PROCEDURE MSCS */ MSCS 


Purpose: 


MSCS compresses the storage allocation of a sym- 
metric two-dimensional matrix to a one-dimensional 
array. | | 


Usage: 
CALL MSCS (Q, N, EPS, S); 


BINARY FLOAT [(53)] | 
Given N by N symmetric matrix, 

N - BINARY FIXED | 

Given order of matrices Q and s. 
BINARY FLOAT: [(53)] 

Given relative tolerance for test on 
symmetry. | 

S(N*(N+ 1)/2) - BINARY FLOAT [(53)] 

Resultant symmetric matrix in one- 
dimensional compressed form. 


| Q(N, N) - 


EPS — 


Remarks: 


If no errors are detected in 1 the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

that may be detected: 


ERROR='D' means N is less than 1. 





ERROR='S' means given matrix Q does not pass 
the specified symmetry test. Nonethe- 
less, all of the elements Sj, are com- 
puted as shown below and stored in S. 


Method: 
in | 
ik * Sei | | 
Sie ag for b= 1 Bon 
: k=1,...,i 
Symmetry-test: 


Qik ~ Q_j must be absolutely less than 
Max (1, IQki — * EPS 
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@ Subroutine MSCG 


MSCGe ao '  MSCG 
[ek Rt HEH AE HHH HRHHHHSEREEAEERES SORES SRA EKHOR SE EREE SEES ES EEEHHE/NSCS 
18: . */MSCG 
/* CONVERT THE STORAGE ALLOCATION OF A SYMMETRIC MATRIX */MSCG 
-FROM A LINEAR ARRAY TO A TWO-DIMENSIONAL ARRAY */MSCG 

*/MSCG 

Rarer esettrtrrt ret ier Rei toto eying nob dof teak teat ict ioiaioi  ibiea g tte tot ttt i 7 MS CG 
PROCEDURE(SyNyQ)y. MSCG 
DECLARE Se MSCG 
(S0*),Q0%,*)) MSCG 

BINARY FLOAT, /7®SINGLE PRECISION VERSION /*S*/MSCG 

1%: BINARY FLOAT(53), /7*DOUBLE PRECISION VERSION /#0*/MSCG 
{NyIyKeL) BINARY FIXED). MSCG 

L =O9. MSCG 

IF N GT O 7*TEST SPECIFIED DIMENSION */MSCG 

DO I=L TON,.. MSCG 

DO K =1 TO Ig. x: MSCG 

L =L+l, _ MSCG 

QU Ly K) sQ(KsL)=S(L) 90 


' /*STORE Q{1,K) AND Q(KyT) */MSCG 
END,. MSCG 

a MSCG 
/*END OF PROCEDURE MSCG */MSCG 


Purpose: 


MSCG expands the compressed one-dimensional 
storage allocation of a symmetric matrix to general 
two-dimensional form. 


Usage: 
CALL MSCG (8S, N, Q); 


S(N*(N+1)/2) - BINARY FLOAT [ (53) J 
Given one-dimensional array 
representing a symmetric N by N 
matrix in compressed form. 
N - BINARY FIXED 
Given order of matrices S and Q. 
BINARY FLOAT [(53) ] 
Resultant two-dimensional general 
representation of given symmetric 
matrix S. 


Q(N, N) - 


Remarks: 


Operation is bypassed in case of a nonpositive value 
of N. The elements of given S are assumed to be 
stored in compressed form -- that is: 
ir Sa17 See Pair Sga° Sgr 
S_) | 
nn : 


re Sav mes 
Method: 
For the elements of resultant Q: 


=§ for i 


Qi = SG = Six oe 


ii 
a 


beige wag i 
2 


poeegl 
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e Subroutine MAGS’. 


MAGS... , MAGS 104$ 
(DRO i oi odo oi aida iiok i toidok st todo tor tor kaa ERE SMAGS 25 f 
/* E/MAGS 36] 
/* AOD OR SUBTRACT A SQUARE AND A SYMMETRIC MATRIX. .- . ot */MAGS 40 
/* y #/MAGS = 5C 
/DUR EI a ai ia io tok iui i iak dak ale totoiici lotto tolokioctare JMAGS 60 
PROCEDURE(A,ByNeOPTsC) 9. MAGS 70 
DECLARE MAGS 80 
(AC #,*) 4B (0%) 90 (*,*) pALy BL) . MAGS 90 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MAGS 100 


/* BINARY FLOAT(53)y /*DOUBLE PRECISION VERSION /*D*/MAGS 110 

(Ny TsKelyLI) BINARY FIXED, MAGS 120 

: OPT CHARACTER(1) 4. MAGS 130 

IF N GT O /*1S N GREATER THAN ZERO */MAGS 14C 

THEN 00,7. MAGS 150 

LIyI =ly. MAGS 160 

NEXTI.. - 3 MAGS 170 

OK =ly. MAGS 190 

NEXTKe. a MAGS 200 

- AL . .SACT#K) 96 /*REPLACE AL BY A(IyK) */MAGS 216 

BL =B(L)y. ; /*SET BL CORRESPONDING TO AL ¥*/MAGS 220 

-IFK LTT 2 < MAGS 230 

- THEN L =L+ly. MAGS 240 

_ ELSE L °° =L+Ky. ' ° MAGS 250 

TF OpT="2¢ /*SHOULD A-B BE CALCULATED */MAGS 260 

THEN BL =-BLy. /*THEN CONVERT SIGN OF BL */MAGS 270 

ELSE IF OPT="3! /*SHOULD B-A’ BE CALCULATED — */MAGS 280 

THEN AL =~ALy. /*THEN CONVERT SIGN OF AL */MAGS 290 

C(TyKI=AL+BLy. 7 /*SET RESULTANT C(I,K) TO AL+BL*/MAGS 300 

IF K LT N “MAGS 310 

-°, THEN 00). /*INCREMENT K— " */MAGS 320 

fs K ‘=Ktloe- MAGS 330 

GO TO NEXTKy. MAGS 340 

— -ENDe MAGS 350 

- €LSE IF I LT N it MAGS ‘360 

‘THEN 00,. /*INCREMENT I */MAGS 370 

LI =LItI,. MAGS 380 

I =I+ly. MAGS 390 

GO TO NEXTIy. MAGS 400 

END, . : MAGS 410 

END,. ‘ : MAGS 420, 

' ENDy. /*END OF PROCEDURE MAGS */MAGS 430, 
Purpose: 


MAGS computes C=A+Bif OPT ='1' 
C=A -B if OPT = '2! 
C=B-A if OPT ='3! 


for given matrices A and B which are general and 
symmetric respectively. 


Usage: 
CALL MAGS (A, B, N, OPT, C); 


BINARY FLOAT [(53) ] 

Given general N by N matrix. 
B(N*(N+1)/2) - ~ BINARY FLOAT [(53)] 

Given one-dimensional array con- 
taining the lower triangular part of 
‘symmetric matrix B stored rowwise 
in compressed form. 


A(N, N) - 


N - - BINARY FIXED | 
we Given order of matrices A, BandC. 
OPT - CHARACTER(I1) © 
Given option for selection of opera~ 
tion. 


C(N,N)- BINARY FLOAT [(53)] 
| | - Resultant general N by N matrix, 


which may be overlaid with A. 
Remarks: | 
Operation is bypassed in case of a nonpositive value 


of N. A value of OPT different from '2' and '3' is 
treated as if it were '1'. 


Method: . 


The sum or difference of matrices A and B is 
calculated elementwise. The elements of the sym- 


metric matrix Bare accessed only once. 


me 





e Subroutine MMGG 






OO N =1 TO Ly. 


THEN GO TO NEXTJo. 


Purpose: 


MMGG computes the standard matrix product 
C = Ae B, 


Usage: 
CALL MMGG (A, B,. K, L, M, C); 
A(K, L) - BINARY FLOAT [(53) ] 


Given K by L matrix A (left-hand factor) 
B(L, M) - BINARY FLOAT [(53) ] 


Given L by M matrix B (right-hand factor). 


K - BINARY FIXED . 7 
Given row dimension of A and C. 
L- BINARY FIXED 


Given column dimension of A and row 
| dimension of B. 
M - BINARY FIXED 
Given column dimension of B and C. 
C(K, M) - BINARY FLOAT [(58) ] 
Resultant K by M product matrix. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 

ERROR='D' means errors in specified dimen- 
sions K, L, M. Accumulation of scalar products 
is performed in double-precision arithmetic. C 


-must be different from A and B. 


MMGG.. aye ee ete $f ang ° at -" - MMGG!- 
LEEK Ae EO RGGI OK OIG GG ORE aaa Rai a Sao ited tok io tok tok J MM GG 

/* * a ne, me . - ' . . i ee . pe ua a ; ae S pe bos : 9 */MMGG, F 
/* MULTIPLY TWO GENERAL MATRICES * /MMGG 
/* . get |. */MMGG | 
(3 RIO tok tata Sk kk OOO IO aot iol ici io aorta doktor tok J MM GG 
PROCEDURE(AyByKyL yMeC) ye MMGG 
DECLARE MMGG 
CAC) BU, HD CU, DD MMGG 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MMGG 100 

1% BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/MMGG 110 
S BINARY FLOAT( 53), MMGG 120 

(Xebe Mele JyN) MMGG 130 

BINARY FIXED, MMGG 140 

ERROR EXTERNAL CHARACTER(1):. MMGG 150 
ERROR='D',. /*PRESET ERROR INDICATOR */MMGG 160 

IF K GT O /*TEST SPECIFIED DIMENSIONS */MMGG 170 
THEN IF L GT 0 MMGG 180 
THEN IF M GT 0 MMGG 190 
THEN OC,;. MMGG 200 

I =Co.e MMGG 210 

NEXTI..» /*COMPUTE THE I-TH ROW OF C */MMGG 220 
I =Itly. MMGG 230 

=0,. MMGG 240 

NEXTJee /*COMPUTE THE J-TH ELEMENT */MMGG 250 
J =J¢l,. MMGG 260 

S =O96 MMGG 270 


/*PERFORM SCALAR PRODUCT */MMGG 280 
S =S+MULTIPLY(CACT YN) s MMGG 290 

% BINyJ)},53),. MMGG 300 

END. MMGG 310 
C(IT,J)=S1.~ /*STORE RESULTANT C(I,J) */MMGG 320 
IF J LT M MMGG 330 
/*INCREMENT J */MMGG 340 
ELSE IF I tT K MMGG 350 


THEN GO TO NEXTI+. /*INCREMENT I */MAGG 360 
ERROR="O',. /*SUCCESSFUL OPERATION */MMGG 370 
END,. MMGG 380 


ENDy. /*END OF PROCEDURE MMGG */MMGG 390 
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_ Method: | -_ hoa . ae Se ih 7 @ Subroutine MMSss 


: Standard multiplication n means that the element C, ile ;. (ee Seis : = 


. he ¥ d t f the ith f A ith th [AeCLbneNSeReSNRAnKAKERAEASRNSEKEREEASSESOSAESNORNENEEEEHEHEEESAOEEEE/HNSS 
- w - - | — *«/MMSS 
: i : e ACB, [ Bro - o - i 79 2 : “MULTIPLY TWO SYMMETRIC MATRICES STORED IN LINEAR ARRAYS: */MMSS 
| | */MMSS 

nies column of B. mn ie a a _ [SESE REERSRR SAE AAHES SRAHEEE EA SEAEH IE SHAA ESR AHARERE SEER AS AHREEEESTA/ ANS, : 


: PROCEDURE(AsBsNy PIs. ; MMSS 
DECLARE Sane # MMSS 
(A(#)sBU") PLR, *)) MMSS 

- BINARY FLOAT, 4*SINGLE PRECISION VERSION /*S*/MMSS 
Ve _ BINARY. FLOAT(53),_ . /*D0UBLE PRECISION VERSION /*D*/MMSS 
_S BINARY FLOAT(53)¢. MMSS 

(NyL Lgl 2elLT oh Kel Kod) MMSS 
BINARY FIXED,. - ee MMSS 

GT 0 MMSS 

1. 00,. a -MMSS 
‘UleT Flee , MMSS 

. . . MMSS 

LKyK =loee | ; ; . MMSS 

: - MMSS. 

tLe. : ‘ : MMSS 

=LKee MMSS 

aOe6e /*COMPUTE VECTOR PRODUCT OF TWO*/MMSS 

00 J sl TO Ny. /*CORRESP. SUBARRAYS OF A AND 8*/MMSS 

S SSHMULTIPLY(ACLL) ¢° 6 MMSS 

BIL2) 253) 96 | = MMSS 

TF JLT I . MMSS 

THEN Ll ‘eLi+l,. MM4SS 

“ELSE 11 FL1L+Jee ; MMSS 

IF JLT K MMSS 

THEN L2 SL2+tlye , MMSS 

ELSE L2 =EL2+J5e0 MMSS 

END: MMSS 

PCT KI=So6 7*STORE RESULTANT ELEMENT OF P */MMSS 


/J*INCREMENT K 
Sh Kt+Kye 
=Kely. 
GO Ta NEXTKse 
END,. 
IF I LT N 
/*INCREMENT I 
HLI+Iy. 
alt]. 
GO TO NEXTI>. 
ENDy. 


/*END OF PROCEDURE MMSS */MMSS 





Purpose: 


MMSS computes the standard product P= A-~ B of 
two symmetric matrices. 


Usage: 
CALL MMSS (A, B, N, P); 


A(N*(N+1)/2) - BINARY FLOAT [(53) ] 
| Given symmetric N by N matrix, 
stored in compressed form (left- 
hand factor). 
B(N*(N+1)/2) - BINARY FLOAT [(53)] 
_ Given symmetric N by N matrix, . 
stored in compressed form (right- 
hand factor). 


N - | BINARY FIXED 
| Given order of matrices A, B, P. 
P(N, N) - BINARY FLOAT [(53) ] 
| Resultant N by N general product 
matrix. 
Remarks: 


Operation is bypassed in case of a nonpositive value 
of N. The symmetric matrices A and B must be 
stored in compressed form. Accumulation of 
scalar products is performed in double-precision 
er etie. 
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Method: e Subroutine MMGS | : 


Standard multiplication means that the element Pj, MMGS.n : ; ere ae oe Bape 

jesevaeeeeannonentanenabetesiaenenaubesensnnenannsntnasuansenesashens/HnGs 
| i~ i #7 NAGS 
is the scalar product of the i-th row of A with the ee eee re “eyacs, 


*/MMGS 
k-th column of B. : : [ RAREHRARER AREER DR SER AERONSREROR AREER ATE RATAEEAMA AH OARS E HERD AEHRE/ HN GS 
ook PROCEDURE(G)SsMyN ,OPT)». no MMGS 
DECLARE ; é "  MMGS 
(GU, #) S08) HIMAKINGMD DD '  MMGS- 
BINARY FLOAT, /*SINGLE PRECISION VERSION: /*S#/MMGS 
/* BINARY FLOAT(53), ; /*0DUBLE PRECISION VERSION /*0*/MMGS 
T BINARY FLOAT(53), a _MMGS | 
(My NyMMeNNo Lode Ky Le LE sLUyRNyCN) poe wee pS cg MMGS © 
BINARY FIXED a mY ae. .  MMGS 
(OPT,ERROR | EXTERNALICHARACTER(1) 9. MMGS 
=Noe 7*SET NN TO NUMBER oF GOLUMNS: #/7MMGS 
Mee oa pre MM TO NUMBER OF ROWS DF G*/MMGS 
ERROR='D"y, /*PRESET ERROR INOICATOR #/MMGS 
IF NN GT O ! "  *  PRTEST SPECIFIED. OIMENSIONS -. */MMGS '19C 
THEN TF MM GT O. _MMGS | 
THEN DOy. © : 5 MMGS 
IF OpTsé2¢ -  °  MMGS 2 
THEN DOs. | . 7*IN CASE OF MULTIPL « S*G = */MMGS 
NN SHMge 0 .  VRINTERCHANGE NN AND MM -- #/7MAGS 2 
MM Nga MMGS 
END) 4 *% | NGS 
=Ovs - MMGS 
a | as . . SMGS: 
RN CNyeKoK+ly« MMGS | 
00 I =1.TO NNoe /#REPLACE H(*) BY CURRENT ROW. */MMGS 
IF OPT="24 & /*RESP. COLUMN VECTOR OF G */MMGS 
THEN RN =Iye MMGS . 
ELSE GN HTee. ; i MMGS 
HIT) =GCRNOCN) 96 . _ MMGS : 
END» «. os 7 . - MMGS 350 
L ahy e. : MMGS 
NEXTI.. 7*FDR CURRENT ROW “RESP. COLUMN */MMGS 
b- “shige 4. _ /*VECTOR COMPUTE I-TH ELEMENT #*/MMGS 
HCy. MMGS 
DO J =1 TO NNo. 7 *PEREORM SCALAR “PRODUCT | ' #7 MNGS 
os =ST#MULTEPLY(HIJ) > MMGS | 
SULLY S30. - : MMGS 
If. J ott Le MMGS 
THEN -L HLtlee 4 MMGS 
ELSE L SLtly. : MMGS 
«END». MMGS 
IF OPT="2¢ Ay ites SPECIFIED MULT IPLIGATIGN®/MMGS 
THEN RN 2196 or MMGS 
ELSE CN =I. | MMGS 
GIRNeCNI=T). oo / *STORE aesultanr ELEMENT: #7 MMGS 
Li o=tftely. | | MMGS 
I =l4ly. MMGS 
IF I LE NN - ts : MMGS 
THEN GO TO NEXTI 9. - /*INCREMENT I "8/7 MMGS 
ELSE IF K LT MM MMGS 
THEN GO TO NEXTKye /*INCREMENT K_ */MMGS 5 
ERROR='0t,. /*SUCCESSFUL OPERATION */MMGS 
END». MMGS 
/*END OF PROCEDURE MMGS */MMAGS 





Purpose: 


MMGS calculates G+ S if OPT="1' 
Gif OPT=!2' 
where G is a general and S a symmetric matrix. 


Usage: 
CALL MMGS (G, S, M, N, OPT); 


GM, N) - BINARY FLOAT [(53)] 
Given general M by N matrix. 
Resultant product matrix G:S§ or 
s°G. 
7 S(dimension) - -~BINARY FLOAT [ (53) ] | 
| Given. symmetric N by N or M by M 
matrix stored in compressed form in 
a one~dimensional array, lower tri- — 
angular part: rowwise. 


M ~ — - BINARY FIXED 
Given row dimension of matrix A. 
N - BINARY FIXED | 
oo. Given column dimension of matrix A. 
OPT- «CHARACTER (1) | 


Given option for selection of operation. 
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Remarks: | | a — a A e Subroutine MMGT 


~ Tf no errors are detected in the processing of data, eo a en a 2 a rt: a ee ee 
e the error indicator, ERROR, is. set to Zero ; The : LQaeninNnenenenansenenenentnneseneeAtetANONattENeROtANONANGESngen/HNGT 
ek MULTIPLY A GENERAL MATRIX WITH ITS TRANSPOSE : */MMGT 
ae following constitutes the. possible, error condition | : SS MMGT 
, » FRASER TR EGAN NOREEN AACE CAG 
. ; PROCEOURE(AsM,NyOPT+S) 9. 

. that may be detected: eee | _. wgeee 
: “CAC, *) 7S 0%) ) MMGT 

ERROR ='D! means errors in specified dimen- BINARY FLOAT, _ /*SINGLE PRECISTON VERSION /*S/MNGT 

: . BINARY FLOAT(53), /7*DOUBLE PRECISION VERSION /*D*/MMGT 

_ sions M, N. Any value of OPT different from 12" is r SENARY FLOAT(S3), " HNGT 
: treated as if it were'l', : BINARY FIXED acre | | MNGT 
; (OPT,ERROR EXTERNAL) CHARACTER(1),. MMGT 
ae @ Scalar products are accumulated i in double- i a Gace 
on ; ed wi dee 5) : ERROR='D' 4. . /*PRESET ERROR [NDICATOR */MMGT 
Precision arithmetic. . IF II GT O /*TEST SPECIFIED DIMENSIONS = */MMGT 

; : THEN IF JJ GT O MMGT 
THEN O0O,. MMGT 

Oa 3 7 ; a ay IF OPT="2!' /*CHECK SPECIFIED MULTEPLIC.-  */MMGT 
Fee ° wes an a THEN DQ,. MMGT 
Method: ms eek : a JJ ETD ye /*INTERCHANGE II AND JJ IN CASE*®/MMGT 

; - _ If =Nee _ ¢*QF PRODUCT TRANSPOSE(A)*A */MMGT 
ice em ee ENDy. MMGT 
* e e e e “ oh i H1lye MMGT 
Standard multiplication is performed; the general’ a HNGT 

ae ' i K =1ly. MG 
i product ‘is generated in the storage locations ae maGr 
ae If opT="2¢ / ECIFIED M , MGT 
io ecevpicd by G. ; . . oo THEN DC r =1 TO Judy. eT RANSPOSECA) #A 1S. PERFORMED */MMGT 


T - =T#MULTIPLYC ACT)» MMGT 
‘A(S9K) 9 53) 96 MMGT 
END». MMGT 
DO J =1 TO Joe /*®A*TRANSPOSE(A) IS PERFORMED */MMGT 
T  —- =THMULTIPLYCA(T 9 J)» MMGT 
A(K yd) 953) 96 MMGT 
END». MMGT 
=T 9. /*STORE RESULTANT ELEMENT S(L) */MMGT 
sl+l,. MMGT 
LT I MMGT 
DOr. /*INCREMENT K */MMGT 
K res ee MMGT 
GC TG NEXTKy. MMGT 
END». MMGT 4 
[IF 1 LT IL MMGT 
DO,. /*INCREMENT I */MMGT 
I =Itly. MMGT 
GC TC NEXTIy. MMGT 
_ END: « MMGT 
Exsge=tcr,, /*SUCCESSFUL OPERATION */MMGT 
END, . MMGT 
/*END OF PROCEDURE MMGT */MMGT 





Purpose: 


MMGT calculates A* Al if OPT='1!' 
Al - A if OPT ='2! 


Usage: 


CALL MMGT (A, M, N, OPT, §); 


A(M, N) - BINARY FLOAT [(53) ] 
| Given M by N matrix. 

M - BINARY FIXED 
Given row dimension of A. 

N - BINARY FIXED 
Given column dimension of A. 

‘ OPT - CHARACTER(1) | 
| i Given option for selection of 

operation 


S(dimension) - BINARY FLOAT [(53) ] 

ee a ee | Resultant symmetric product matrix, 
eg eae ae stored in compressed form in a 

ce re : one-dimensional array. 

Dimension is M: (M+1)/2 if OPT='1!' 

and N: (N+1)/2 if OPT='2!, 
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Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 

ERROR='D!' means errors in specified dimen- 
sions M, N. Any value of OPT different from '2' is 
treated as if it were 'l'. | 

Scalar products are accumulated in double- 
precision arithmetic. 


Method: 


Standard multiplication is performed; A ° At igs 
symmetric M by M, while Al. Ais symmetric 
N by N. | 


e Subroutine MPRM 


MPRM.. 


MPRY 


J TAEHKKARAKKASEASEAREEKSSEAKKEKAAE KKKKEKERERERKKREREKKMKKKSESSKKKE KES KKEKAEBW/ MP RM 


1% 


/* PERMUTE THE ROWS OR, IF SPT = *C*, THE COLUMNS OF A 


/* MATRIX 
/* 


*/MPRM 
*/MPRM 
*/MPRM 
*/MPRM 


JRE EEOH RE TERT ESAS ASA KTRASR AS EA ASAAE SKRAEAKKAKSHERE SARE SAEKE REE EERE RESSUP RM 
PROCEDURE(AyMyNyT sOPTyINV) 5p MPRM 


CECLARE 


MPRM 


(AC *,*),AJ) MORM 


BENARY FLCAT, | 
BINARY FLGAT(53), 
(MsN,TO*) EE eTl ole JeLAsDI,IT) 


/*SINGLE PRECISION VERSION /*S*/MPRM 


MPRM 


BINARY FIXEC, ' MPRM 
(OPT, INVyERRGR EXTERNAL) CHARACTER(L) 96 MPRM 


ERRGR='D*y. 
IF MGT C¢ 


THEN IF N GT C 


THEN Of,. 


/*PRESET ERROR INDICATOR 
/*TEST SPECIFIED DIMENSIONS 


*/MPRM 
*/MPRM 
MPRM 
MPRM 


ERSCR="C%,, MPRM 


IF CPT='C! 


THEN IE 
ELSE I€ 


/*IF COLUMNS SHOULD BE MOVED 
=Nee /*SET IE TO NUMBER OF COLUMNS 
=Mye : /*RESP. NUMBER OF ROWS IF NOT 


*/MPRM 
*/MPRM 
*/MPRM 


IT =IEyv. MPRM 


DI,TA=lye 


MPRM 


IF INV=*1! MPRM 


THEN OQe- 


1A 
Ié 
O! 


ENO pe 


MPRM 
=TEp. MPRM 
=DI,5- MPRM 
=-OI 9. MPRM 

MPRM 


00 I =14 TO IE BY DIy. . . ; MPRM 


TI 


=T(I) 5. /*SET TE TO T(E) */MPRM 


1F Tt NE If /*ITS INTERCHANGE STEP NEEDED */MPRM 
THEN DO>. ; MPRM 
IF TI GT QO /*IS ELEMENT OF ¥F VALIO */MPRM 

THEN IF TI LE [IT MPRM 

THEN DQy. MPRM 

IF OpT=*ce /*CHECK SPECIFIED OPERATION */MPpOM 
/*INTERCHANGE COLUMNS [ AND TI */MPRM 

THEN 0O J =1 TO My. ' MPRM 

AJ HACJIsI) >. MPRM 

ACJeTI=HACS+TI Ds. - MPRM 

- AldeTI=HAds- MPRM 

END ?. MPRM 

J*INTERCHANGE ROWS I AND TI */MPRM 

00 J =1 TO Nee MPRM 

AJ =A(TyJ)_~ MPRM 

ACI, JP=AITI VJ) 2. MPRM 

A(T I sJ)=AJee MPRM 

ENDs. : MPRM 

GOTG END;. : MPRM 

ENO, MPRM 
EFSQR="Tt,, 7*T CONTAINS INVALTO ELEMENTS 

» 2 MPRM 

END». MoRM 
: MDRwW 

woQy 

/*END OF PROCEDURE MPRM 


Purpose: 


/*DQUBLE PRECISION VERSION /*D*/MPRM . 


e/MPRM S 


#/M0QM § 





MPRM permutes rows (if OPT='R') or columns (if 


OPT ='C') of a given matrix A according to the 
permutation P (if INV='0') or its inverse p-l (if . 
INV='1'), The permutation P is given in the form 
of its transposition vector T. 


Usage: 
CALL MPRM (A, M, N, T, OPT, INV); 


BINARY FLOAT [(53)] 
Given M by N matrix. 
Resultant matrix. 
BINARY FIXED 
Given number of rows of A. 
BINARY FIXED 
Given number of columns of A. 
BINARY FIXED 7 
Given transposition vector. 
sion range equals M if OPT='R' and N 
if OPT='C'. | : we 
CHARACTER(1) | 
Given option specifying row or column 
permutation. 


A(M, N) e 


M - 
N - 


T(range) - 


OPT - 
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CHARA CTER(1) ae te 


INV - 
Given option specifying whether eee 
tation P or inverse permutation Po 
| applied. 
Remarks: 


_Ifno errors are detected in the processing of data, 
. the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions | 
| that may be detected: 


_ ERROR= minedia error in specified dimensions. 
ae 'T' means invalid transposition vector. 


if some element tj of T does not satisfy 1 < tj < 
range (invalid transposition vector), then the value 
of this element is interpreted as if it were equal to 
i (no interchange). 

Any value of OPT different from 'C' is inter- 
preted as if it were RI. 
_ Any value of INV different from '1' is inter- 
preted as if it were '0'. 


- Method: 


Permutation of A is performed by successively 
interchanging rows (if OPT ='R') or columns (if 
OPT ="'C'), i and t; for i= 1 up to range if INV='0'. 
and for i= range down to 1 if INV ="1'. 

In case i= tj no mnteE change takes place. 


pacers ecae Background: 


4 


The resultant A is calculated as the: > product: 


I ot | al ihe 
na” —m It -l Lt, 


if OPT='R', INV='0! 


he: ae “A 


if OPT='R',INV="1' 


A°‘ lI ee | bee” re (ee oS 
1 | 
rt, | 2,t, n,¢ | 


if OPT scr, INV ='0' 
Bee os ae . eee 
n, a | : a i t -1 me 


if OPT='C', INV='1' 


For notational details see MPIT. 
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e Subroutine MTPI 


MTPIe. ae;  MTPY 
LRERE +ARRSEAREREE RES EE EERES EAE STEREO RE RETR ES REORE SESE SRES ESSER HES EER / HT PY 
a/MTOT 

CALCULATE PERMUTATION ‘VECTGR (OR ITS INVERSE IF INV st ) */MTPY 
(CORRESPONDING TC GIVEN TRANSPOSITION VECTOR R/MTOT 

*/MTPT 

LEFEERERKKETSEKKLE SHREK ERSAE KK SL AAKKEKKE KK EEE RHKREKKS ERE Sane eee R EERE / MT PI 
PROCEDURE(TyNeINVyP) oe MTPI 
DECLARE ; _ MTPI 

. CTORD IN, Pim) TjIl, PIyTIytN) oe MTOY 

BINARY FIXED, MTPI 
({INVeERROR EXTERNALICHARACTER(L) 9. = =. . “TPT 

“=0y6 MTPT 

Sly. : a : .  MTPT. 

=Nee : MTPT 

IF UN GT CG . “#*¥TEST. SPECIFIED DIMENSION */MTPT 
THEN 0O,y< ; vs . cos . se " MTPI 
NEXTI ee /*PRESET PERMUTATION VECTOR */MTPI 
I =Itle. /*TO IDENTITY PERMUTATICN —- */MTPI’ 

P(I) =I,6 MTP! 

IF Itt N MTPI 

THEN GC TG NEXTI >». MYPT 

If INV NE "1° /*SHOULD THE INVERSE PERMUTAT. */MTPI 

THEN I Zl. /*VECTOR BE GENERATED */MTPE 

ELSE II =~II ee MTPY 
ERROR="0"%y. /*PRESET ERROR INDICATOR */MTPI 

. ; MTPI 
/*REPLACE TI BY TKI) */MTPI 
/*TF (1,TE) IS A VALID */MTPT 
THEN IF TI.LE LN 7*TRANSPOSITION THEN . [es MTPT 
“THEN 00,6 7* INTERCHANGE P(E). ANO O(TI) */MTPT 
PI =P(I),. MTPY- 


TI =T(I)s. 
If TI GT G 


PCI) =PETI Dy. MTOT 
PCTIJ=PI>. MTPI 

GOTO STEP +. MTPY 
. ‘ MTPY 
/*MARK INVALIO TRANSPOSITION */MTPY 
MTPT 

I =I+IIy. MTPY 

IF I LEN /*#HAS IT ITS FINAL VALUE */MTPT 

THEN IF I GE 1 . YTPI 

THEN GO TO REP». MTPI 
ENDse MTPT 
ELSE ERROR="0',. /*ERRCS IN SPECIFIED OIMENSION */MTPI 
ENOy. /*END OF PROCEDURE MTPI */MTPI 


ENO?. 
ERROR='T',. 





Purpose: 


MTPI calculates the permutation vector if INV ='0' 
and the inverse permutation vector if INV='1' from 
a given transposition vector. 


Usage: 
CALL MTPI (T, N, INV, P); 


T(N) - BINARY FIXED 
Given transposition vector. 
N - BINARY FIXED 
Given dimension of vectors T and P. 
CHARA CTER(1) 
Given option for selection of operation. 
BINARY FIXED 
Resultant vector containing the permutation 
vector of permutation or inverse 
permutation. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

that may be detected: 


ERROR='D' means N is less than 1. 


-ERROR='T' means T contains elements outside the 


range (1, N). 


A value of INV different from '1l' is interpreted as if 
it were '0'. 


Method: | h | e Subroutine MPIT 





Vector P is preset to the identity permutation MPIT.. - MPIT 
P 1 h 7 . f J ERRARRRE EERE ER EE RRA EERE ARE KARE EK EK AEREKEERERAEARREEARKE ER EEEREE/ MP TT 
=/( Be tetens N). Interec MaDe successively the CALCULATE THE INVERSE PERMUTATION VECTOR OR» IF OPT = 'T'y SAP 
components i and tj within P results in the permu- a eee eee nae 
tation vector belonging to T if i runs from 1 up to N p aseedavel ecadcawescunes eke bubsthes seuss seiashia sada 
. eae PROCEDURE(PyNyOPT PI) 9. MPIT 
and to the inverse permutation if i runs backward DECLARE | MPIT 
(PC*) IN,PIC#) gLNy JeP1,P2) MPIT 
: ; BINARY FIXED, 
from N down to 1. (OPT,ERROR EXTERNAL)CHARACTER(1),. . AP ar 
LNeJ =Noe 
. en oe 0 7*TEST SPECIFIED DIMENSION Sapte 
Mathematical Background: 7 REPLe MPIT 
PI(J)=0,. 7*PRESET RESULTING VALUES IN */MPIT 
ve ‘ oe /*ORDER TO’ CHECK PERMUTATION ig ee 
* CaF = THEN GO TO REPy. aie | 
See MPIT for notation and definitions on permuta ERRORAIDY <c /eORESEE RNB pT CA OR s7apie 
tion and transposition vectors. i caiding MPIT 
; ' P PL =P(d)s. 7*SET Pl TO PCJ) “MPIT 
The permutation vector P =(p1, Spats Pn) corre- IF Pl LE LN /*FEASIBILITY TEST. eyMe rT 
: aor ; THEN IF Pl GT O 7*IS 1 LE PL LE Ne AND Is */MPIT 
sponding to the transposition vector T = (tj, ..., ty) Henoct a ail a ceca 
is defined through: vege (Sikh STE Etwke'vatoe”™ "° # Sftetr 
: THEN GO TQ NEXTJy. MPIT 
ere: /*VALIO PERMUTATION VECTOR */MPIT 
; 2 PT="T? /*1IF SPECIFIED THEN TRANSPOS. * 
I[k p = I e 1 sue I e I THEN DO J =1 TO LNy.e 7*VECTORS ARE CALCULATED ones 
ae n, t n-1,t 1,t | oe | AR aS 
n-l 1 P(P2)=Pl,. WeLy 
PI(P1L)=P2,. MPIT 
ENDs. 
END» « MPIT 
The elementary matrices I; vc are symmetric and END». | 7 MPIT 
J ELSE ERROR="D',. /*ERROR IN SPECIFIED DIMENSION */MPIT 
apeageone that is, END;. /*END OF PROCEDURE MPIT /  #AMPIT 
| T -] Pp . 
a es urpose: 
jk ‘jk jk | 
MPIT calculates the permutation vector corre- 
Therefore, the inverse permutation vector is sponding to the inverse of a given permutation if 
defined by: OPT='I' and the transposition vectors of the given 


| permutation and of its inverse if OPT='T"'. 
ka|= 1 ‘Sas -T : 


1 n | 7 Usage: 

Programming Considerations: | CALL MPIT (P, N, OPT, PDs 

For valid transposition vectors it is necessary that P(N) - BINARY FIXED 

1 <t; s<nfor alli=1,2,...,n. As soon as a given Given permutation vector of given 

transposition vector is detected nonvalid, the error permutation. | 

indicator is set to T and further calculation is Resultant transposition vector of given 

pa peecece . permutation if OPT='T'; otherwise, | 
unchanged. | 


N - BINARY FIXED. 
Given dimension of vectors P and PI. 
OPT - CHARACTER(1) 
Given option for selection of operation. 
PI(N) - BINARY FIXED | 
Resultant permutation vector of inverse 
permutation if OPT='I' or transposition 
vector of inverse permutation if OPT='T'. 


Remarks: 

If no errors are detected in the processing of data, 
the error indicator, ERROR, is.set to zero. The 

following constitutes the possible error conditions 


that may be detected: 


ERROR='D!' means N is less than 1: 
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ERROR='P! means given permutation vector P is 
not a valid permutation vector. A value of OPT 
different from 'T' is treated as if it were "I". PI 
cannot coincide with P in case OPT="I'. a 


Method: 


In case OPT ="'I' as well as OPT='T' the first step 


. is calculation of the inverse permutation vector PI 


combined with a check on the feasibility of given 
permutation vector P. 

If OPT='T' a second step is performed which 
replaces the permutation vectors by the corre- 
sponding transposition vectors simultaneously. 


Mathematical Background: 
Elementary matrices Ty 


The elementary matrix I,,, is obtained from the 

_ identity matrix I by interchanging rows k and 1. 
Multiplication of a matrix A on the left by an Ty of | 
compatible dimensions results in an interchange of 
rows k and 1 of A, while multiplication on the right. 
interchanges columns k and 1. An interchange of 
two elements is also called a transposition. Note 
that I,] is symmetric and orthogonal: 


T -1 


fa a “4a 
Permutation vector 


Let N* denote the set of integers {1,2;...,n}. A 
permutation is a one-to-one function that maps N* 
onto N*. It is fully described by the ordered 
n-tuple (Sq, So,---, Sp) called a permutation vector, 
where s; ¢ N* is the function value corresponding to 
argument ie N*. Applying the permutation 
(Sj,-++,Sp,) on the rows of the n by n identity 
matrix I results in an orthogonal matrix I[k, sj |. 
The notation indicates that the k-th row.is identical 
with the sth row of I for allk=1,2,...,n. 

If an n by n matrix A is multiplied on the left by 
I[k, s,], its rows get permuted according to the 
permutation vector (S1,S9,---,Sp)- 

Permutation of columns is ‘atiiladiy pe rformed 
multiplying by the permutation matrix . 
ir [k, s,]= I[s,, k] on the right-hand side. 


Os ee vector 


An asa masa Ih, a I ae tae afte yt, Cor- 


responds uniquely to a permutation matrix ik, Si |. 


The ordered n-tuple (tj, to, ..., ty), which fully 
describes the above transposition product, is 
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called a transposition vector. The correspondence 
between permutation vectors and transposition 
vectors is not one to one: a given permutation | 
vector (S1, Sg, .--,8,) corresponds to several dif- 
ferent transposition vectors ifn> 2. . A uniquely 
determined transposition vector is obtained under | 
the additional restriction t,; = i. | 

The transposition vector comes in ee when 
pivoting is used with Gaussian elimination technique. 
If, at the j-th elimination step, rows j and tj. must 
be interchanged for j=1,...,n, then (tj, to9,...t,) is 
the transposition vector of the permutation that was 
applied to the rows of the original matrix. This - 
transposition vector is uniquely determined since 
t; 21. 3 ; 


Permutation vector of the inverse permutation 


The inverse P~! of a permutation P = (P45, eee DA) 
has function value i corresponding to argument p;. 

Let Q = (qj, +++, Gy) be the permutation vector of 
p-!, 1 [k, pK] is orthogonal -- that is, 

Il [ k, p, |] =IT [k, p,]. Therefore, I Lk ak] = 


I [ Py» KT. Since I[k, ay] =I [Ps dp, | ; 
follows by comparison dp, = k. 


Transposition vector of permutation 
The calculation of the transposition vector T = (ty, 


to, ---, ty) corresponding to the permutation 
vector P = (pj, Po, -++, Py) is based on the identity 


ILk, py] - 


with P’*= 


(py"; eee, Pn) = (P1,; eee, Pim] d, 
Pit Le ttt? Pqy -1? qj» igen ort a 


Applying identity (1) guacésaively for i=1, 2, ...., 
n leads to 


I [k, P.}: a 12 to lta 


or 


tLk, py, | = In, ty ° In -1,tp-1 °°" Ip. to ° 
Ny ty 


It is interesting to note that combining the calcula- 
tion of transposition vectors of P and p-l greatly 


improves the efficiency. 


Programming Considerations: 


The check on validity of the given permutation vec- 
tor is performed so that all components of the 


vector PI are preset to zero. 'At the i-th step of the 
calculation of the inverse permutation vector, pj; is 
checked for 1 Ss pjS n, and Qp; is checked for zero. 
If both restrictions are met dp; is reset to i. Other- 
wise, the error indicator is set to 'P' and further 
calculation is bypassed. 


Linear Equations and Related Topics 


e Subroutine MFG 


FACTORIZE A GENERAL NON-SINGULAR MATRIX A INTO A PROOUCT 
OF A LOWER. TRIANGULAR MATRIX L AND AN UPPER TRIANGULAR 
MATRIX U OVERWRITTEN ON Ay OMITTING UNIT DIAGONAL OF U 


MFG 


*/ MFG 
*/MEG 
*/ MEG 
*/MEG 
*/MEG 


LER RKRRRRKEEKRK EK KE KEK EAE ERE KK EHH ER KK EEE KSKHKKKKE RHEE ERASER HRKERK KKM EG 


PROCEDURECAyIPERsNyEPS)>.~ 
DECLARE 
ERROR EXTERNAL CHARACTER(1), 
EPS BINARY FLOAT, 
W BINARY FLOAT(53) 4 
(AC*,*) »HyR) 
‘ BINARY FLOAT, 

/* BINARY FLOAT(53), 
CIPER(*) Ls INDyJSyKyLyL Ne MeN) 
BINARY FIXEDy. 

LN =Noe 


/S*EXTERNAL ERROR INDICATOR 


/*DOUBLE PRECISION VERSION 


MFG 
MFG 
*/AMFG 
MFG 
MFG 
MFG 


J*®SINGLE PRECISION VERSION /*S¥*/MFG 
/*D*/MFG 


MFG 
MEG 
MEG 


IF LN LE O */MFG 
THEN 00,. MFG 
ERROR="Pt,, /*P MEANS WRONG PARAMETER */MFG 

GO TO RETURN». MFG 
END». MFG 
ERROR="0'»9. /*PRESET ERROR INDICATOR */MFG 
J RAKKREREREAK EERE ARE REE REE EE / MEG 


/*CALCULATE SCALING FACTORS */MEG 


/*TEST SPECIFIED DIMENSION 


DO L =1 TO LNy. 


R =Oye ; SL EREKKEKAEKEERAAKEKRAKEKE EE KK EK EEK EK/ MEG 
DO J =1 TO LNy. /*COMPUTE ABSOLUTELY GREATEST */MFG 

H =ABSCAI Ly J). /*ELEMENT R IN EACH ROW OF A */MFG 

IF H GTR MFG 

TREN R Hoe : MFG 
ENO,. MFG 

IF R = 0 /*TEST FOR ZEROS IN ANY ROW &/MFG 
THEN DO>. MFG 
"  ERROR="S'"y. /*ANY ROW IN GIVEN MATRIX A */ MFG 
GO TO RETURN>. 7*1S ZERO */MEG 

. END». MFG 


/*STORE R IN AN INTEGER VECTOR */MFG 

ELSE UNSPEC(IPER(L) )=UNSPEC{(R),. rs MFG 
END,. SEREKKEEERHKEKEKKE KK MHEK ERK KKK) MEG 
7*GAUSS ELIMINATION */ MFG 
J RRA RAE ME EKEKK KAKA KK KKK RKER/ MEG 
/*PRESET M AS SMALLEST INTEGER */MFG 
/*MOD0IFY COLUMN, SEARCH PIVOT */MFG 
Wet =AlJel)y. /*SAVE ELEMENT ' *&/MEG 

DO K =1 TO L-1,. /*COMPUTE SCALAR PRODUCTS */MFG 

wW =W-MULTIPLYCA(JSsK) sACKsL) 553)y- MFG 

END». MFG 
A(Jy,L)I=W,. /*UPOATE ELEMENT */MFG 

W =ABS(W),. ; MFG 
UNSPEC( I) =UNSPEC(W),. MFG 

I =I-IPER(J) +. /*DIFFERENCE OF EXPONENTS *x/MEG 

IF I GTM /*SEARCH FOR LARGEST OIFFERENCE*/MFG 

THEN DO;,. MEG 

IND =Jy. /*STORE ROW-INDEX */MFG 

M . =>. MFG 

R =Hre /*®SAVE ORIGINAL ELEMENT FOR x/MEG 

ENDy. /*TEST ON LOSS OF SIGNIFICANCE */MFG 

ENO,. MFG 

IF IND GT L_ 7*IS INTERCHANGE NECESSARY */MEG 
THEN DOQ,. . MFG 
[PERCINDI=IPER(L),». 7*RESTCRE PERMUTATION VECTOR */MEG 

DO J =1 TO LN;. 7 *INTERCHANGE ROWS CF MATRIX A */MFG 

H =A(LoJ)s- MFG 
A(Ly»J)=ACINDs J)». MFG 
AUIND,J)=Hy. MEG 

END,. MFG 

END? ; MFG 
IPER(LI=INDs. /*STORE ROW NUMBER */MEG 
H =AlLytl)-. /*H CONTAINS THE PIVOT */ MEG 
IF ABS(H) LE ABS(EPS*R) /*TEST PIVOT ELEMENT FOR LOSS */MFG 
THEN IF H NE C 7*0F SIGNIFICANCE AND FOR ZERO */MFG 
THEN ERROR='W',. /*W MEANS WARNING */MEG 
ELSE IF R= C 4*1S GRIGINAL ELEMENT ZERO =/MSG 
THEN DO,. . MFG 
ERROR="S',. /*CALCULATED PIVOT AND THE *#/MEG 

GO TQ RETURN». /*0RIGINAL ELEMENT ARE ZERO */MFG 

END; . MFG 

DO 5. /*CORRECT ZERO PIVOT &/MFG 

H HR*XLE-T>. /*SINGLE PRECISION CORRECTION */MFG 

H =R*1LE-16,. /* DOUBLE PRECISION CORRECTION */MFG 
ERROR='C',. /*WARNING AND CORRECTION &/ MEG 
END,» MEG 

DO J =Lt+l TO LNy. /*EXECUTE LOOP OVER L-TH ROW =/MFG 

“W =Cy. . MFG 

OO K =L TO L-le. */MEG 


DO L =1 TO LN». 
UNSPEC(M)="1°B,. 
DO J =L TO LN. 


J*CALCULATE SCALAR PRODUCTS 
Wo SWHMULTIPLYCACL 9K) sAC Ket) 553) 9% MFG 
END ee MEG 


AllLyJ) =CAC Ls J) —W)/Hy.: */MEG 

END, . MFG 

END». é . MFG 
RETURNe. MEG 
END». 7*END OF PROCEDURE MFS x/MEG 


/*COMPUTE NEW ELEMENT 





Purpose: 


MFG factorizes a general nonsingular matrix A. 
into a product of a lower triangular matrix L and 
an upper triangular matrix U overwritten on A, 
omitting the unit diagonal of U. | 
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Usage: 
CALL MFG (A, IPER, N, EPS); 


BINARY FLOAT. [(53)] 
Given two-dimensional array. 
Resultant calculated triangular 
factors L and U, where unit diagonal 
of U is not stored. 
BINARY FIXED 
Resultant vector containing the per- 
| | mutations of rows of the matrix. 

N - BINARY FIXED 
Given order of matrix A. 


-A(N, N) e 


IPER(N) - 


EPS - BINARY FLOAT | 
| Given relative tolerance for test on 
loss of significant digits. 
Remarks: 


If no errors are detected in the processing of data, | 
the error'indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions 
that may be detected: 


means error in specified dimension 
N<0 
means that any row in the given 
matrix A is zero or that any calcu- 
lated pivot and the corresponding 
original elements are zero; this 
implies that the given matrix A is 
singular. 
indicates correction. ee calculated 
zero pivot is modified to R- 107" in 
single precision (R- 10716 in double 
precision if the corresponding 
original element Ris nonzero). 
indicates a warning. A possible 
loss of significance may occur. 


ERROR='P! 


ERROR='S'! 


ERROR ='G! 


ERROR ='W' 


If at any factorization step the calculated pivot is 
equal to zero, the corresponding original element 
R is tested for zero. The given matrix A is inter- 
preted as being singular if Ris zero. MFG sets 
error indicator ERROR to 'S' and further calcula- 
tion is bypassed. If Ris not zero, pivot is cor- 
rected to R:1 1077 (in double precision R- 107 ms and 
ie hoe is act to ‘G. 


Method: 


Calculation of the triangular factors L and U is done 
using the standard Gaussian elimination technique. 
Columnwise pivoting is builtin, combined with scaling 
of rows (equilibration). The upper triangular ma- 
trix U is normalized so that the diagonal contains 


all ones, which are not stored, The given matrix 
A is overwritten by the resulting triangular factors 
L and U, omitting the unit diagonal of U. | 


For reference, see: 


H.J. Bowdler, R.S. Martin, G. Peters, J.H. 
Wilkinson, "Solution of Real and Complex Systems 
of Linear Equations'', Numerische Mathematik, 
Vol. 8, 1966, pp. 217-234, | 

A. Ralston and H.S. Wilf, Mathematical Methods 
for Digital Computers, Vol. 2, 1967, pp. 69-71. 


_ Mathematical Background: 


Let A be a nonsingular real matrix of order n, In 
general, it can be factorized into a product 


A=L°: U 


where L and U are lower and upper triangular 
matrices respectively; U is chosen so that it has a 
unit diagonal. 


The elements lie and uy, of the factor matrices L 
and U are computed using the following recursive 
formulas: : 


k-1 
Ss I. aaa Se 
m=1 mk 
i=1,2, es 
*k=1,2,...,i1 
| i-1 
1 
—— aie bd 
WET On ‘ae Uke 
il m=1 


i=1,2,...,N-1 


k=itl1,...,N 


Programming Considerations: 


Even if the given matrix A is nonsingular and well 
conditioned, the process can fail when a leading 
principal submatrix of A is singular; furthermore, 
the process is numerically unstable whenever a 
leading principal submatrix is ill conditioned. 

~ In order to avoid these inconveniences, a tech- 
nique of partial pivoting with an equilibration of the 
matrix has been introduced in MFG, Initially, the 
element with greatest absolute value -- say, 
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W; (i= =1, 2, ..., N), of each row of A is computed. 
The scaling factors W; are used as weights for 
pivoting. 

The p-th factorization step is as follows: 


1, Computation of the p-th column of L: 


p-1 
Nip ee 2 tim” Um 
De eee p 
and overwrite lin On ain (i=p, ptl,..., N) 


2. Equilibrated partial pivoting: 


Choose k so that - 


ol apa § [ip] 
Wi ven 4 





Store the integer k in the vector IPER,, and, 
ifk>p, interchange the k-th and p-th rows. 
Then _ is the next pivot, 


3, Computation of the p-th row of U: 


p-1 
1 
hs a | @ie- Qu bie ee) 
p pp p met p 


and overwrite Ui on ani (i =ptl1, pt2,...,N) 


The diagonal terms of U, which are 1, are not 
stored. For economy of storage, the scaling 
weights W, are initially stored in the vector IPER. 
This is done using the PL/I function UNSPEC, 
which stores W; in internal coded representation. 
This allows substituting |subtractions: oe divisions 
in the choice of pivots. 

If at factorization step p the pivot 1 becomes 
zero, the corresponding original element App is 
tested for zero. The given matrix A is interpreted 
as being singular if app is also zero, MFG sets 
error indicator ERROR to 'S' and further calcula- 
tion is bypassed. In other cases zero pivot is 
modified to: 


107" in the single precision 
version 
=@ * 
pp pp 16 
10 ~~ in the double precision 


version 


@ Subroutine MFS 


MFS.. MES 
SRR BRR RR RR BO RR RK ROR RO Re He Ro ae ee teak ae a RRR RR ESM ES 
*/MES 

FACTORIZE SYMMETRIC POSITIVE DEFINITE MATRIX x/MES 

&/MES 

Jf OR OR RO KO oi iO gO a tok a solo gototokak tg tok kk a kok kx J ME S 
PROCEDURE (As Nr EPS) 9. MES 
DECLARE MES 
ERROR EXTERNAL CHARACTER(L), /*EXTERNAL ERROR INDICATOR */MES 

EPS BINARY FLOAT, . MES 

SUM BINARY FLOAT(53), ; MEFS 

A(*) MFS 
BINARY FLOAT, of /*SINGLE PRECISION VERSION /*S*/MFS 
BINARY FLOAT(53), /7*0CUBLE PRECISION VERSION /*D*/MFS 
CINDsI@yKyKLoLyN) MFS 
BINARY FIXED,. MFS 

IF N LE C /*TEST SPECIFIED DIMENSION x/MES 
THEN ON,. MFS 
ERROR='P',. /*P MEANS WRONG PARAMETER */MFS 

GO TO FETURN,. MEFS 
END». MFS 
ERROR="0',. /*PRESET ERROR INDICATOR RIMES 
IND =Oy.- /*INITIALIZE ROW-LOOP &/MES 
IB =ly.e MFS 
DO K =1 TO Ny. /*EXECUTE LOOP OVER ALL ROWS */MES 

KL =Cqe ; MFS 
LOOP.. /*PERFORM LOOP WITHIN K-TH ROW ¥*/MFS 
SUM =O9.6 MEFS 

DC Lt =IB TO IND,. /*CALCULATE SCALAR PRODUCT. x/MES 

KL =KLt+lo. MES 

SUM =SUM+MULTIPLY(A(L) s4( KL) 953)5.6 MES. 

END». MES 

KL  =KLtly. MEFS 

IND =INO+1,. MEFS 

SUM =AC(IND)—SUM,. MFS 

IF IND GT KL 7*1S ACIND) ON DIAGONAL */MES 

THEN DO,. MEFS 

AC IND) =SUM/ACKL) 9». /*CALCULATE NON-DIAGONAL TERM ¥*/MEFS 

GO TO LOOP,. MES 

ENDs. MES 

If SUM GT © /¥*TEST SIGN CF RADICAND */MEFS 

THEN DO. /*POSITIVE RADICAND e/MES 

IF SUM LE ABS(EPS*ACIND))/*TEST ON LOSS OF SIGNIFICANCE */MFS 

THEN ERROR='W!,. /*W MEANS WARNING */MES 

ACLIND) =SQORT(SUM),. /*CALCULATE NEW DIAGONAL TERM ¥*/MFS 

END». MFS 

oc, /*NEGATIVE RADICAND i */MES 
ERFOR="S*, /*S MEANS MATRIX A IS NOT */ MES 

N =K- ee /*POSITIVE DEFINITE */MES 

GO TO RETURN». /*REDUCE DIMENSION OF LOWER’ */MES 

END». 7*TRIANGULAR FACTOR */MFS 

=IBt+K,. MES 

MES 

; MFS 

/*END OF PROCEDURE MFS */MES 





Purpose: 


MFS computes a triangular factorization of a sym- 
metric positive definite matrix using the ‘square root 
method of Cholesky. | 


Usage: 
CALL MFS (A, N, EPS); 


A(N*(N+1)/2) - BINARY FLOAT [(53)] 
| Given one-dimensional array con- 
taining the matrix A stored row- 
wise in compressed form. 
Resultant calculated lower triangular 
factor T stored rowwise in com- 
pressed form. 
N - BINARY FIXED | 
_ Given order of matrix A. 
Resultant order of the triangular 
factor T. = 
EPS - BINARY FLOAT 
Given relative tolerance for test on 
loss of significant digits. 


Remarks: | 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
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following constitutes the possible error conditions 
that may be detected: 


means error in specified dimension: 


ERROR= 'P! 
a N<s0 | | 
ERROR='S' means given matrix A is not positive 
| definite, possibly because of severe 
| loss of significance. 
ERROR='"W' is awarning. A possible loss of 


significance could occur. 


The lower part of the given symmetric matrix, A, 


is assumed to be stored in compressed form -- that 


is, rowwise in N*(N+ 1)/2 successive storage lo- 


cations. On return the lower triangular factor T is © 


stored in the same way. 

Method: 

Factorization is done using the square root method 
of Cholesky, which generates a lower triangular 
factor matrix T such that 


“a transpose (T) =A 


The given matrix, A, is replaced : in core by the 
resultant matrix, T. 


For reference, see: 


J. H, Wilkinson, The Algebraic Eigenvalue Prob- — 
lem, Clarendon Press, Oxford, 1965, 

A. Ralston and H.S. Wilf, Mathematical Methods 
for Digital Computers, Vol. 2, 1967, pp. 71-72. 


Mathematical Background: 
The elements t,, of the lower triangular matrix T 


are computed using the following recursive 
formulas: 


kk 





J 
(>> is to be interpreted as zero when j< 1.) 


The determinant of A may be computed vg the 
formula: | 


N 


det(A) = 7 i 


k=1 
Programming Considerations: 


The given symmetric matrix A is assumed to be 
stored in compressed form. The resultant lower 
triangular factor T is returned in the locations of A. 
If at factorization step k (k=1, 2, ..., N) the 
radicand is not positive, the error parameter | | 
ERROR is set to 'S', N to k-1, and further calcula- 
tion is bypassed. | 
The error parameter ERROR is set to 'W' if any 
calculated radicand r = r - SUM is not greater than 
| EPS-r |. where r is the original diagonal term 
and SUM a scalar product sum. 
It should be noted that Chgreeny, factorization is 


* done without pivolne: 
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@ Subroutine MFSB 


MFSB.e. MFSB 10 
(OR ROR of oho acto a gig go 8 I RO a SR FOR IRR a toe tok ee Re oe EK EKE/MESBH 20 
/* i */MFSB 30 
/* FACTORIZE A GIVEN POSITIVE DEFINITE N BY N MATRIX A */MFSB 40 
/%* WITH SYMMETRIC BAND STRUCTURE (NUD UPPER CODIAGONALS) */MFSB 50 
/* */MFSB 60 
SR RB MR RRR RE MR A A A I i a Re te a he te a OK eK / ME SB 70: 
PROCEDURE AsNyNUD EPS) ¢o MFSB 80°: 
DECLARE MFSB 90) 
ERROR EXTERNAL CHARACTER(1), /#EXTERNAL ERROR INDICATOR */MFSB 100: 

EPS AINARY FLOAT, MFSB 110 

SUM BINARY FLOAT(53), MFSB 120. 

(AC#,*) PIV): MFSB 130 

BINARY FLOAT? /*SINGLE PRECISION VERSION /*S*/MFSB 140° 

/* BINARY FLCAT(53), /*DOUBLE PRECISION VERSION /*0*/MFSB 150' 
(IyIDsJeJEND Ky KK» KEND, MFSB 160. 

LNyLNUD sMyNgNC yNR»NUD) MFSB 170 

BINARY FIXED,). = MFSB 180; 

LN =Noe MFSB 190. 
LNUD =NUD,. MFSB 200, 
ERROR=!P'%,, /*P MEANS WRONG PARAMETER */MFSB 210; 

IF LNUD LT OC /*TEST SPECIFIED NUMBER OF */MFSB 220: 
THEN GO TO RETURN». /*UPPER CODIAGONALS */MFSB 230° 

IF LN LE LNUD /*TEST SPECIFIED DIMENSION N */MFSB 240 
THEN GO TO RETUFNy». MFSB 250 

NR =LN-LNUD,. /*INITIALIZE PARAMETERS */MFSB 260 

NC ,JEND=LNUD+1,. MFSB 270. 


00 { =1 TO LNy. /*EXECUTE LOOP OVER ALL ROWS */MFSB 280: 


IF I GT NR /*MODIFY JEND AT THE ENO OF */MESB 290 
THEN JENO =JEND-1?e. /*THE BAND STRUCTURE ; */MFSB 300 
KEND =NCqe /*INITIALIZE KEND AND M */MFSB 310 
M =NC—-Iye MFSB 320 
{IF M GTC /*MODIFY KEND AT THE START OF */MFSB 330° 
THEN KEND =KEND-My. /*THE BAND STRUCTURE */MFSB 340 
DO J =1 TO JEND;. /*EXECUTE LOOP OVER I-TH ROW */MFSB 350 

10 aJ~1ly. /*CALULATE INCREMENT ID */MFSB 360 

KK =HIye /*INITIALIZE KK AND SUM */MFSB 370 

SUM =Q¢. MFSB 380 

PO K =J+l TO KEND,. /*COMPUTE SCALAR PROOUCT SUM */MFSB 390 

KK =KK-1loe MFSB 400 

SUM =SUM+MULTIPLYCA(KK 9K) sACKKy K-10) 953) 9. MFSB 410 

ENO>. MFSB 420 

SUM =A(I;J)—-SUM,. MFSB 430 

IF J = /*1S AlI,J) DIAGONAL ELEMENT */MFSB 440 

THEN IF SUM GT C /*TEST FOR LOSS OF SIGNIFICANT */MFSB 450 

THEN DO,. /*DIGITS AND COMPUTE NEW TERM */MFSB 460 

IF SUM LE ABS(EPS*A(T+J)) MFSB 470 

THEN ERROR='W!,. MFSB 480 

PIV,ACE sJ}=SORTCSUM)». MFSB 490 

ENDy. MFSB 500 

ELSE DO,. MFSB 510 
ERROF="S* 4. /*A 1S NOT POSITIVE DEFINITE */MFSB 520 

N =I-1ly. 7*RESET INPUT DIMENSION N */MFSB 530 

GO TO RETURN;. MFSB 540 

END,>. MFSB 550 

ELSE All yJ)=SUM/PIV?. /*MODIFY NON-DIAGONAL ELEMENT ¥*/MFSB 560 

If J LE M MFSB 570 

THEN KENO =KENDt1,. /*UPDATE KEND IF NECESSARY */MFSB 580 
END;. MFSB 590 
ENDy. MFSB 6CC 
ERROR='O',. /*®SUCCESSFUL OPERATION */MFSB 610 
RETURN..« MFSB 620 
ENDy. : 7*END OF PROCEDURE MFSB */MFSB 630} 


Purpose: 


MFSB computes a triangular factorization of a sym- 
metric positive definite band matrix using the 
square root method of Cholesky. 


Usage: 
CALL MFSB (A, N, NUD, EPS); 


A(N, NUD+1) - BINARY FLOAT [ (53) | 

| Given two-dimensional array con- 
taining the upper part of a sym- 
metric band matrix A with NUD 
upper codiagonals. 
Each row starts with its diagonal 
element, 
Resultant calculated upper band 
factor T. 

N - BINARY FIXED 
Given number of rows of matrix A. 
Resultant number of rows of upper 
band factor T. 


NUD - BINARY FIXED 
Given number of upper codiagonals 
of A. 
EPS - BINARY FLOAT 
Given relative tolerance for test 
on loss of significant digits. 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

that may be detected: 


ERROR='P' - means error in specified dimen- 

sions: 

NUD< 0 or N = NU 

means any calculated pivot is not 

positive -- that is, given matrix A 

is not positive definite. This is 

possibly due to a severe loss of 

significance. | 

ERROR='W!- is a warning indicating possible loss 
of significance. 


ERROR='S! - 


The upper part of symmetric band matrix A, con- 


sisting of the main diagonal and NUD upper co- 
diagonals, is assumed to be stored rowwise in 
array A(N, NUD+t1) starting with its diagonal ele- 
ments. Thus, A(i, 1) are the diagonal elements of 
the given band matrix A (i=1, 2, ..., N). On re- 
turn, the upper band factor T is stored in the same 
way in the locations of A. | 

Input parameters N and NUD should satisfy the 
following restrictions: 


0s NUD< N 
Method: 


Factorization is done using the square root method 
of Cholesky. This generates the upper band factor 
T such that 


T * transpose (T) =A 
The given A is replaced by the resultant T. 
For reference see: 
H. Rutishauser, " Algorithmus 1 -Lineares 
Gleichungssystem mit symmetrischer positiv- 
definiter Bandmatrix nach Cholesky", Computing 


(Archives for Electronic Computing), Vol. 1, iss. 
1, 1966, pp. 77-78. | 
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Mathematical Background: 


For the elements a. of a symmetric band matrix 


with NUD upper codiagonals, the following is true: | 


an = 0 if = [i-kl> NUD’ 


The elements ty, of the upper factorized matrix T 7 


are computed using the following recursive 
formula: 


1 ff it 
> 
ii m=mQ 


Ci tax 

mM) een k-NUD) 115 oe eo NN 
katt ly cess 
min (i+ NUD, N) 


r 
(any symbol De | 


Xn is to be interpreted as 
m=mo | 


zero ifr <m,) 


In the special case i = k (diagonal elements), the 


above equation may be written: 


° 
9 


2 
mk 





, N mg = max (1, k-NUD) 


The resultant upper factor T has band structure | 
again, because the following is true: 
t, =0 if k> i+ NUD 


Programming Considerations: 


The upper part of the symmetric positive definite 3 | 
band matrix A, consisting of the main diagonal and 


NUD upper codiagonals, is assumed to be stored 


rowwise in the two-dimensional array A(N, NUD+ 1) 
such that A(i, 1) are the diagonal elements (i=1, 2, 
.e., N). Therefore, the elements A(i, k) of ae: 
A with itk> N are irrelevant; they are not touched 
within MFSB. The resultant upper band factor T is. 


returned in the locations of A. 


If, at factorization step m(m = Le 9. eer my, the 
radicand is not positive, error parameter ERROR 


is set to 'S!, dimension N to m - -1, and further 
calculation is bypassed, — | 


The error character is set to 'W' if any calculated 


radicand r=r- SUM is positive but no longer 


greater than |EPS - r |, where r means the _ 
original diagonal term and SUM a scalar product 
sum. 

The input parameters 7 and NUD must satisty 
the restriction: 


0 < NUD < N 
Otherwise, ERROR is set to 'P'. 


It should be noted that Cholesky's factorization 
is done without pivoting. 
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e Subroutine MFGR : | Purpose: 


For a given general rectangular matrix, MFGR 


MFGR.ee | MEGR 
Ge ene ny Ur ng er Tbe er Rane tens GEES | performs the following: 
/* FOR A GIVEN M BY N MATRIX A THE FOLLOWING CALCULATIONS */MEGR ° : . 
x ARE PERFORMED cy a | . #/MEGR 1. Determines rank and linearly independent rows 
/* (1) DETERMINE RANK AND LINEARLY INDEPENDENT ROWS AND */MEGR 5 
COLUMNS (BASIS) , #/MFGR and columns (basis) 
(2) FACTGRIZE A SUBMATRIX OF MAXIMAL RANK */MEGR 9 b tri A Z 1 
(3) EXPRESS NON-BASIC ROWS IN TERMS OF BASIC ONES. */MEGR i m or maxim rank 
(4) EXPRESS BASIC VARIABLES IN TERMS OF FREE ONES */MEGR 100 . Factorizes a su alrix a 
/* . */MFGR 110 ’ 7] 1 
[ECE IE GICIE ERO RAEI I OGG IG IG OIG IIS GSE: a faci ki tokio ti J MEGR 120 a 36 Expresses nonbasic rows mM terms of basic 
PROCEDURE (AyMyNyEPSpIRANKy EROW, ECOL) 9 MEGR 130 
DECLARE oS Snider : MEGR 140 rows 
ERROR EXTERNAL CHARACTER(1), /*EXTERNAL ERROR INDICATOR #/MEGR 150 : 5 : 
EPS BINARY FLOAT, _. MEGR 160 4, Expresses basic variables in terms of free 
SUM BINARY FLOAT(53), MEGR 170 
(A(*_*) HOLD »PIV, SAVE » TOL, WORK) MFGR 180 i 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S#/MFGR 190 : variables 
BINARY FLOAT(53), 7*D0QUBLE PRECISION VERSION /*D*/MFGR 200 
(ICOL(*) pTROW(#) pL IC gts MEGR 210 
IND y [RANK y Jy Ky LM yLNy MyN) \ MEGR 220 
BINARY FIXEDy. MEGR 230 Usage: 
LM =M,. MFGR 240 
LN Ne. MFGR 25C : 
ERROR='P',, /*P MEANS WRONG INPUT */MEGR 260 ’ 
IF LM LT 1 .  /*TEST QF DIMENSION M */MEGR 270 : 
THEN GO TO RETURN». ies ae CALL MFGR(A, M, N, EPS, IRANK, TROW, ICOL); 
IF UN LT 1 /*TEST OF DIMENSION N */MFGR 290 
THEN GO TO RETURNy- MEGR 300 
ERROR='"0',. /*PRESET ERROR INDICATOR */MEGR 310 
/*INIT. COLUMN INDEX VECTOR § */MFGR 320 A(M, N) ~ BINARY FLOAT [ (53) | 
PIV =Oy- /*SEARCH FIRST PIVOT ELEMENT  */MFGR 330 hM d 
DO J =1 TO LNy. /*EXECUTE LOOP OVER COLUMNS #*/MFGR 340 i i i 
ICOL(J)=Jy- -  MRGR 35C Given general matrix wit rows an 
DO I =1 TO LMy. /*EXECUTE LOOP OVER ALL ROWS +*/MFGR 360 
HOLD =AlIyJ) 9. MFGR 370 N columns. 
IF ABS(HOLD) GT ABS(PIV) MEGR 380 - 
THEN DOs. MFGR 390 . Resultant calculated triangular 
PIV =HOLD,. /*SAVE VALUE AND INDEX OF THE */MFGR 400 i 
IR =Iy. /*ABSOLUTELY GREATEST ELEMENT */MFGR 410 factors L, U and submatrices C, H, D. 
1... 2d ; MEGR 420 
END». MEGR 430 = 
NOy. MFGR 450 ° : 
DO I =1 TO LMy. /*INITIALIZE ROW INDEX VECTOR ¥*/MFGR 460 Given number of rows of matrix A. 
IROW(I)=Iy. MFGR 470 
END». MFGR 480 N - BINARY FIXED 
TOL =ABS(EPS*PIV) >. /*SET UP INTERNAL TOLERANCE  */MFGR 490 
IRANK=0,. SRK EKER EKER EE KK KK ERKKEEE/ ME GR 500 | 7 
60d Ht 0 then paciice. CL ACAaET Gh ee Given number of columns of matrix A. 
IF ABS(PIV) LE [RARER ERE KEK KK KKK EKEKEXK/MEGR §20 
THEN GO TO ROW, /*PIVOT IS NOT FEASIBLE +/MFGR 530 EPS BINARY FLOAT 
IRANK=Jy« /*UPDATE RANK */MFGR 540 : : 
IF IR GT IRANK /*SHOULD ROWS BE INTERCHANGED */MFGR 550 _ Given relative tolerance for test on 
THEN DOy. MFGR 560 : 
O00 I =1 TO LNy. /*INTERCHANGE ROWS */MFGR 570 Zero, 
SAVE =ACIRANKsI)9- MFGR 580 ANK B Y FIXED 
ACTRANKsT)=ACIRGT) 96 MEGR 590 TR oe INAR LX 
ACIR,1)=SAVEp.« MFGR 600 
ENDy. : MFGR 610 : . * 
IND =IROWCIR) +. /*UPDATE ROW INDEX VECTOR */MFGR 620 Resultant rank of given matrix. 
IROW(TR)=IROW(L RANK) y. MFGR 630 . 
IROW(LRANK)=INDy.« MEGR 640 TROW(M) - . BINARY FIXED 
END» « MFGR 650 se 
IF IC GT IRANK /*SHOULD COLUMNS BE INTER- */MFGR 660 Resultant vector containing the sub- 
THEN DOy. / *CHANGED */MEGR 670 WW t 
DO I =1 TO LMy. /*INTERCHANGE COLUMNS */MFEGR 680 + Vey ; 
SAVE =A(1,IRANK) 5. MEGR 690 . scripts of basic rows in IRO (1) up to 
ACLs TRANK}=AC1y1C)¢- MEGR 700 : 
ALT yIC)=SAVEs. MFGR 710: TROW (IRANK). 
END +. MEGR 720 
IND =ICOLCIC),. /*UPDATE COLUMN INDEX VECTOR */MFGR 730 ICOL(N) - BINARY FIXED : 
ICOL(IC}=ICOL(TRANK),.« MEGR 740 ae 
TEODUERANG=IND ice we Resultant vector containing the sub- 
ge 
=IFANK+1 9. /*INITIALIZE LOOP FOR TRANS- ¥*/MFGR 770 ‘ : : 
=PIVy. /*FORMING CURRENT SUBMATRIX  */MFGR 780 scripts of basic columns in ICOL(1) 
=09. /*ANO SEARCHING NEXT PIVCT */MFGR 790 es 
DO I =IND TO LMy. MFGR 800 up to ICOL(IRANK). 
HOLD, A(T, IRANK)=AC1 yIRANK)/SAVE9-~  MEGR 810 
DO K =IND TO LN,. MFGR 820 
WORK yACT 9K) =A 1, K)-HOLD#A(TRANK?K) 9 MFGR 830 
/*SEARCH NEXT PIVOT ELEMENT */MFGR 840 
IF ABS(WORK) GT ABS(PIV). MEGR 850 Remarks: 
THEN DOy. MFGR 860 a 
PIV =WORK,. /*SAVE VALUE AND INDEX OF THE */MFGR 870 . ee 
IR eLss /*ABSOLUTELY GREATEST ELEMENT */MFGR 880 at . 
re ee | MFGR 890 If no errors are detected in the processing of data, 
ve 
Rogen see the error indicator, ERROR, is set to zero, The 
END». [RRR RIOR RO RRR EE KER MEGR 930 . ° e ere 
ROWee /*COMPUTE ROW DEPENDENCTES */MFGR 940 following constitutes. the possible error condition 
IF IRANK= LM . / OC a OO I ei tok tick ibe 8 JMEGR 950 
THEN GO TO HOM,. os 7*ALL ROWS ARE BASIC ONES = +-*/MFGR 960 that may be detected: 
DO J =IRANK-1 TO 1’ SY -1ly. /*SET UP MATRIX EXPRESSING | = */MFGR 970 
IR =J+1y. /*ROW DEPENDENCIES */MFGR 980 
DO I =IND TO LMy. 7*LOOP FOR NON-BASIC ROWS */MFGR 990 
SUM =Cy. MFGRLCOO a, | t e ere e ° 
DC K =IR TO IRANKs. /*CALCULATE SCALAR PRODUCTS § */MFGR1OLO ERROR='P' means error in specified dimensions: 
/ SUM) =SUM+MULTIPLYCACT 9K) AUK od) 953) 96 _ MEGRLO20 
ENDy. MFGR1030 M<0 and/or Ns 0° 
AC LJ) =A(T¢J)—-SUMs« /*MODIFY ELEMENT */MEGR 1040 
END. MFGR1050 
END,>. LRRERKRRERKREEKKEKE KKK EEK ARE E KK /MEGRIO60 hs ‘ : ’ we 8 
HOM... /*COMPUTE HOMOGENEOUS SOLUTION */MFGR1070 ; . . : 
eds gC O RULE MONDE N Oe our our eel or® Calculation of the rank of given matrix A is most 
THEN GO TO RETURN». /*ALL COLUMNS: ARE BASIC ONES */MFGR1090 e410 . ° ° : 
| Pee py MITR TS EADIE SCI cose ti 66 critical. It is not claimed that MFGR will give the 
DO ‘J =IRANK [O 1 BY —ly. /*BASIC VARIABLES IN TERMS OF */MFGR1110 ‘ . . Boe 
IR =Jd+ly. /*FREE PARAMETERS /MEGRL120 correct rank in all cases, because of the intrinsic 
DO I =IND TO LNy. /*LOOP FOR FREE COLUMNS */MFEGRL130 difficult d byt f : leulati ith 
SUM =09. . MFGR1140 1TTicu cause errorming calcu 10n 
DC K =IR TO IRANKy. /*CALCULATE SCALAR PRODUCTS  */MFGRL150 by: YP & Ca a S wi 
SUM =SUM#MULTIPLYCA( 9K) pAUK91) 953) 9% MFGR1160 <4 © ne 
ae pees a finite number of digits. ; 
AC Sy T)=-CAC dg T)+ SUMD/A( Sy J) 9 MEGR1180 3 A = 
END: « MF GR1190 Suggested range for values of EPS is (107%, 
END,. MFGR1200 | | os ° ° Sia _ = . 
RETURN.. MFGR1210 10 6) in single precision and (10 8 1071 ) in double 


END». /*END OF PROCEDURE MFGR x/MEGR1220 





precision. 
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Method: 


Calculation of the rank IRANK and of the triangular 
factors L and U is done using the standard Gaussian 
elimination technique with complete pivoting. The 
lower triangular matrix L is normalized so that the 
diagonal contains all ones, which are not stored, 
‘The subdiagonal part of L and the upper triangular 
factor U are stored in the locations of the given 
matrix A. | 

In case A is singular, the fcsadiitas factors L 
and U only of a submatrix of maximal rank are re- 
tained, The remaining parts of the resultant matrix 
give the dependencies of rows and columns and the 
solution of the homogeneous matrix equation 
Ae X=0., 


For mererence see: 


A.S, Householder, The Theory of Matrices in 
Numerical Analysis, 1965, pp. 125-130. 


Mathematical Backgrounds: 
Interchange information 


Gauss elimination with complete pivoting implies 
that the rows and columns of the given Mby N | 
matrix A are interchanged at each elimination step 
if necessary. The interchange information is re- 
corded in two integer vectors IROW and ICOL: 


TOW 


The i-th 1 
column 


\ of the interchanged matrix 
corresponds | | 
( IROW(i)-th row 


one \ ICOL(i)-th column 
matrix, where initially 


\ in the original 


| es and ICOL(i)=i for i= { 1,2, 6, w 


Li Aige avec IN 


At the i-th elimination step the mfewenanecs 
matrix is denoted by Al, | 


First elimination step 


After pivoting, the interchanged matrix A” is uniquely 


expressed as: 


by imposing the following conditions: 

1. Ul is the N by N identity matrix except for 
the first row. 

2. L1 is the M by M identity matrix except for 
the first column, The first diagonal element 
has a value of one. | 

8, Di isan M by N matrix with first diagonal 
element equal to one, while all remaining 
elements of the first row and column are equal 


to zero, 
Partitioning of matrices A2, L?, p!, vt leads to: 
1 41 | 
aa4 Alo 1 0 
1 1 1 
Aoy Avo Loy I 
1 1 
o 0 U1 (de 
1 
0 Doo 0 I 
where: 
7 2 
11 11 
1 1 
Aye a Vie 
1 1 1 
Ao, = Loy Tit 
| aa 1 
Ayo = Voy Dig + Poe 


This implies the following: 
1. The elements of the first column of the are 


1 1 | | 
we. = ate (k=1, 2, 3, .«-, N) 


2. The elements of the first column of Lt are 





ae . 
1 1 = | 
Lia 7 131, ae! (i = 2, 3, ©@@>5 M) 
a 
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3. The elements of submatrix Dap of pt are 


1 4 
BE cats BoM eel, goat ad ae 
ik 9k 7 Gn “ak © Aik 
11 
(2055; icy Mt 
HHO 8 aia 


Note that it is possible to record all nontrivial 
information about L1, pl, ut in the storage loca- 
tions originally occupied by A, storing only: 


1 1 
a Urs 
1 1 
Loy Doo 


Second elimination step © 


Assume Dao is not zero in the sense that all its 
elements are absolutely greater than an internal 
tolerance TOL. The complete pivoting in Dé, 
implies a matrix Al possibly is nes 
giving A’; | 


Now Dé. may be expressed uniquely in the form: 


| 2 _9 
7 ae eo ces (M90 Vos 

22 \ 72 2. | 
Leg by 0 Diy \0 I 


It is easily seen that 


AM = 2 - pe: yo 





where 
0° 0 
2 = 1 0 | 
D 
lgo I 
1 0 0 
p-={ o 1 0 
2 
0 0. Das 


1 D D 
Uy, YQ (Ug 
2 2 2 
U = 0 Up Yong 
0 0 I 


Final elimination step 


At the next Step Das is factorized, and so on. Now 
assume that DE r+, equals zero -- thatis, that 
all its elements are absolutely less than or equal 
to TOL. This is interpreted as matrix A has the 
rank r and the result is the factorization: 





Neglecting the small elements in D' aaa this may 
be written as: 
(ia) oR) 
with 
1 0 ® e e 0 
2 
lod 1 0 
L = e ° ° ° 
Tr r 
la lig . 7 - ‘ 
1 2 
"tt “yo: : : 
a 
0 Uso P 
Us) ; 
0 0 ; é 
_ r - r 
LR The L’ Lied, 9? 2083 Le, r) 
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L is a lower triangular matrix of order r with unit 
diagonal. 

Uis an r by r upper ene matrix, 

LR is an (M-r) by r matrix; if the given matrix A 
is row regular (that is, r=M), LR is absent in the 
final factorization. 

UR is an r by (N-r) matrix; if the given matrix 

A is column regular (that is, r=N), UR is absent 
in the final factorization. 


Further calculations 


The problem of matrix factorization arises in con- 
nection with the solution of systems of equations 
A* X=R. Three different cases must be dis- 
- tinguished: 
1r=M=N 
Ais nonsingular, and A* X=R has a unique 
solution. 
2.r<M 
A is not row regular; solutions of Ae X=R 


exist only if the linear combinations among the rows 


of A are also valid among the rows of R. 

30 r<N 

A is not column regular; A* X = 0 has non- 

trivial solutions. | 

The cases (2) and (3) may occur together. The 
solution, if it exists, is uniquely determined for 
r=N; otherwise, it contains N-r free parameters. 
_ It is quite natural to ask for the linear combinations 
among the rows and columns of given matrix A and 
for the linear forms expressing basic variables in 
terms of free variables. Therefore, instead of LR 
and UR, matrices C and H, containing linear 
combinations, are returned. 


Observe carefully that the calculated factorization 


belongs to the interchanged matrix A’. Therefore, 
we use A? - XT = RI instead of A: X=R. 


Let X‘, R* be partitioned (3 1) and(p ie 


Then, from A* + X* = RX is obtained: 


a) ©. UR) (xa) (i Ra) 


More explicitly: 


LeU: X +L° UR* xX ae) 


DR: 8 5Ue se et nee Xx, = Ry | 


Since L and U are nonsingular, this implies 
that: 


KX, =U + Lb R,-U" + URX, 


Ro, = LR Lb " RR 


For the user's convenience: 


LR is replaced by Cc, = LR« L 


UR is replaced by H = -U * UR 


while L and U remain unchanged. 

For consistency it is necessary to set 
Ro = Cz+ Ry and to obtain homogeneous 
solutions from the equation: 


aes 


In case of a consistent system of equations — 
At. XT = RI, the general solution is: | 


x 
re 1 i. eee -1 
X = (<1) wen, = U L RL 


while the values of the free variables contained in 
Xo may be chosen arbitrarily. 


Programming Considerations: 


Let aj, be the absolutely greatest element of the 
original matrix A, which is found first in column- 
wise scan. The internal tolerance TOL is set equal 
to| EPS > ay]. 

If, at the m-th elimination step, the absolutely 
greatest element of pa is less than or equal to 


TOL, the submatrix Di", is interpreted as being 
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the zero matrix. Then m-1 is returned as rank of 
the given matrix A and further factorization is 
bypassed. 

The calculated factorization belongs to the inter- 
changed matrix A’. Therefore, we deal with AT - 
xf = RY instead of A + X = R, where: 


x" lis obtained from 4 using the 
Rr R 


ICOL(k) { X k-th 
| TROW() f element a as : th element of 


xt 

Re 
withk = 1, 2,..., Nandi = 

Within the storage area 

originally occupied by the 
input matrix A, procedure 
MFGR returns, in a com- 
pact scheme, the matrices 


L, U, C, H, and D (see 
diagram). 


te A. sew: Ms 


—_— N — 


—<t-|RANK-& 


NI 


—|RANK-} 


= 


Numerical example 


Let A = , EPS = IE-5 


a Non we 
mo DO DO 
a No er Sa 


Procedure MFGR returns L, U, C, H, and D: 
1 O _[{4 2 
(0.4 1) . =(( a 
. . [0.5 0 _/-0.33333325\ _ _/0 
ie te a " sey shore p-(5) 


and combines them in the following compact scheme: 


L 


vs 5 “abnor ANC 
ie : ; and IROW = (38, 2,1,4) | 
ae ICOL = (2, 3, 1) 


0 


From information in C, IRANK, IROW we get the 
linear dependencies among rows: 


= 0.5° row(3) + 0° row(2) 
1,5 ° row(3) - 1° row(2) 


row(1) 
row (4) = 


From information in H, IRANK, ICOL we get the 
homogeneous solution of A* X = 0: x =H°* X,: 


xX, = -0.33333325 x 


2 1 
Xe = -0.33333331 x 
and with 


column (1) ° x; + column (2) * x» 
+ column (3)* Xg = 0, the linear dependencies 
among columns: 


column (1) = 0. 33333325 - column (2) 
+0. 33333331 - column (3). | 


Multiplying the triangular factors L, U we get: 


a a if 4 og 
Le vus= 32 33 \_ 


259 9g og 
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O4 . 


eseeoeseeveevesesvsesCoeveseevesevoeesveseveseoeseevosnaeveevesevesesneeeoessevnseoeosseeevnseseseueseesevageosevepeovoseseessesssevesee eee & 


sx 
ea 
erm. 
om 


FUR A GIVEN GENERAL RECTANGULAR MATRIX 
DETERMINES RANK AND LINEARLY INDEPENDENT ROWS AND COLUMNS 
EXPRESSES NONBASIC’ ROWS IN TERMS CF BASIC ROWS, 


REKKALRER SE EERE 
ae x 
¥PROCEDURE MFGR : 

ERKKRER ERE KREERE 


e 
*. 


St St tt at tt 


ISN  ~*. NO 
LESS THAN — 
ONE * 


eX snece 


ee@e@oeoeesesseseeosusseeeoeevessevoseseseeseseeeseeveseeeuedbBeoe se 8 8a 0 


oe X* 
* 


MFGR 


erIISVVELIOOIO CS 
* 


* PRE SET 
ERRORS 08. 


+e ot tt te 


* 
REKEEPRARKRGREKEK 


FT ed 
+e 


OmerKe © 2 66 6 BOND H><c8 8 © FO © ge Cia Ie yce © 8 oO 8 


Ose % 
OO se 


>< Dong OF 34 
eo mt Moe 


TREKID 2D 


RREKKKRK 


+ 
Sd 
oe 


KRESAE D SRK RKEKS SK 
* * 


*SET uP INTERNAL® 
*TOLERANCE TOL= * 


(* FABS(EPS#PIV) * 


PeRKESDS ORE HERES 


ht OO Oe 


"eR ARG 2% Bok doe oR 
* 


* 
* PRESET RANK #* 


' * INDEX IRANK=0 * 


* * 
x * 
SRK SRAEKKIES KE 


.PERFORMS THE. FOLLOWING 


(BASIS), 


ERKKK AZKREKHKEK EK 
ZENIT LALIT ZE J=1 & 
AS cer COUNT ER* 


eoeeeX® § FOR GAUSS * 


e 
a 
e 
= 
es 
e 
eo 
eo 
a 
e 
eo 
oe 
e 
e 
s 
eo 
® 
e 
J 
s 
= 
2 
s 
s 
eo 
e 
e 
e 
eo 
oe 
es 
a 
e 
eo 
oe 
s 
e 
e 
e 
s 
a 
e 
s 
. 
a 
e 
s 
e 
es 
e 
a 
e 
e 
oe 
es 
e 
e 
e 
e 
e 
e 
s 
e 
e 
s 
eo 
e 
s 
e 
e 
@ 
e 
i 
a 
oe 
oe 
e 
es 
2 
e 
s 
e 
® 
e 
s 
e 
e 
e 
e 
oe 


Ps ELIMINATION : 
BRAKES EKKKKE RES 


SS eee 


x 
oXe 
B30 oe 
-* PIVOT *. 
*. IS ABS{(PIV) . 
e GREATFR .* 
*. TOL .* 
e eX 
* YES 
x 
REAKKCZRKEKEKERRE 
* ra 
* UPDATE RANK, #* 
* TRANK=J * 
* pe 
MARA KEK KE RAKEK KKK 
x 
aXe 
22 *, 
OULD *. 
NO <—- ROWS BE 
*, INTERCHANGED: o* 
#215 IR * 
fe Neos 
x, -* 
* YES 
X 
pial cha ae 
* INTERCHANGE * 
* ROWS * 
* 

* * 
Pe tS 22.5.5 5-5-5355. 2.5.5 3 
xX 
Prt St Seer st ft 5 2 tf 
: x 


UPBAT.E ROW x 
: INDEX Vecror : 


* * 
SHEERS KEREKEEER ERE 


es 
7° 


wescecccesrXe 


x 
0. 
G3 *, 
»*SHOULD *. 
e*COLUMNS BE *. NO 
*. INTERCHANGED .€ 2 00 0X 
*. TRANK.* 
x, .* 
* YES 
x 
Reet Hgebeeeas ate 
*& 
+ INTERCHANGE + 
. COLUMNS = & 
e& * 
REERKREREREERERES 
x 
MRRKK J FRKKEKEKHREK 
* 


x 
* UPNATE COLUMN * 


: INDEX VECTOR <oneee 


z . 
PRERER EE EGE EEE 
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FACTORIZES A SUBMATRIX NF MAXIMAL RANK» 
EXPRESSES BASIC VARIABLES IN TERMS OF FRFE VARTABLFS. 


e 
es 
2 
s 
e 
e 


OR EFFCCKHEFE KR HOHOEKEHEE HHS HCE EE KHEH KE HOCH CEE HE HEE EEK EHR ETE HOOKER OE HOOT EHEC HE HEE? 


NO = 
“tee aD Gk eae eee 
* 
x TR AN SFORM * 
ae oX* CURRENT * 
; SUBMA TRI X : 
KEE KERK EERE EERE EK 
x 
StEERE SSIS SESS SE 
* gett NEXT * 
* PIVOT PIV * 
* . * 
x * 
KERR ECAREREE TERE 
x 


SKRKRE GEEKKKKKEKE 


*STORE ROW INDE X* 


* TR AND COLUMN * 


* INDEX IC OF # 
* PIVOT PIV # 
BERK REKEKERE EELES 
x 

ial lee hdc 
* 

* J=J+1 

* 

* 

MEEK KKK KKK KKK 


HH ee 


peeves scesaserX 


ecce Ke 


e¢seeeeceeoeeveetBoeeeeoetose eas 


eaenev ee veeeeoe on eseaseeseeee een 
‘ bag! 7 


3 ® 
NO .* 


 o* 
YES . *IN 
F 
%, 


YES . 41 


ecoee * 


eocccvcceeX 


RE TURN | 


PERKS FRE REE 
x ENN OF * 


POO OOOO MOD OER OHS HH SETS MESH EHS SOLES He ee HE SESO Se oe EERE SESE Sexe TeererEeseeeereseresenesesersesossesesceseneX* PROCEDURE MFGR * 


Azw 


st 
exe 8 86 ey eens: Bee 8 og 


eeaRaCS eheenenees 
‘ SET_UP_ MATRIX : 


‘SE XPRE SST NG ROW * 


* DEPENDENCIES *% 
* * 


STITT TTT TTT TT TT 


eocccccccerXe 


* 
#71 > © 
> orm 
»><* 6 
xs2zm 
e 
* 


© OmOOo 
e 
* 


* cumou 


BROADEN wee 86 we Sesmnc 
* Kae 

—_{* 

% 

e 


e owmme 


Ze xAPOZ es 


=) 


Pt“ TANST He 


pe ee eevee eee teeeoeeteoseeeteees oF eset oestoesesesheeveestseveeeovesersevevertevevese 


RRKSKKSSERRKSEKE 


a es i) ieee tae th eee 


@eseeeseeeeeseseeeeeeseeeoseseeseos usecase sess eseeeseseesdseovntstneteteseenereensseeeeoeseseeeevsvoeseevevossseeusesnvsosves 


e Subroutine MDLS/MDRS 


MOLS.. 


MOLS 


FRR RRM RH MRR HH HM ER BK HR ER I HH Re I eK ek KKK EEK /MOLS 


/* 

/* FOR AN EQUATION 

/* DEFINITE MATRIX 

/* SOLUTION X 
INVEFSE(T) 


SYSTEM 


* R 


TRANSPOSECINVERSE(T)) * R 
FOR GIVEN TRIANGULAR FACTOR T AND RIGHT HAND SIDE MATRIX R 


A¥X=R 
A=T*TRANSPOSE(T) CALCULATE OPTIONALLY 


*/MDLS 
¥/MDLS 
* &/MDLS 
*/MOLS 
*/MOLS 
*/MOLS 
*/MOLS 
*/MOLS 


WITH SYMMETRIC POSITIVE 


TR RRR RRO FR ORO i dao dak oak gto gk etait toto tok ee tok ee RE RE /M DLS 


PROCEDURE(RsMyNeAsCPT)y. 
DECLARE 


ERROR EXTERNAL CHARACTER(1)» 


(OPT,COPT) CHARACTER (L), 
SUM BINARY FLOAT(53), 
(RO%,*) ACH) ) 

BINARY FLOAT, 

BINARY FLOAT(53), 
CI,ITENDeI IT ,TIAyIIDsIIST IK, 
IKAy I KDs I KSTe Je JEND Kyl yLlDy 
LX elLDX—My MSTA »MDEL + MX,yN) 
BINARY FIXEDe. 


II0,TKA=1,. 

IKDe IT TA=0,. 

TEND =Ny. 

JEND =M-1,. 

GO TO BOTHe. 
MDRS.. 


MOLS 


MOLS. 


/*EXTERNAL ERROR INDICATOR 
/*OPTION PARAMETER 


*/MDLS 
*/MDLS 
MOLS 
MOLS 
/*SINGLE PRECISION VERSION /*S*/MOLS 


/*O0OUBLE PRECISION VERSION /*D*/MOLS 


MOLS 
MOLS 
MOLS 
MOLS 
[ROB ROO RR AOR ICR RIO BOR Rt EE MDL S 
/*INETIALIZE PARAMETERS FOR */MOLS 
/*DIVISTON FROM LEFT */MDLS 
[ROR ROR ROR OR AOR OK BRR SORE EZ M DLS 
MOLS 
MOLS 
MOLS 


(BO OO OOO IOI IO IG io iio ao oi toi noi tok doi lok goto tack tk JMDLS 


1% 


/* FOR AN EQUATION SYSTEM X*A=R WITH SYMMETRIC POSITIVE 
A=T* TRANSPOSE (T) 


/* OEFINITE MATRIX 
/* SOLUTION X 


R * TRANSPOSECINVERSE(T)) 


“Ro %* INVERSE(T) 


FOR GIVEN TRIANGULAR FACTOR T AND RIGHT HAND SIOE MATRIX R 


/% : 


*/MDLS 
*/MDLS 
*/MDLS 
*/MOLS 
*/MDLS 
*/MOLS 
*/MOLS 
*/MDLS 


CALCULATE OPTIONALLY 


SPR RR RR HE he EE a RR ee RK ee ae Re ae a a He eR Re a a a a Ke RE KE LSM OLS 


ENTRY(ReMeNyAyOPT) oo 


IID, 1IKA=0Q,. , 
IKO,ITIA=1l,. 
TENO =Mee 
JEND =N-1,. 
BOTH.» 
ERROR='P*,. 
IF IEND LE 0 
THEN GO TO RETURN,. 
IF JEND LT O 
THEN GO TO PETUFN,. 
LIST, IKST=19. 
COPT =OPT,. 
IF COPT= '2? 
THEN GO TO NEW;,. 


Lx =Cr. 
MSTA»MDEL ¢MXyLD=1y. 


MAIN... 
DO J = TO JEND,. 
it SListy< 
IK =IKST?. 
00 I = TO IEND,. 
SUM =Cy. 
Lt =MSTA,. 
LDX =LD,. 
.00 K =1 TO Jy. 
SUM 
L =L+LDX,. 
LOX =LOX+tLX,. 
II s=TI+i1ID,. 
Ik SIKtIKD,. . 
END,. . 
IF A(L)= C 
THEN DO >. 
ERROR="S*,. 
GO TO RETURN». 
END >. 


ELSE 
II =LTIST+IIA*1». 
IK =I[KST+IKA*I1 ». 
END,. 
MSTA =MSTA+MDEL,. 
MODEL =MDEL+MX,. 
END,. 
IF COPT NE "1° 
THEN 
NEW... 
00;. 
COPT ="1",. 
=Oye 
=l,. 
=—-ly.e 
=-JEND,. 
=(JENO+1)*( JEND+2)/2, 
=—-[ID,. F 
=—-IKD,. 
IF IITA= 0 
THEN IIST =My. 
ELSE IKST =N,. 
GO TO MAINy. 
END, . 
ERROR="0',. 
RETURN. 
END: 


Purpose: 


=SUM*tMULTIPLY(ACL) sRUII IK) ,53),. 


RCI sIKI=CRCIT, TKI-SUMI/A(L),. 


MDLS 

[EK RRA EER RRR RK THREE KERR ERK MOL S 
/*INETIALIZE PARAMETERS FOR */MOLS 
/*DIVISION FROM RIGHT */MDLS 
([ RERERE RR ERAR RHR ERE RRE RHR ERR MDLS 
7 MOLS 

MOLS 

7*P MEANS WRONG PARAMETER */MDLS 
/*TEST INPUT DIMENSIONS M AND N*/MOLS 
; aa MOLS 
MOLS 
MOLS 
MOLS 
MOLS 
*/MOLS 
MDLS 
[RRR ERE EAR RAK EE EK EERE ERE EE EREREE/SMOLS 
/*INITIALIZATION FQR A*X = R- ¥*/MOLS 
/*AND FOR X*TRANSPOSE(A) = RP */MOLS 
[ RRRARRAERRARKEE RE AK EERE RRERE RRA MDOLS 
/*EXECUTE DIVISION PROCESS */MDLS 
MOLS 

*/MODLS 
MOLS 
*/MOLS 
*/MOLS 
MOLS 
MOLS 
*/MDLS 
MDLS 
MOLS 

/*UPDATE ADDRESSING PARAMETERS #/MODLS 


/¥TEST SPECIFIED OPERATION 


/*INITIALIZE ADDRESSING VALUES 


/*EXECUTE LOOP OVER CCLUMNS 
7*OR ROWS OF MATRIX R 


/*COMPUTE SCALAR PRODUCT SUM 


MOLS 
MOLS 
*/MOLS 
MDLS 
*/MDLS 
*/MOLS 
MDLS 
*/MOLS 
MDLS 
MDLS 
*/MOLS 
MOLS 
*/MOLS 
MOLS 
MOLS 
*/MCLS 
MOLS 
[RR RERRAR ERK ERE RE RARE AREER EKER /MDLS 
/*¥INITEALIZATION FOR X*A = R- */MDLS 
/*AND FOR TRANSPOSE(A)*X = P ¥*/MDLS 
FRR RAR RR KO RE RR RE RAS M DLS 
MDLS 

MOLS 

MOLS 

MOLS 

MOLS 


/*IS DIAGONAL TERM IN A ZERO 


/*S MEANS ZERO OIAGONAL TERM 
/¥*IN TRIANGULAR FACTOR A 


/*CALCULATE NEW ELEMENT 


J *UPDATE ADDRESSING PARAMETERS 


/*MODEFY START PARAMETERS 


/*TEST END OF OPERATION 


MDLSLOCO 
*/MDLS1C10 
*/MOLSIC20 


/*SHOULD DIVISION FROM LEFT 
/*BE EXECUTED 


MOLS: 


performs the following calculations depending on 
the character of the input parameter OPT: 


OPT ='1' 
OPT = '!2! 
otherwise 


Usage: 


CALL MDLS (R, 


R(M, N) mee 


A(M*(M+1)/2) -— 


OPT:= 


Purpose: 


OPT ='1' 

OPT ='2! 

otherwise 
Usage: 


MOLS1LO3C 


/*GO TO MAIN PART OF MOLS 
/*SUCCESSFUL OPERATION 
7*END OF PROCEDURE MDLS 





For a system of equations AX = R with symmetric 
positive definite matrix A= T~- T!, MDLS 


*/MDLS1040 
MDLS1050 
*/MDLS1060 
MOLS1070 
*/MDLS1080 


R(M, N) 7 


R is replaced by giorR 
Ris replaced by (r-4yT °R 
R is replaced hy (T ° Tlyl.r 


M, N, A, OPT); 


BINARY FLOAT [ (53) ] 

Given general right-hand-side 
matrix with M rows and N 
columns, 

Resultant solution depending 

on the option parameter OPT, 
BINARY FIXED 

Given number of rows of matrix R 
and the order of matrix A, 


BINARY FIXED 
Given number of columns of 


matrix R. | 
BINARY FLOAT [(53)] 
Given one-dimensional array 


containing lower triangular matrix 


T stored rowwise in compressed 
form (possibly resultant array A 
of SSP procedure MF). 
CHARACTER (1) 

Given option parameter for selec- 
tion of operation. (See ''Purpose"’ 
above. ) | 


For a system of equations XA = R with symmetric 
positive definite matrix A = T ° tt, MDRS per- 
forms the following'calculations, depending on the 
character of an input parameter OPT: 


Ris replaced by R° (r-tyF 
R is replaced by R* T-4 ; 
R is replaced by R° (T° qty 


CALL MDRS (R, M, N, A, OPT); 


BINARY FLOAT [(53) ] 


Given general right-hand-side __ 
matrix with M rows and N columns. 
Resultant solution depending on the 
option parameter OPT. 


M - 


“ 


BINARY FIXED 


Given number of rows of matrix R 
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N- |... BINARY FIXED 
| : Given number of columns of matrix — 

R and the order of matrix A. 

A(N*(N+1)/2) - BINARY FLOAT [(53)] 

| Given one-dimensional array — 

containing lower triangular matrix 
T stored rowwise in compressed 
form (possibly resultant array . A of » 
SSP procedure MFS). 


OPT - CHARACTER (1) .. 
Given option parameter for saison 
of operation (see ''Purpose", above). 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 

following constitutes oe possible error conditions: 

that may be dcrecred | 


ERROR='P' - means error in specified dimensions: 
M < 0 and/or N<0 
ERROR='S' - means given triangular factor T has © 
at least one diagonal term (pivot) equal 
_to zero -- that is, matrix A is not 
positive definite, 


The given lower ignwelan fantor T is assumed to be 
stored in compressed form, that is, rowwise in 
successive K*(K+1)/2 storage locations, where K is 
the number of rows (or columns) implied by 
compatibility: | | 


K=M in procedure MDLS 
K=N_ in procedure MDRS 


During calculation the lower triangular matrix T is 
not changed. The right-hand-side matrix Ris re- © 
placed by the solution Gepenane: on the cee ee of 
parameter OPT. — ——_ ? 


Method: 


It is supposed that the symmetric positive definite 
matrix A is given in the factored form (Cholesky): 


where T is the lower triangular factor (possibly 
calculated by SSP procedure ua and T! the 
transpose of T. 

The required calculations are done using forward 
and/or backward substitutions. 


Mathematical Background: 


Calculation of X = T7! - R is done using forward 


| substitution to obtain X from T+ X=R, 
Calculation of Y = (T~1)T - R ig done using back- 
os ward substitution to obtain Y from 
Tl. Y=R. 
Calculation of Z = (T- rTy-1. R is done by first 
solving T- X=R and then solving | 
Tl .g =x, 
Calculation of X= R(T LT is done using forward sub- 


stitution to. obtain X from X. TT =R. 
Saloutation of Y=R- T+ is done using backward 


_ substitution to eee Y from Y° T=R. 
Calculation of Z=R* (T° T Ty-1 is done by first 
solving X- TT = R and then solving 
Z°°T= ad - 


Programming Cons doeatous: 


The given lower triangular matrix T is assumed to be 
stored rowwise in successive storage locations. 
During calculation, T is not changed, while the right- 
hand-side matrix R is replaced by the solution —__ 
depending on parameter OPT. If any diagonal element 
(pivot) of T is zero, the error parameter ERROR 

is set to 'S' and further calculation is bypassed. Any 
zero pivot in T means that the matrix A=T-+- T° 

is not positive definite, possibly because of severe 


_ loss of significance in the factorization routine. 
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@ Subroutine MDSB 


MOSB. MOSB 
BEBE OBAGI ICRC OCA TUG II IORI IOH Eon baa niin ininiiniicticicticinictact / HDS B 
/* */MDSB 
/% FOR AN EQUATION SYSTEM A¥*X=R WITH SYMMETRIC POSITIVE */MOSB 
* “DEFINITE BANO MATRIX A=TRANSPOSE (T ) *T CALCULATE */MDSB 
/* OPTIONALLY */MOSB 
/* SOLUTION X */MDSB 
/*- TRANSPOSECINVERSE{T)) * FR =/MOSB 
/%* INVERSE(T) * R */MOSB 
FOR GIVEN UPPER BAND FACTOF T AND GENERAL RIGHT HAND: */MDSB 
SIDE MATRIX R */MOSB 
*/MDSB 
FES E UGE OIE ICES IGE SGI IE IGEOE IORI SEE EK EEE KKM DSB 
PROCEDURE (AyRyNyNUDyMyOPT) »~ MOSB 
DECLARE MOSB 
ERROR EXTERNAL CHARACTER(1), */MOSB 
(OPT,COPT) CHARACTER(1), ¥/MOS8 
SUM BINARY FLOAT(53), MOSB 
(A(%_)*) »R(*,*) 5H) MDSB 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MDS3 
BINARY FLOAT(53), /*DOQUBLE PRECISION VERSION /*D*/MDSB 
(TeISTAsTENDsINCRs Je Ky MOSB 
KENDsKIyKINC sKKyLyLM, MOSB 
LNyLNUDsMyNeNC yNRyNUD) MDSA 
BINARY FIXED,. MOSB 
=Nye /*STORE VARIABLES Ny NUDys My */MDSB 
=NUD,. /*OPT FROM CALLING SEQUENCE */MDSB 
=Mre /*INTO LOCAL PARAMETERS */MDSB 
COPT =OPT,. MOSB 
ERROR=!P*,. 
IF LNUD LT O 
THEN GO TO RETURN». 
IF UN LE LNUD 
THEN GO TO RETURN;. 
IF LM LTO. 
THEN GO TO RETURNy. 


/*EXTERNAL ERROR INDICATOR 
/*OPTION PARAMETER 


/*P MEANS WRONG INPUT 
/*TEST SPECIFIED INPUT PARA~ 
7*METERS NUDs Ne M 


*/MDSB 
*/MDSB 
*/MDSB 
MDSB 
#/MDSB 
*/MDSB 
#/MDSB 
*/MDSB 
7aNC AND NR ARE MARKS FOR: BEGIN*®/MDSB 23 
7*AND END OF THE BAND STRUCTURE*/MDSB 
/*SHOULD R BE DIVIDED BY T ONLY#*/MDSB 
GPR KH RR He HR a a ee ok ee ak eK SM OSB 
| /RINITIALIZATION FOR */MDSB 
/*TRANSPOSE(T) * X = R */MDSB 
OPER E RRR EES RH HR RE RRR RH KK RK RES M DSB 
MDSB 
*/MDSB 
*/MOSB 
*/MDSB 
MDSB. 
%*/MDSB 
MDSB 
MDSB. 
*/MDSB 
*/MDSB 
*/MDSB 
*/MDSB 
MDSB 
/*MODIFY KEND */MDSB 
/*LOOP OVER THE M COLUMNS OF R */MDSB 
/*INITIALIZE SUM */MOSB 
MDSB 
*/MDSB 
MDSB 
MDSB 
MOSB 
MDSB 
*/MOSB 
*/MDSR 
MOSB 
*/MDSB 
MDSA 
*/MOSB 
MDSB 
MODSB 
ORAM He a I He a eK a eo te ok ee eo ak KK SMO SB 
/¥INITIALIZATION FOR T * X =-F*/MDSB 
RE RH a a oe Kea a a Re te ke ok a ok oe kok ak ek KYM DSB 
MDSB 
MOSB 
MDSB 
* /MDSB 
MDSB 
*/MDSB 


7*PROCEDURE RETURNS IF AT 
/7*LEAST ONE OF THE PARAMETERS 
gUPs Ny M IS WRONG 


=LNUD+1,. 
=LN-LNUD,. 
IF COPT= '2¢* 
THEN GO TO UPPER,. 
ISTA,INCR=1l,. 
TEND =LN,. 
KINC =-l,. 
MAINee 
00 I =ISTA TO IEND BY INCR,. 
H =A(I[y1l)_. 
IF H=C : 
THEN OO,. 

ERROR="S', 

GO TO RETURN» 

END». 
"KEND =NCye 
[IF INCR= 1 
THEN .L 
ELSE L 
IF L GT O 
THEN KENO =KEND-L,y. 

00 J =1 TO.LM,. 

- SUM =RUI_gJd) 9. 

KI sKK=I 9. 

DO K =2 TO KEND,. 

KI =KI+KINC 9. 

KK =KK-INCR,. 

SUM =SUM- MULTIPLY CA(KI 9K) pRUKK 9 J) 953) 9 

ENDy. 
R(T,J)= UNE 
END,. 


/*EXECUTE LOOP OVER ALL ROWS 
/*STORE I-TH DIAGONAL ELEMENT - 
/*AND TEST IT FOR ZERO 


/*S MEANS ANY PIVOT IS ZERO 


/*KEND ITS END VALUE OF THE 
/*INNERMOST DO-COUNTER K 

/*L ITF DIVISION BY TRANSP(T) 
/*L IF DIVISION 8Y MATRIX T 


=NC—Iy. 
=I-NR». 


/*COMPUTE SCALAR PRODUCT SUM 


/*OIVIDE SUM BY DIAGONAL TERM 
| J*AND STORE IT BACK 
END). 
If CoPT= "1! 
THEN 00,. 
" ERROR=!C'y. 
GO TO RETURNy. 
END». 


/*TEST END OF OPERATION 


/*SUCCESSFUL DIVISION 


UPPER.. 
COPT ='1"',. 
ISTA =UN,. 
INCR =-1,. 
TEND =ly. 
KINC =O, 
GO TO MAIN» « 
RETURN. 
END, a 


/*BRANCH TO THE MAIN LOOPS 


7*END OF PROCEDURE MDS8B 





Purpose: 


Depending on the character of the input parameter 
OPT, MDSB performs the following operations on a 
system of equations A* X =R with symmetric positive 
definite band matrix: 


A=T ° T 


OPT 


oe ee 
'1' Ris replaced by (T 1) 
OPT ='2' R is replaced by eee 


otherwise R is replaced by (rt ° Ty 4 - R 


Usage: 


CALL MDSB (A, R, N, NUD, M, OPT); 


A(N, NUD+1) - BINARY FLOAT [(53)] 

Given two-dimensional array contain- 
ing the upper band factor T stored 
rowwise such that A(i, 1) are the 
diagonal elements (i=1, 2, ... N). 
This could be the resultant array A 
from SSP procedure MFSB. 


R(N, M) - BINARY FLOAT [(53)] 
Given general right-hand-side matrix 
with N rows and M columns. 
Resultant solution depending on 
option parameter OPT, 

N - BINARY FIXED 
Given number of rows of matrices R 
and A, 

NUD - BINARY FIXED 
Given number of upper codiagonals of 
symmetric matrix A, 

M - BINARY FIXED | 
Given number of columns of matrix 
R. 

OPT - CHARACTER (1) 
Given option parameter for selection 
of operation aeee Purpose"). 

Remarks: | 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

that may be detected: 


Indicates an error in specified 


ERROR='P! - 
| dimension: NUD <0 or N s NUD 
ERROR='S' - means the given band factor T has 


at least one diagonal term (pivot) 
equal to zero -- that is, matrix Ais 
not positive definite. 


Upper factor matrix T, consisting of main diagonal 
and NUD upper codiagonals, is assumed to be stored 
rowwise in array A(N, NUD+1) such that A(i, 1) are” 
the diagonal elements of T (i=1,2,...,N). SSP 
procedure MFSB provides upper band factor T in its 


resultant array A, which may be used directly aCe 


input in MDSB. | 
During calculation in MDSB, the band matrix T 

is not changed. The right-hand-side matrix Ris 

replaced by a solution depending on the input 
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character of parameter OPT, Input values N and ° 
NUD anoule cone ae restriction » 


0 < NUD <N 
Method: 


Depending on the actual character of OPT. division 
of R by TI! and/or T is performed using forward 
and/or backward substitutions. The result is 
returned in the locations of R. 


For reference see: 


R. S. Martin and J. H. Wilkinson, "Solution of 
Symmetric and Unsymmetric Band Equations and 
the Calculation of Eigenvectors of Band Matrices", 
Numerische Mathematik, Vol, 9, iss, 4, 1967, 

pp. 279-301. 

H. Rutishauser, "' Algorithmus 1-Lineares 
Gleichungssystem mit symmetrischer positiv- 
definiter Bandmatrix nach Cholesky", Computing 
(Archives for Electronic Computing), Vol. 1, iss. 
1, 1966, PP. 77- 718. 


Mathematical Background: 


The given elements of the upper factor matrix T 
are to be stored rowwise in array A so that A(i, 1) 
are the diagonal elements of T (i=1, 2, ..., N). 
Calculation of X = (T™ LT - Ris done using 
forward substitution to obtain X from T! - X=R_ 
and satisfying the following recursive scheme: 


i-1 
1 

Xie a. ik 2 an, it1-m mk 

_. ik m=mn_. 

0 
m. = max (1, i- NUD); i=1, 2,..., N 
0 | k=1, 2,..., M 

r 
(Any symbol a; cis to be interpreted as 
m=m) 


fe : 0 
zero if r <m):) 


After each Xi, Is computed, it is stored in the 
location r;,. Analogously, computing Y = Tl.R 


is the same as solving the equation T* Y =R for Y. 


_ This is done using backward substitution in a. 
similar recursive scheme: : | 


Yar a tik 25 tim | Yi-l+m,k 
a ee ee a 


Us = min (NUD+1, N+1- i) 


4 =N, N-1,..-,1. 
k=1, 2,...,M 


Calculation of Z = al -R= (ri . Ty . R is done 
by first computing X from TI. X=R and over- 
writing on R, then solving T+ Z =X, again in the 
locations of R. If Ris equal to the unit nee this 
process replaces R with the inverse A-lof A. It 
should be noted that in general Al is no longer a 
band matrix. | | 


Programming Considerations: 


The upper band factor matrix T is assumed to be 
stored rowwise in the two-dimensional array 

A(N, NUD+1) such that A(i, 1) are the diagonal 
elements of T (i=1, 2, ..., N). Therefore, the 
elements A(i,k) of array A withi+k> WN are ir- 
relevant and not used within MDSB. 

During calculation, the upper band factor T is not 
changed, while the right-hand-side matrix R is re- 
placed by a solution depending on the character of 
parameter OPT. 

If any diagonal element A(i, 1) of factoe T is zero, | 
the error parameter ERROR is set to 'S' and further 
calculation is bypassed. Any zero pivot of T means 
that matrix A= T! - T is not positive definite. 
This is possibly due to severe loss of significance in 
the factorization routine. _ | 

If the SSP procedure MFSB provides the factor 
matrix T directly as input for MDSB, the resultant 
error indicator ERROR from MFSB should be tested. 
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e Subroutine MDLG 


MOLG.. ; MOLG 
ROR ORO io So kkk qt folk to toto ge tok tok tok eat J MDL G 
*/MDLG 

FOR AN EQUATION SYSTEM A*X=R WITH GENERAL NON-SINGULAR */MDLG 

MATRIX A=L¥*U “CALCULATE CPTICNALLY */MOLG 
SOLUTION X */MOLG 

INVERSE(L) * R */MDLG 

INVERSE(U) * R */MDLG 

FOR GIVEN TRIANGULAR FACTOFS Ly U AND RIGHT HAND SIDE R &/MDLG 

j */MOLG 

ERR RK AE eR AE a eo eK a a te ok de ak a oe tek ak ok ioe a ke ee tke ee tok dak ee KEM DLG 
PROCEDURE(As&yIPER yNyMyOPT)y. MOLG 
DECLARE MDLG 
ERROR EXTERNAL CHARACTER( 1), /*EXTERNAL ERROR INDICATOR */MDLG 

CPT CHARACTER (1), /*OPTION PARAMETER */MDLG 

SUM BINARY FLOAT(53), MDLG 

(AC %,*) RU %, *) yH) MOLG 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*#S*/MDLG 

BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*0D*/MOLG 
C(IPERC*) gl eISeJy MDLG 

Keb MylLNeMyN) MOLG 

BINARY FIXEOD,. MOLG 

=Mee MOLG 

=Ny. MOLG 
ERROQ=!'pt,, /*P MEANS WRONG INPUT */MDLG 

IF LN LE 0 /*TEST SPECIFIED PARAMETER N */MDLG 
THEN GO TO RETURN». MOLG 

IF LM LE O /*TEST SPECIFIED PARAMETER M */MOLG 
THEN GO TO 2ETUFN,;. MDLG 
ERROR='0',. /*PRESET ERROR INDICATOR *x/MDLG 

IF OPT= "2" /*SHOULD R BE DIVIDED BY U ONLY*/MDLG 
THEN GO TO UPPER,. 1 NE RX Re atte ek oe Fe tk tok tek fo tok a tok EY MOL G 
/*LOOP FOR DIVISION BY LOWER */MOLG 
/*TRIANGULAR MATRIX L */MDLG 
H H=ACI IT) —- [PRR EE RRR OK ek tok ok ek KE KRY MOL G 
IF H= C /*TS ANY DIAGONAL ELEMENT ZERO */MDLG 
THEN O0O;. MOLG 
" ERFGR="S*,, a /*S MEANS ANY PIVOT IS ZERO . */MDLG 

GO TO RETURNy. MOLG 
END»; /*FOR PERMUTATION OF ROWS OF */MOLG 
=[PER(I),. /*RIGHT HAND SIDE ARRAY R */MOLG 

OO K =1 TC LMy. /*LOOP OVER THE M COLUMNS OF R */MDLG 
J*INITIALIZE SUM */MDLG 
RC ISsKIER(1 eK) 9e /*RESTORE ROWS OF ARRAY R */MDLG 

DO J =1 TO [-ly. /*COMPUTE SCALAR PRODUCT SUM */MDLG 

SUM =SUM—MULTIPLY(A(T9J) ¢R0S9K),53)5- MDLG 

END». : MOLG 

R(1,K)=SUM/H,. /*DIVIDE SUM BY DIAGONAL TERM */MDLG 

'" ENDy. © /*AND STORE RESULT */MDLG 

END,. MDLG 

IF OPT= *1¢ /*TEST END OF OPERATION */MOLG 
THEN GO TO RETURN,. SRR RK RARER KARA KAKA ERIM OLG 
; /*LOGOP FOR DIVISION BY UPPER */MDLG 
/*TRIANGULAR MATIX U */MDLG 
LAER EER K ERE AE EE KEK EERE EEE /MDLG 
/*LOOP OVER THE M COLUMNS OF R */MDLG 
/*INITIALIZE SUM *x/MOLG 
/*COMPUTE SCALAR PRODUCT SUM */MDLG 


OO f =1 TO LN». 


SUM HRCISK) 5. 


UPPERe«e 


00 [ =LN-1 TO 1 BY -l,. 
DO K =1 TO LMy. 
SUM =R(UI,K)>. 
DO J =I+1 TO LNe. 
SUM =SUM—MULTIPLYCACT pJ) ROS 9K) 7 53)5. MDLG 


END». . MOLG 
RO1T,KI=SUM,y. /*STORE RESULT */MDLG 
END,. MDLG 

MOLG 
; MDLG 
/*END OF PROCEDURE MDLG */MDLG 


Purpose: 


For a system of equations Ae X=R, where A= L-U 
is a general nonsingular matrix, MDLG performs 

the following calculations, depending on the character 
of an input parameter OPT: 


ae! 
Ris replaced by L © R 


OPT = '1! 

OPT = '2! R is replaced by ut-.R ‘ 

otherwise Ris replaced by (L * U)”~ * R 
Usage: 


CALL MDLG (A, R, IPER, N, M, OPT); 


- A(N,N) - BINARY FLOAT [(53)] 
Given two-dimensional array containing 
lower and upper triangular matrices L 
and U where the unit diagonal of U is 
omitted. 
R(N,M)- BINARY FLOAT [(53)] 


Given general right-hand-side matrix 
with N rows and M columns. | | 
Resultant solution depending on the option 
parameter OPT. 





BINARY FIXED | : 4 
Given integer vector containing the. 
permutations of rows of the matrix A in 
| factorization steps. 
N - BINARY FIXED 
Given order of matrix A and number of 
rows of matrix R. 
M- — BINARY FIXED 
Given number of columns of matrix R. 


IPER(N) - 


OPT - CHARACTER (1) | 
Given option parameter for selection of 
operation (see ''Purpose"). 

Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

that may be detected: 


ERROR='P' - means error in specified dimensions: 
M <0 and/or N <0 | 

ERROR='S' - means that a diagonal element (pivot) 
in the given lower triangular matrix 
L is zero; further calculation is 
bypassed. 


The given matrix A is assumed to be factorized into 
a product of a lower triangular matrix L and an upper 
triangular matrix U using partial pivoting with row 
interchanges, where L and U are overwritten on A, 
omitting the unit diagonal of U. Details of the row 
interchanges are to be stored in the vector IPER. 
This required factorization may be obtained using the 
SSP procedure MFG. The resulting arrays A and 
IPER are used as input for MDLG. ; 

During calculation in MDLG the arrays A and 
IPER are not changed. The right-hand-side matrix 
R is replaced by a solution depending on the char- 
acter of parameter OPT. : 


Method: 
The required calculations are performed using 
forward and/or backward substitutions, where the 


interchange information is combined with the lower 
triangular matrix L. 


Mathematical Background: 


Suppose a general nonsingular matrix A of order n 


is factored into the form: 
A=P-+- LeU | 
where L is the lower triangular matrix, U the upper 


triangular matrix with unit diagonal, and P the per- 
mutation matrix corresponding to the integer vector 
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IPER, Then X=L7l. pl. pen!. Ris cal- 
culated using forward substitution to obtain X from 
L-- X=Pp-l. R=R. Ris obtained from R by 
interchanging rows in the same way as the rows of 
matrix A are interchanged during partial pivoting ~ 
in any factorization routine (for example, MFG). 
To calculate Y = U-1.- R backward substitution 
is used in obtaining Y from U- Y=R. Calculation 
of Z=uU-1. u-1- ppl. R=u-l. L-!- Ris done 


by first solving L- X =R and then solving U- Z=X. 


Programming Considerations: 


Matrix A is assumed to be given in the factored - 
form: | 


A=P-L-U 


where the lower triangular matrix L and the upper 
triangular matrix U are overwritten on A, omitting 
the unit diagonal of U. The permutation matrix P 
is obtained by interchanging the rows of ann by n 
unit matrix according to information stored in the 
vector IPER. - | 


e Subroutine MIG 


MIGee : 2 ; ah MIG 
72a oo For i ao RI il too dol too doliiigio ia tat iki tok k toto $k 804% 7 MG 
; : */MIG 
INVERT A FACTORIZED GENERAL MATRIX A. : */MIG 
‘A MUST BE FACTORIZED INTO THE FORM A.= L¥U, WHERE THE */MIG 
UPPER TRIANGULAR MATRIX U CONTAINS THE UNIT DIAGONAL . */HIG 
WHICH IS NOT STORED. , */MIG 
: : */MIG 
(ROO CGO IG IO REI ROO RU i TOR IG Oa Rai RRR aR sai ta toro tok atk tk 7 MG 
PROCEDURE (CAgI PERN) go. : 
DECLARE , 
ERROR EXTERNAL CHARACTER( 1), | /*EXTERNAL ERROR INDICATOR 
SUM BINARY FLOAT(53), 
(AC*,*),PIV) 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MIG 
. BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*0*/MIG 
A POER CED Tete Keb Ny My MNyN) MIG 
BINARY FIXED,. MIG 
=Nee MIG 
=LN—-1lee. MIG 
IF LN LE O ; /*TEST SPECIFIED PARAMETER N */MIG 
THEN DO,y. 
ERROR="P',. /*P MEANS WRONG INPUT 
GO TO RETURN,. 
ENDy. LERKREREREEEE EERE EAE EERE KE KERR MIG 
7 /*INVERT LOWER TRIANG. MATRIX L*/MIG 
DO I =O TU MNy. . J RRA RAR RAE TORE HOR EK RIOR KE KZ MTG 
M =I+ly. ne ; MIG 
PIV SA(MaM) oe - MIG 
IF PIV= © /*1S ANY DIAGONAL ELEMENT ZERO */MIG 
THEN DO,. 
ERROR='S',. /*S MEANS NEXT PIVOT ELEMENT 
GO TO RETURN,. /*#IS ZERO 


END,. 
PIVsACMyMD=1/PIVe. /*CALCULATE NEW DIAGONAL TERM 
J =1 TO T;. ‘/*EXECUTE LOOP IN M-TH ROW 
' SUM =0%. . 
DO K =J TO Iy. /*COMPUTE SCALAR PRODUCT SUM 
SUM =SUM#MULTIPLYCA(MsK) gACKe J) 953) 9% 
END. 
AC My J)=-SUM*PIV,. /*CALCULATE AND STORE NEW TERM */MIG 
MIG 
SRK MEERA RHEE KHER AK EERE IMIG 
7 *INVERT UPPER TRIANG. MATRIX U*/MIG 
DO I =MN TQ l BY —loe SERRE REAR RRR EKAKKEKEREK/M TG 
M =I+le. MIG 
DO J =LN TO M BY —ly. /*EXECUTE LOOP IN I-TH ROW */M1G 
SUM =AllyJ)y~ MIG 
DO K =M TO J-le. /*COMPUTE SCALAR PRODUCT SUM */MIG 
SUM =SUM+MULTIPLY(CACI 4K) gACKe Jd) 953)96 MIG 
END. MIG 
ACI, J)=—-SUM» « /*STORE NEW VALUE */MIG - 
END, . MIG 
END,. TERR RRR Fe tO RR eR te ke KK KK IMT G 
: /*MULTIPLY INVERSECUI*INVIL) */MIG 
pa I =1 TO MNoe : LR Rem RR Re Re OK ak tee i eek ek tok kok SM TG 
M =I+l,. 
DO J =1 TO LNy. /*EXECUTE LOOP IN I~TH ROW 
IF uv LE I 
THEN SUM =ACI9J)y. 7*FOR LOWER TRIANGULAR PART 
ELSE DOy. 
SUM =O. /*IF ELEMENT AC(I,J) BELONGS TG 
M =Jye0 /*THE UPPER TRIANGULAR PART OF 
END». /*MATRIX A 
/*COMPUTE SCALAR PRODUCT SUM 
DO K =M TO LNe. /*OF I-TH ROW WITH J-TH COLUMN */MIG 
SUM =SUM#MULTIPLY CAC I eK) 9 A(Ky J) 95370. 
ENDy. as ; 
A(1I,J)=SUM,. 7*STORE RESULT 
END,. 
END, ° ‘ (ROR to Rok oto Jak Soto ko otek kK YM EG 
/*RE~ENTERCHANGE COLUMNS OF A ¥*/MIG 
OC I =MN TO l BY —-1ls. GRR MK RRR RRR HE RK KKK KR LMT G 
M =IPER(I),>. MIG 
IF M GTI. : /*SHOULD RE-INTERCHANGE BE DONE*/MIG 
THEN DO,. MIG 
- O00 J =1 TO LN». ./*INTERCHANGE COLUMN I WITH */MIG 
PIV =AlJel) ye /*COLUMN IPER(T) */MIG 
A(JSyT)=ACd9M) 96 MIG 
AUJyM)=PIV,. MIG 
ENDy. MIG 
MIG 
MIG 
MIG 
/*END OF PROCEDURE MIG */MIG 





Purpose: 7 


MIG inverts a general nonsingular matrix A, which 
is given in the factored form: 


A=L° U 


where the upper triangular matrix U contains the 
unit diagonal, which is not stored. 


Usage: 
CALL MIG (A, IPER, N); . 
A(N,N) - BINARY FLOAT [(53)] 


Given two-dimensional array containing 
lower and upper triangular factors L and 
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U, where the unit diagonal of U is not 
stored (possibly resultant array A of 

‘SSP procedure MFG). 

Resultant calculated inverse of matrix 
A 


IPER(N) - BINARY FIXED 


Given vector contains the permutations 
of rows of the matrix in factorization 
steps. 

N - BINARY FIXED 
Given order of matrix A. 

Remarks: 


. ERROR='P! - means error in specified dimension: 
| N <0 


ERROR='S' - means that a diagonal element (pivot) 
in the given lower triangular matrix 
L is zero; further calculation is 
bypassed. 

Method: 


It is required that the general nonsingular matrix 
A be given in the factored form: 


A=L: U 


where L means the lower triangular matrix and U the 
upper triangular matrix with unit diagonal. L and 
the superdiagonal part of U are stored in the storage 
locations of A, which may be factored by SSP pro- 
cedure MFG, 

In the first step MIG inverts L, giving Oia! which 
is overwritten on L. In the second step Un! is 
calculated and stored in U. Then U7! is multiplied 
by Ll, giving, in an order determined by pivoting, 
the columns of Aq}, These, finally, are reordered 
to produce A7!, | 


For reference see: 


A. S. Householder, The Theory of Matrices in Nu- 
merical Analysis, 1965, pp. 125-130, 

A, Ralston and H.S. Wilf, Mathematical Methods 
for Digital Computers, Vol. 2, 1967, pp. 69-71. 
R, Zurmuthl, Matrizen, 1964, pp. 75-77. 


Mathematical Background: 


Suppose A, a general nonsingular matrix of order 
N, is factored into the form: , 


A=P+ L* U. 


where L is the lower triangular matrix, U the upper 
triangular matrix with unit diagonal, and P the 


1. The elements Lip of L- 


row-permutation matrix (unit matrix with inter-. 
changed rows) resulting from partial pivoting in any 
factorization routine, Then A71 is calculated in 


_ four steps: 


1 are computed from the 
elements lj, of L with the following recursive 
formulas: 


x 1 i-1 7 
i ie. ig ae. ve 
| il m=k | - 
as . 1 a 
le = a i=k 
| ii 
ik = 0 i<k 


2, The elements tj, of U-! are computed from the 
elements uy, of U with the following recurrsive 
formulas: 


k-1 
Mie "Uye” Qe Yam * Fink iss 
— m=itl 
k-1 
(any symbol > Xa is tobe interpreted as zero) 
m=k | 
Us = 1 i=k 
wi 0 . imk 
8. The elements 4; of the product u-l - tt are 
computed with the formulas: 
N 
ee du im milk 1Sk 
m=it1 
N : 
—— _ nny ; — vc 
Aik du “im ak = 
m=k 


4, The resultant product ut. tlis multiplied 
on the right by the inverse permutation matrix Pu! 
giving: 


-1 1 -1 -1 


A“=U":L "+P 

That is, the columns of the product u-L . tl are 
rearranged according to the interchanges performed 
during the factorization of the matrix. 
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Programming Considerations: 
Matrix Ais required in the factored form: 
A=P+L-+U 


where L is the lower triangular matrix, U the upper 
triangular matrix with unit diagonal, and P the 
permutation matrix corresponding to the integer 
vector IPER. L and the superdiagonal part of U are 
to be stored in the two-dimensional array A.. 

If the required factorization is done using the SSP 
procedure MFG, the resulting arrays A and IPER 
may be directly used as input for MIG. The inverse 
matrix A7! is calculated by MIG in the storage 
locations of array A. 


e Subroutine MIS 


+ MIS. MIS 10 
[ai rin tania oiibiora inti ieint oniciicinio iii tot itiotieioiniag acini taticin ar it / MS 20 
/* */MIS 30 
/* - ' INVERT SYMMETRIC POSITIVE DEFINITE MATRIX */MITS 40 
/* e/MIS 50 
EIS AES IG I IOI SID ISI IOI III DI IOI ISI I IOI ISI OR TI AO TIO IIIA BORA TOR MTS 60 

PROCEDURE(A,N) 9. F “' MIS | 70 
DECLARE MIS 80 
ERROR EXTERNAL CHARACTER(1),: /*EXTERNAL ERROR INDICATOR © */MIS 90 

SUM BINARY ELeiee MIS . 100 
(AC) PIV) MIS 110 
BINARY FLOAT, : /*SINGLE PRECISION VERSION /*S*/MIS) 120 

/* BINARY FLOAT(53), /*DOUBLE PRECISION VEPSION /*D*/MIS 130 
CICOL,IPIVeITROWs J eKy lh aL Ny MyN) MIS 140 
BINARY FIXED,. MIS 150 

(BRERA G ROO HOI IORI OO ZMTS — 160 

_/*INVERT TRIANGULAR MATRIX */MTS 170 

tN ahve Los snaesunesersesereensaytnesee('ts 180 
=0+ 1S 190 

iF LN LE "9 /*TEST SPECIFIED PARAMETER N e/Mis 200 
THEN 00,;. eo MIS 210 
ERRORS'P!' ye /*P MEANS WRONG INPUT */MIS 220 

GO TO RETURNy».  . , ' MIS 230 
ENDy. MIS 240 
/*PERFORM LOOP OVER ALL ROWS */MTS 250 

DO K =O TO LN-ly. , MIS 260 

IPIV =Oy.5 MIS 270 

J aJtly. MIS 280 

PIV =BACStHK) ». ; MIS 290 

IF PIV= 0 7*1S ANY DIAGONAL ELEMENT ZERO */MIS a3C0 

THEN 00>. MIS 310 
ERRCRE#S!,, /*S MEANS MATRIX IS NOT — */MIS 320 

GO TO RETURN». . /*POSITIVE DEFINITE */MITS 330 

END» , ‘ ee, MIS 340 
PIV,ACJ#K) =L/PIVy~ — ; MIS 350 

- DO L Fl TO Kye | “*EXECUTE LOOP IN (K#1)—-TH ROW */MIS 360 

SUM =09. MIS 370 

TROW =Jo- MIS 380 
ICOL,IPIV=IPIV+tL,. MIS 390 

DO M =L TO Ky. /*CALCULATE SCALAR. PRODUCTS */MIS 400 

SUM =SUM+MULTIPLY(ACTROW) ,ACICOL) 953),. MIS 410 

ICOL =ICOL+tM,. MIS 420 

TIROW =IROW+1». MIS 430 

ENOy. MIS 440 

avd) =~SUM*PIV,. /*CALCULATE NEW ELEMENT */MIS 450 

J SJtly. MIS 460 

END» « MES 470 

ENDy. DRE CE ROI ER ROE RR ERIM TS 480 

. /*MULTIPLY WITH TRANSPOSE | */MIS 490 

=Ore (ea aoa ie tot ioe tok ici kM TS 500 

OO K =1 TO LNy. /*PERFORM LOOP OVER ALL ROWS */MIS 510 
ROW =Kee a MIS 520 

DO L =1l TO Kye /*EXECUTE LOOP WITHIN K-TH ROW */MIS 530 

SUM =Cy. MIS 540 
ICOLsJ=Jtlye. MIS 550 

IFOW =IROW-1y. . MIS 560 

00 M =K TO LNy. /*CALCULATE SCALAR PRODUCTS */MIS 570 

SUM =SUM4#MULTIPLYCACICOL) s ACI COL+TROW) » 53) ~ MIS 580 

ICOL =ICOL+M,. . MIS 590 

END;. ; ' 3 % att - MIS 600 

A(J) =SUM,. : ‘ “' MIS 610 

. ENDy. . on MIS 620 
END,. a . , - _ MIS 630 
RETURN... MIS 640 


ENDy. /*END OF PROCEOURE MIS _-R/MIS 650 


Purpose: 


MIS inverts a symmetric positive definite matrix A, 
which is given in factored form (Cholesky): 


A=T- transpose (T) 


Dae, 
CALL MIS (A, N); 


acaaeay/2) ~ BINARY FLOAT [681 
Given one-dimensional array con- | 
taining the lower triangular factor T 
: of matrix A stored rowwise in com- 
pressed form: (possibly resultant 
array A of SSP procedure MFS). 
Resultant lower triangular part of 
calculated inverse (A) stored row- 
’ wise in compressed form. | 
N - | BINARY FIXED 
“Given order of matricés A and T. 
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Remarks: 


ERROR='P'! means error in specified dimension: 
N<0 
ERROR='S'. means given triangular factor T has 


at least one pivot equal to zero -- 
that is, matrix A is not positive 
definite. 


The given lower triangular factor T is assumed to be | 


stored in compressed form -- that is, rowwise in 
N*(N+1)/2 successive storage locations. On return 
the lower triangular part of the inverse of Ais 
stored in the same way. 


Method: 


It is supposed that the symmetric positive definite 
matrix Ais given in the factored form (Cholesky): 


A=T-. transpose (T) 
where T is the lower triangular factor, possibly 
calculated by SSP procedure MIS. 

‘In the first step MIS inverts the given triangular 
matrix T in the storage locations of T. Using 


inverse (transpose (T)) = transpose (inverse (T)) 


in the second step MIS multiplies inverse (T) with 
_its transpose on the same storage locations, giving 


inverse (A) = transpose (inverse (T)) _ 
« inverse (T) 


Thus, the given lower triangular factor T is re- 
placed by the lower part of the resultant inverse (A). 


For reference see: 

A. S. Householder, The Theory of Matrices in 
Numerical Analysis, 1965, pp. 125-130, 

R. Zurmuhl, Matrizen, 1964, pp. 77-79. 
Mathematical Background: 


Suppose the symmetric positive definite matrix A is 
factored in the form: 


A=T >» transpose (T) | 
where T is a lower triangular factor matrix. Then: 
inverse (A) = transpose (inverse (T)) 


- inverse (T) 


1, The elements tj, of inverse (T) are computed 
from the elements tj, of T using the following re- 
cursive formulas: 


i-1 

; 2 Pate ven | 

— _ 

te t. iar 

ll 

_ 1 = 

Ce E a 
ll 

“as = % 3 te an 

bie 0 | i<k 


2. From inverse (T) the elements aj; of inverse 
(A) are calculated as follows: 


N 
Bier ee ie” ea — 
m=1 
with ai = Aas 


Programming Considerations: 


The given lower triangular matrix T is assumed to 
be stored in compressed form -- that is, rowwise 
in N - (N+1)/2 successive storage locations. The 
lower triangular part of the resultant inverse (A) is 
returned in these locations of T. 

If any pivot of the input matrix T is equal to zero, 
the error parameter ERROR is set to 'S' and further 
calculation is bypassed, Any zero pivot in T means 
that matrix A= T+ transpose (T) is not positive 
definite, possibly because of severe loss of signif- 
icance in the factorization routine, 
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@ Subroutine MINV 





MINV1250 
MINV1L260 
MINV1270 
MINV1280 

. MINV1I290 
MINVL300 
MINV1310 
MINV1320 

/ */MINVL330 


AUKs I) =—-AldeI)9- 
A(J,I)=HOLD,. 
ENDy. 
END,. 
GO. TO LOOP,. 
END, . 
FINee 
RETURN,. 
END,. 


/*END OF PROCEDURE MINV 


Purpose: 


MINV inverts a general square matrix. 


A(N, N) 


Usage: 
CALL MINV (A, N, D, CON); 


BINARY FLOAT [(53)] 
Given matrix. 


Resultant inverse of given matrix. 


BINARY FIXED 

Given order of matrix A. 
BINARY FLOAT [(58) | 
Resultant determinant. 


CON- BINARY FLOAT [(53)] 


Given constant with which the determinant 
is compared, If the given value of CON 
is zero, the program assigns the value 10 


in single precision and 10715 


precision, 


Remarks: 


A must be a general square matrix. 


is double © 


If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitute the possible error condi- 


tions that may be detected: 


ERROR=1 - means that the order of the matrix is 

less than or equal to zero. 

ERROR=2 - means that the absolute value of the 
determinant is less than or equal to the 
specified constant CON (see descrip- 
tion of parameters for explanation). 

Method: 


The standard Gauss-Jordan method is used and the 


determinant is calculated. 


$ 


MINVee MINV 10° 
LEREEEEKEREEEREKE KEKE KRKEKAE KEKKKKESHEKAKKKKKKKKSE £4 RE EEE EE EEE / MINV 20 
/* */MINV 30 
/* TO INVERT A MATRIX */MINV 40 | 
/* */MINV 50 
JRE EHEC R IC aa ao none ede aa aie oeiaiia soci rte iatk 47 HINV 60 
PROCEDURE (AsN;DyCON),».~ MINV 70 
DECLARE MINV 80 
ERROR EXTERNAL CHARACTER(L), MINV 90 
(IleJeKeNe LON) yMO(N)) MINV 100 

FIXED BINARY» MINV 110 

(A(*,*) »BIGAyHOLD,DyCONS) MINV 120 

BINARY FLOAT,.~ /*SINGLE PRECISION VERSION /*#S*/MINV 130 

/* BINARY FLOAT (53) 9. 7*DOUBLE PRECISION VERSION /*D*/MINV 140 
/* *#/MINV 150 
ERROR="0'y. MINV 160 

IF N LE O MINV 170 
THEN DO,.~ MINV 180 
ERROR='1" 9. /* ORDER OF MATRIX = 0. */MINV 190 

GO TO FINe. MINV 200 

END +. MINV 210 

IF CON= 0 MINV 220 
THEN S =1.,0E-5S ee /* SINGLE PRECISION VERSION /*S*/MINV 230 
/*THEN S - =1.0E-159~ 7* DOUBLE PRECISION VERSION /*D*/MINV 240 
“ELSE S$ =CON¢. MINV 250 
“IEF N=1 4 /* INVERT A SCALAR */MINV 260 
THEN DOy- MINV 270 

D =Allel)dey. MINV 280 

IF ABS(D) LE S. MINV 290 

THEN DO,y. MINV 300 
ERROR="2' 5. MINV 310 

ENDy. MINV 320 

ELSE Allyl) = 1/Dy. MINV 330 

GO TO FINe. MINV 340 

END». MINV 350 

D =1.096 /* SEARCH FOR LARGEST ELEMENT */MINV 360 

DO K = 1 TO Nee .MINV 370 

L(K) =Ky. MINV 380 

M(K) =Kye MINV 390 

BIGA =AlKoK) 9 MINV 400 

DO I=K TO Nee MINV 410 

DO J=K TO Ne. -MINV 420 

IF ABS(BIGA) LT ABSCALTs yy) MINV 430 

THEN DOo. MINV 440 

BIGA =AlleJ)o. MINV 450 

L(K) =Iy- MINV 460 

M(K) =Je5 MINV 470} 

END». MINV 480 

END». MINV 490 

END;. MINV 500° 

J =L(K) 960 /* INTERCHANGE ROWS */MINV 510° 

IF L(K) GT K MINV 520. 

THEN DO,. MINV 530 

DO I = 1 TO Ny». MINV 540 

HOLD =-AlKyI) 96 MINV 550 

ACK aT =Aldel) oe MINV 560 

A(JsI)=HOLD,. MINV 570 

END ye MINV 580 | 

_ END». a MINV 590 

I =M(K) 96 /* INTERCHANGE COLUMNS ~ */MINV 600! 

IF M(K) GT K _ MIENV 610! 

’ . THEN DO,y. MINV 620; 

DO J = 1 TO Nee MINV 630 

HOLD =-ACJyK) 6 MINV 640) 

ACJ eK) =Al Jol) os MINV 650! 

A(JyI)=HOLD,. MINV 660! 

END)». 'MINV 670: 

END». MINV 680! 

IF ABS(BIGA) LE S$ MINV 690) 

THEN DO,;. MINV 700! 

D =0.09. MINV TLO} 

GO TO COMP,. MINV 720: 

END). MINV 730{ 

/* */MINV. 740! 
/* DIVIDE COLUMNS BY MINUS PIVOT (VALUE OF PIVOT ELEMENT IS */MINV 750, 
/* CONTAINED IN BIGA) _— */MINV 760! 
DO I = 1 TO Ny. MINV. 770: 

IF I NE K i MINV 780, 

THEN ALI sK)= ACL KI/ (= A(KeK)) 96 MINV 790: 

END,. a8 a3 MINV 800! 

DO I = 1 TO No. /* REDUCE MATRIX */MINV 810: 

IF I NE K MINV 820; 

THEN DO». MINV 830! 

DO J = 1 TO Nye MINV 840: 

IF J NE K MINV 850: 

THEN A(I,J)=ACly Ki SACK SI ALE MINV 860: 

END». MINV 870! 

END ye MINV~ 880! 

END». MINV 890: 

DO J = 1 TO Nee MINV 900 

IF J NE K /* DIVIDE BY ROW PIVOT */MINV 910. 

THEN Al KyJ)=A( Kad) JACK K) 90 MINV 920| 

ENDs« MINV 930! 

D =D¥A(KsK) 96 7* COMPUTE DETERMINANT */MINV 940: 

COMP... MINV 950: 
IF ABS(D) LE S MINV 960. 

THEN DOy. MINV 970. 
ERROR="2",. /7* DETERMINANT IS ZERO */MINV 980! 

GO TO FINeg. MINV 990. 

END». MINVLOOO: 

ACK K)=LeO/AUK aK) 90 _/* REPLACE PIVOT BY RECIPROCAL */MINV1010! 

END»). MINV1020' 

/% */MINV1030! 
/* FINAL ROW AND COLUMN INTERCHANGE */MINV1040, 
/* */MINV1050! 
K =Nee MINV1060 
LOooP.. MINV1OTO 
K =K-lee MINV1080 

IF K GT O MINV1090{ 
THEN DO,y. MINV1100° 

I =L(K) 96 MINV11LO: 

IF I GT K MINV1120! 

THEN DO,. MINV1130; 

DO J = 1 TO Ny. MINV1140, 

HOLD =A(JyK)o6 MINV1150. 

AUS sK)=-Al Jel) 90 MINV1160: 

Al Jel) =HOLD». MINV1L170: 

END 9. MINV1L8O, 

END es MINV1190. 

J =M(K) 96 MINV1200 

IF J GT K MINV1210° 

THEN DO,. MINV1220. 

DO I = 1 TO Noe MINV1230 

HOLD =A(Kol)y. MINVL240) 
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e Subroutine MLSQ 

MLSQ.. MLSQ 10° 
De IOI OO RO StU i ORR ROI ROO IO OR 8 tk OR ERE RESML SQ 20) 
/* */MLSQ 30! 
/* LINEAR LEAST SQUARES PROBLEM SOLVED USING HOUSEHOLDER TRANSF.*/MLSQ 40: 
/* */MLSQ 50 
723 ICI IOIGIO OIG IOIUIG SOIR RIG ROR AOI RO IC ARORA OR I RO FO REE RR EZ ML SQ 60 
PROCEDURECArByMeNoK) 9. MLSQ > 70° 
DECLARE MLSO 80 
CAC*,*) 4B 0%) *) »PIVRyMAXA) MLSQ 90 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/MLSQ 100 
7% BINARY FLOAT(53), /*0D0UBLE PRECISION VERSION /*D¥*/MLSQ 110 
(AUX(N) Hy SIG,»BETA) MLSQ 120 
“BINARY FLOAT(53) >» MLSQ 130 
(TOL,PIVOEN)) MLSQ 140 
BINARY FLOAT, MLSQ 150 
ERRO@® EXTERNAL CHARACTER(L)», /*EXTERNAL ERROR INDICATOR */M4LSQ 160 
(Ly JeKeloMyNePIVI si MylNoLlK) MLSQ 170 
BINARY FIXED). MLSQ 180 
LM =My. MLSQ 190 
LN =Nye MLSQ 200 
LK =Kye MLSQ 210 
ERROR="D",. /*PRESET ERROR INDICATOR */MLSQ 230 
IF UM GE LN /*1F M LESS THAN N */MLSQ 240 
THEN IF LN GE C /*OR IF N NOT POSITIVE */MLSQ 250 
THEN IF LK GT O /*OR IF K NOT POSITIVE */MLSQ 260 
THEN OO). /*THEN BYPASS OPERATION */MLSQ 270 
pO L = Ll TO LN». /*CALCULATE SCALARPRODUCTS OF */MLSQ 280 
H =Cy6 7*COLUMNS */MLSQ 290 
00 I = 1 TO LM. MLSQ 300 
H =H+MULTIPLYCACT ob) sACT sb) 953) 9. MLSQ 310 
END». : MLSQ 320 
IF H GE SIG MLSQ 330 
THEN DO,. MLSQ 340 
SIG =Hre /*SAVE MAXIMAL SCALARPRODUCT */MLSQ 350 
PIVI =Lee 7*SAVE SUBSCRIPT OF PIVOTCOLUMN*®/MLSQ 360 
END». MLSQ 370 
- AUX(L) sPIVIL) =Hoe MLSQ 380 
END oe [RRR RRA EAE EKER REESE ERK KKK ML SQ 390 
am /*OECOMPOSITION LOOP ; */4LSQ 400 
ERROR='"O',. [PRRREREK EKER ERK ERE RE EE KKH KE IML SO 410 
00 t = 1 TO LNg.- MLSQ 420 
TOL =PIV(PIVI),. /*ORIGINAL LENGTH OF PIVOTCOL. */MLSQ 430 
IF PIVI GT L /*SHOULD COLUMN. BE INTERCHANGEO*/MLSQ 440 
THEN DOs. MLSQ 450 
H =AUX(L) 9 /* INTERCHANGE SCALARPRODUCTS */MLSQ 460 
AUX(L) =AUXCPIVI) 56 MLSQ 470 
PIV(PIVI)=PIV(L) o. “MLSQ 480 
AUX(PIVI) =He. : MLSOQ 490 
DO J=L TO LMye /*INTERCHANGE LOWER PART OF- ¥*/MLSO 500 
PIVR =AlJslL)y. /*COLUMNS OF A */MLSQ 510 
A(SeL ISAC Je PIVID 5. MLSQ 520 
A(JePIVI)=PIVP,. MLSQ 530 
ENDy. MLSQ 54C 
END». MLSQ 550 
IF & GT 1 /*RECALCULATE COLUMN LENGTH */MLSQ 560 
THEN DQO,. /*TO AVOIO ROUND-OFF PROBLEMS ¥*/MLSQ 570 
SIG =Cy. . MLSO 580 
po lt =t TO LM,. MLSQ 590 
SIG =SIG#tMULTIPLYC ACT el) ACT 9h) 953) 96 MLSQ 600 
END;. .MLSO 610 
END,. MLSQ 620 
IF TOL= ¢ MLSQ 630 
’ THEN DQ,. - MLSO 640 
If ERROR NE "B88 MLSQ 650 
THEN IF ERROR NE 'W!? MLSQ 660 
THEN ERROR='S',. /*GIVEN A HAS ZERO-COLUMN(S) */MLSQ 670 
ELSE ERROR="Bt,. MLSQ 680 
TOL =k. MLSQ 690 
END». MLSQ 700 
BETA =TOL¥1E-10,. /*SINGLE PRECISION VERSION /*S#*/MLSQ 710 
/* SETA =TOL*1E-2C,. /*00UBLE PRECISION VERSION /¥*D*®/MLSQ 720 
. IF SIG LE BETA MLSQ 730 
THEN DO,. /*INDICATE LOSS OF SIGNIFICANCE*/MLSQ 740 
If ERROR NE "B! MLSQ 750 
THEN IF ERROR NE 'S* MLSQ 760 
THEN ERSOR='W',. MLSQ 770 
ELSE ERROR='"B",y. MLSQ 780 
IF SIG LE 0 MLSQ 790 
THEN SIG =BETA,. /*MODIFY ZERO VALUE */MLSQ 800 
END». MLSQ 810 
SIG =SQRTC(SIG),. MLSQ 820 
H =AlLyL)g. MLSQ 830 
IF H LT O : a MLSQ 840 
THEN SIG =-SIG,. /*FORCE SIGN(SIG) TO SIGN(H) */MLSO 850 
PIV(LI=PIVI +. /*SAVE INTERCHANGE INFORMATION */MLSQ 860 
A(L,L) »BETA=HtSIGs. / *TRANSFORM OLAGONAL ELEMENT */4LSQ 870 
AUX(L)=-SIG). /*SAVE DIAGONAL ELEMENT */MLSQ 880 
BETA =SIG*BETA,. MLSQ 890 
/*TRANSFORM SUBMATRIX OF A */4LSQ 900 
PIVR =O. MLSQ 910 
DC J = L+l TO LN». /*TRANSFORM LOWER PART OF A */MLSQ 920 
H =Cqe /*COLUMNS L#l UP TO N ONLY */MLSQ 930 
oc I = lL TC LMy. MLSQ 940 
H =H#MULTIPLYCACT ob) ACT 2 5)253) 9. MLSQ 950 
END». : MLSQ 960 
SIG. =H/BETA,. /*MODIFY J-TH COLUMN */MLSQ 970 
DO I = LM TOL BY —ly. MLSQ 980 
H =ACIyJ),. ' , MLSQ 990 
A( I,J) =H-ACI,L) *SIG,. : MLSQ1000 
ENDy- /*NEXT UPDATE COLUMN LENGTH */MLSQIOLO 
H =AtLoJS) oe MLSQ1020 
AUX(J) »H=AUX( J} -H¥Hy MLSQ1030 
IF H GE PIVR : /*SEARCH NEXT PIVOTCOLUMN */MLSOL040 
THEN ON,. i MLSO1050 
PIVR =H,y. MLSQ1060 
PIVI =Je. MLSQ1070 
END. ML SQ1080 
END,. — MLSQ1090 
/*TRANSFORM LGWER PART OF */MLSG1100 
DO J = 1 TO LKy. /*RIGHT HAND SIDE MATRIX B */MLSQLLIC 
H =0y. ; 7 _ MLSQ1120 
OO I = t TC LM,. MLSQ1130 
H =H+MULTIPLYCACTyL) B(19d) 553906 MLSQ1140 
END). 88 MLSQ1150 
MAXA =H/BETA,. /*MODIFY J-TH CCLUMN - */MLSQ1160 
DO I = L TO LMy. -MLSQ1170 
BII,J)=8(1,J)-Al1_,L) #MAXA,. MLSO118¢C 
END. MLSQ1190 
END,. ML'SQ1 200 
END». /*END OF DECOMPOSITION LOOP */MLS0121C 
J RRR REE RHR KE KR RK RE RARE EE/ME SQL 220 
DO J = LN TO 1 BY ly. / *BACK SUBSTITUTION» INTERCHANGE */MLSQ1230 

DO I = 1 TO LKy. 


7 SE Ro oR a KE RE KE RRA RRAKE/ML SO1L240 
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MLSQ1250 
MLSQ126C 
MLSQ127C 
MLSQ1280C 
MLSQ129C 
MLSQ1309 
MUSQ1310 
MLSQ1320 
MLSQ1330 
®/MLSQ1340 
*/MLSQ1350 
*/MLSQ1L360 
MLSQ1370 
4LSQ138C 
MLSO1390 
MLSQ1400- 
MLSQ141C 
*/MLSQ1420 
*/MLSQ1430 


=BlJel)eo. 
OO tL = J+1 TO LN,y. 
H SH-MULTIFLYUA(J,L) -¢B(L,1),53)¢.~ 
END;s. 
PIVI =PIV(UJ)>. 
B(JeTI=B(PIVI,I)». 
BCPIVI 41) =H/AUX(J)-.- 
END,. 
END;. 
IF LN LT LM 
THEN 0O J = 1 TO LKy. 


/*COMPUTE LEAST SCUARES 
/*IN CASE OF AN CVERDETERMINED 
H =O. / EQUATION SYSTEM ONLY 
D@Q I = LN#tlL TO LMy. 
H SHtMULTIPLY(B(1 sd) +BUI1J51953)9~ 
END,. 
BILM,J)=Hye 
ENO?. ' 
END ys. 
END,. 


/*END OF OPERATION 
7*END OF PROCEDURE MLSQ 


Purpose: 


MLSQ calculates X satisfying AX=B, that is, the 
solution of a system of linear equations using House- 
holder transformations. The least squares solution 
is obtained in case of an overdetermined system of 
equations. 


Usage: 
CALL MLSQ (A, B, M, N, &); 


A(M, N) - BINARY FLOAT [(58) ] 

Given coefficient matrix of equation 
system. 

A gets destroyed. 

BINARY FLOAT [(58) ] 

Given matrix of right-hand sides. 
Resultant solution of A- X=B stored in 
upper N rows of B, and if M>N resultant 
square sum of residuals for I-th right- 
hand side stored in elements B(M, I) for 
DS he 2 ag 

BINARY FIXED ; 

Given number of equations, that is, num- 
ber of rows of matrices A and B. 
BINARY FIXED | 

Given number of unknowns, that is, 
number of columns of matrix A and 
number of rows of resultant X, which 

is overlaid with B. 

BINARY FIXED 

Given number of right-hand sides, that is, 
number of columns of B. 


B(M, K) - 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions. 
that may be detected: 


means incorrect dimension(s); not all 
of the conditions M=N>0, K > 0 are 
satisfied. Operation is bypassed. 


ERROR='D! 
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-ERROR='W' means warning, indicating possible 
: loss of significance in resultant X, 
ERROR='S' means A has at least one zero- 
| column. Resultant X is a least 
squares solution (not necessarily of 
cs minimal norm). 
-ERROR='B! implies both ERROR='S' and ERROR= 
' 'W'; that is, resultant X is a least 
squares solution, -but possibly affected 
by loss of significance. 


_ The internal relative tolerance for test on loss 
of significance is set to 10-9 in single precision 
and to 10-10 in double precision. In the single 
precision version, scalar products are accumulated 
using double precision arithmetic. 


Method: 


A is reduced to upper triangular form, using 
Householder transformations successively. The 
same sequence of transformations is applied to 
given right-hand-side matrix B. Solution X is then 
obtained using backsubstitution. 


For reference see: 
G. Golub, ''Numerical Methods for Solving Linear 


Least Squares Problems", Rumeriechs Mathematik, 
vol. 7, 1965, PP. ago 216. 


Mathematical Background: — 
Notation 
The transpose of a matrix A is written as A!, The 


kth column vector of A is written as A x kK and the 
ith row vector as Aj, The Euclidean norm of the 





[v1 | 
vector R = we is abbreviated: 
| | - | 

Rll =/RTR = 


Problem 


For a given m by n coefficient matrix A withm =n 
and an m by k matrix B of right-hand sides, an n by 
k matrix X must be calculated that solves AX = B 
in the least squares sense, that is: 


| Bj - A Kay | A min, for j =1, 2, eee, k 


The determination of X is based on the reduction of » 


the matrix A to an m by n matrix R of the form _ 


* -(6) 


by means of an orthogonal transform ation Q, SO that 
U is an upper trangular matrix of order n. 


QA = 
Then, the given equation AX = B can be solved as 
follows: 

QAX = QB 

RX = QB : 
x = [uto] @B 


if U is of maximal rank (otherwise, see " Program- 
ming Considerations"). It is interesting to note 


that U is the triangular poe provided by the 


one factorization of ATA, 


ATa = utu 


-Householder's transformations 


The reduction of the given matrix A to the matrix R 
can be achieved by means of a sequence of (n-1) 
orthogonal transformations the product of which will 
be Q. This can be written as 

0) 


a@ _ p@ CD 


= A 


ee Tees Doe 


wise alt i is supposed: to have the same form as R 
in its first i columns, and where P(i) is an 


orthogonal matrix. Then: 


ie seo 


Among the possible matrices pt i) , let us ‘consider 


those of the form 


pO) 27 ay @ yf yt 


where I is the unit matrix and w a vector of order m 


related to the scalar qi) # 0 by 


di) (i). . 2 
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It is easy to see that these matrices are orthogonal Back substitution 

and symmetric. By definition of AG), P@® can be | 

written as When the matrix is reduced to the triangular form, 
the solution is obtained by back substitution. The 
interchange of rows determined by the pivoting is 


ves(1 1 i 1 i i) ,T 
pO =u oY. cv! )_g( Me. ) iv" )_gf Ne) applied to the solution as soon as any component is 
go Ww - 8") computed. 
whens: Programming Considerations: 


: The procedure may fail if, at any intermediate step 
vw) a (Vv @) V @) V @) ) i, no column with nonzero parameter g(i)can be 
fe ae : ae) Sax faa 
ae found -- that is, if no nonzero main diagonal element 
i in U can be generated. In this case, the rank of the 
vy) = 0 for j <i | | matrix Ais less thann. Because of roundoff errors 

J | this situation may even occur if the rank of the given 

matrix A equals n. In order to indicate this ill- 
ge eae) for j =i | conditioned case, with its possible loss of signif- 

J Ji icance, each | gV j is compared against a tolerance 
TOL,. TOL, is the product of the norm of the cor- 
responding column in the original matrix A times 
the internal tolerance EPS (107-5 in single precision 
and 10-19 ; in double precision). 

1. If the relative tolerances TOLj are all positive 
(no zero columns in original A), then ERROR = 
tw if| gfi)| > TOL, does not hold true for all 
Ie he Ze Seay Ue eics elements o(i) get replaced by 
TOL; « 10-19 (TOL + 10720 in double precision). 
2. If Ahas zero columns (corresponding 
TOL, = 0), then ERROR ='S', The corresponding 


tie] 
o~ : 
pate 
ZT 
| 








- ign 9) 0 


and where e; is a vector of order m whose compo- 
nents are zero except for the i-th, which is one. 
Actually, neither matrices pli) nor matrix 
Q = p(@-1) ,,., pl) is computed explicitly. 
Each selina k of A@) , k=i, ..., n, is 
calculated from column k o Ali-2) as follows 





@ 4), e(i) ig set to 1E~10 or 18-20, 
Ay. Ay ee Ot OG : Sy: 
*k | o(!) (i) Gi) 8. If cases 1 and 2 occur combined, ERROR = 'B', 
(v" -g"") are ieee 
Case 1 indicates possible loss of significance in 
| resultant solution X. Case 2 means that Xis a 
2 gl! de. a ) > “vt - oft) e.) least squares solution but possibly not the uniquely 
1, 1 _ determined one of minimal norm. 
For full understanding of the procedure note tiat: 
The columns of matrix B are > modified in the same 1. The gli) 's are recalculated to avoid roundoff 
manner, : problems. — 
OS BF oe 2. The resultant X is overlaid with the given rignt- 
Pivoting os hand sides. 
| | | 7 3. Least squares deviations are calculated only 
To keep roundoff errors as small as possible, an in case m >n, and stored in the last row of the given 
interchange of columns is performed before the i-th right-hand-side matrix. 


transformation, so that the i-th column of A(i-1) gets 
permuted with the k-th for which | vl) 1 is maximum. 
k is determined by: : 


(i) 


5 4) = Max (s.°° ) 
isj<n 
where: 
= [at] 
J qui qj 
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PRUCEDURE MLSQ CALCULATES THE LEAST SQUARES SOLUTICN OF AN OQVERDETERMINED SYSTEM OF SIMUL TANEOUS LINEAR EQUATIONS 


RH HH 


BRK A LR KKK 


* * 
*PRUCEDURE MLSQ * 


ME RH Mee ae he ee He ae ee ek 


<e ee eee 


RREEK EG Sok RR RH 


PRESET 
ERROR=4D* 


HEH 


BRERA KKK 


ot es] —) 


. 
mani Horo ces 


HEKKKE ERK 
a veaene 5 
2 OF 


PRO T 
#COLUHN IN AUX * 
AND PIV : 


: 
REE KEES 


KK KK 
CALARS 


Omit>o<e oe ae # 


= 
nowt 


“noro kx 
Cc 
= 
z 


Pd 
* 
* 
& 
& 
* 
* 


CHR K KE KKH 


—<eeeoe 


SRRE HY LEEK KEKE H 


* 

* 

* PRESET 
& — ERROR= "08 
x 
* 


SERRE EK EKEEK 


eeeetoeveveeovneeteoneoeseeeve eevee seeaneveeezr eve soeeoneveeveseeoevsseosseevevnse sev seseeesvnsseauseevnoseoseenedsedvvneugvvueveess eves eesdneeseeeveses 


RAK BAD HARE EHH 
* TOL=PIV(PIVI) * 
% SQUARE OF * 


oeX® ORIGINAL 
: COLUVNLE NG TH 4 
erTTrrrrrrrrt ttt 
x 
a? a steed BBE sae E 
e*SHOULD *. * INTERCHANGE © 
«* COLUMN BE *% YES *SCALAR PRODUCTS® 
*¥, INTERCHANGED 2. ®e ccceev ce X SAND COLUMNS 
ae Pd SC OWER SU BNATRIX$ 
a ee SRR ER EE 
* NO . e 
EER Cet ONCE RISE EPR Beem 
Tttt Or itt tte ttt 
* RECALCULATE * 
* COLUMN LENGTH * 
*JTO RENUCE ROUNND*® 
* OFF 
* * 
eT TTTETT TT TT Trt Ty 
yO 
KECK? ARERR HER ER 
* IF TOL tS 0 *® 
*THEN SET ERROR * © 
*# 10 'S* RESP. # 
# 'B*, REPLACE * 
* TOL BY 1 x 
TT TTTTT TT Tt ttt tT 
x 
TTT erTirrrrer se. 
* COMP. BETA x 
7( TOLERANCE FOR * 
LOSS OF. 
: SIGNIFICANCE) # 
er TTTT TTT TTT Trt. 
x 
F2° eS HRKRALZR KKK KE 
.* %, * SET ERROR TO *& 
. IS SIG *. YES * tw RESP. * 8? * 
*. EXCESSIVELY .*eececeeeX*® AND SIG TO * 
oa SMALL .* : MAX (S1Ge BETA) : 
er Se KEKE CHK EKRAEEEK 
* NO ; * 
Eira tel Ma Oia iia acts Ree decteveee s 
xX 
HEEKLG 2 OETKER ARE 
& is or 
* FORCE SIGN OF * 
*SIG TO SIGN OF * 
: PT VOTE LE MENT : 
eT TTrTTTT TT TTT et 
x 
Te TT PETTITT TY ST: 
x SA VE * 
* INTERCHANGE * 
*{ NF ORMA TION IN 6a 6:10 oe 0 0)0.6 6:6) 6 0:60. 8 0'ee 4.0'0'0 0:60 eles 
: VECTOR PIV : 
TTT TT TTT ttt rt t 


$k JZ RR RE 


BREKKKKEKEKEKEE 


eeeeveeoeennee 
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EREKRB GEERT ERK K 
* * 
* SAVE AND * 
oo oX* FRANSFORM * 
: PIVITELEMENT A 
BERK KKK KSEE KKK K 

x 


@eeeeoeevnpeseoeesoeseseoeeveseseseseeoeseseseveeeseoeveeseeoeseesaseose eo scseeevaosesesesce ee veeseoesc Oo Goveveseeseeeseeecaseevueseees 


ole e 6a 00 0 00 00.060 60¥ 


‘RHAEEH AK 
* 


* 

* END OF NO e*MA 
TOPS STROSS REC hs SN Ge hae Sea aA Wee eee e eae siae een aew eer’ PROCEDURE MLS Q presrenes s* R: 
. * 


ERREKC GEEEKAKKEEX | 


*TRANSFORM LOWER * 


# — PRODUCTS * 
RK EKEKKE KK KKKEKEK 
K 
RAKED GERAEKKEEKEK 
* . SELECT NEXT * 
* PTVOTCOLUMN, * 
* I.—, SIG AND * 
* PIVI % 
x * 
RHEKRKKKRKKEKKKESE 
x 


HKEEKE GEARKKKKEEEE 
* * 


*TRANSFORM LOWER*® 
* PART OF RIGHT *® 
; HAND SIDES : 


EEE RKKEEKEEESEEKEE 


+ 
ee 
+ 
on 
KXOmMO 
e O44m 
ZEN He ee se 


tt 3b 4b Ht 4h ae ob 
He He 4 Ht HH 


taesetes 


R Se ee eee oe 
e 


* REINTE 
* COMPUTED t 
* SOLUTION * 


KR AKKEKEEKSE RK KEKE 


‘ ° 
cM Hee ee we 
e 


eee aK Gabe teat 


* 
*CAL CULATE LEAST# 


SQUARES * 
> RESIOUALS — : 
HERE RE RRR EE ERE KE 


CHANGE : 


Seo R Ee Eee ee ee EL ee ee ee ee 


e Subroutine MGB1/MGB2 


MGBl.. 


MGB 


7 fore ao tok a ek ok doko tote tok $08 $08 008 38 fk ok tog tok doko sok io tok de doe ok doe ok ek / MGB 


FOR AN FQUATION SYSTEM 

CALCULATE OPTIONALLY 
UPPER TRIANGULAR FACTC& U AND SOLUTION X, 
UPPER TRIANGULAR FACTOF U AND INVERSE(L)#*R, 
INVERSE(U)*R FCR GIVEN UyR. 


A®X=F WITH BAND MATRIX A=L*U 


*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 


SRR RR RR RH RO I RR ERE RR RK RE RK OR RAE KR IM GB 


PROCEDURE (A,S eNeNLDeNUDyMyEPSeCPT),. 

DECLARE 
ERROR EXTERNAL CHARACTER(1), 
(QPT,CQPT) CHARACTER(1), 
EPS BINARY FLOAT, 
SUM BINARY FLOAT(53), 
CA0%,*)gRU%_*) LL 0*) ,SLON) PIV IW) 
BINARY FLOAT, /*SINGLE PRECISION VERSION 
BINARY FLOAT(53), /*DOUBLE PRECISION VERSION 
CIPER(*),1,1IBAC,INO,INU,IPIV, 
JoKeoKLy LMsLLMsLNyLNLO,yLNUD,M, 
NsNBeNLO,NUD) 
BINARY FIXED... 

IND =lee 

GO TO BOTH,. 

MGB2.e0 


/*EXTERNAL ERROR INDICATOR 


MGB 
MGB 
*/MGB 
MGB 
MGB 
MGB 
MGB 


1*S*/MGB 
7*D*/MGB 


MGB 
MGB 
MGB 
MGB 
MGB 
MGB 
MGB 


LRH M HARM HR OR a ee RO oe io kok ite kk tok 7M GB 


* 

/* FOR AN EQUATION SYSTEM 
/* COMPUTE OPTIONALLY 

/* TRIANGULAR FACTORS LeU POSSIBLY COMBINED WITH 
1% CALCULATION OF X OR INVERSE(L)*R,y 

/* INVERSE(L)#R OR INVERSE(A)*R FOR GIVEN LyU,yR. 
/* 


A*X=F WITH BAND MATRIX A=L¥*U 


*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 


7 ROR OR tao a tok tok to io iit 6 ao a tok koi tk a ak to a tok i do dok tok tok JM GB 


ENTRY(AgRa Ly LPERyNeNLDyNUDe MEPS eCPT) 
IND =2. 
BOTHe. 
LN =Nye 
LM,LLM=M,. 
LNUD =NUD;. 
LNLD =NLO,. 
ERROR='P',, 
IF LM LE O 
THEN GO TO RETURN,. 
IF LNLD LT 0 
THEN GO TO RETURN,. 
IF LNLO GE LN 
THEN GO TO RETURN,:. 
IF LNUD LT C 
THEN GO TO RETURN». 
IF LNUD GE LN 
THEN GO TO RETURN,. 
ERROR="0* 4. 
NB =LNUD#LNLDt1,. 
TF NB GT LN 
THEN NB =LNye 
IBAC =ls. 
KL =0O,. 
COPT. =OPT,. 
IF COPT= *A! 
THEN OO,. 
IND “2096 
IBAC =0¢. 
GO TO GAUSS, 
ENDy. 
IF COPT= ‘'B! 
THEN GO TO BACKy. 
IF COPT= "C! 
THEN D0O,. 
IND =O. 
GO TO GAUSS;,. 
END». 
IF CopT= ‘Li? 
THEN DO,. 
TIBAC =O¢r.- 
GO TO SCAL;. 
END». 
IF COPT= ‘Ft 
THEN OO,. 
IBAC =O. 
LLM -=0¢e6 
GO TO SCAL>. 
END» -« 
IF COPT= *U! 
THEN LLM =0y. 


/*STORE VAREABLES Ny My NUD, 
/*NLD FROM CALLING SEQUENCE 
/*INTG LOCAL PARAMETERS 


/*P MEANS WRONG INPUT 
/*VALUE M MUST BE POSITIVE 


/*NUMBER OF LOWER CCDLAGONALS 
/7*NLD MAY NOT BE NEGATIVE AND 
/*EQUAL TO OR GREATER THAN N 


/*NUMBER OF UPPER CODIAGONALS 
7*NUD MAY NOT BE NEGATIVE AND 
/*EQUAL TO OR GREATER THAN N 


/*PRESET ERROR INOICATOR 
/*CALCULATE THE MAXIMUM WIDTH 
/*OF BAND MATRIX 


/*IBAC IS AN INDICATOR FOR 
/ *BACKSUBSTITUTION 


/*CALCULATE INVERSE(L) * R 
/*FOR GIVEN Le Us, R 


/*CALCULATE INVERSE(U) * R 
/*FOR GIVEN U, R 


INVERSE(A) * R 
Le Uy R 


/ *CALCULATE 
/*FOR GIVEN 


/*COMPUTE TRIANGULAR FACTOR U 
/*AND OPTIONALLY Fb AND 
7*CALCULATE INVERSE(L) * R 
/*FOR GIVEN As R 


/*COMPUTE TRIANGULAR FACTORS 
/*L AND U- FOR GIVEN MATRIX A 


/*COMPUTE TRIANGULAR FACTOR U 
7*AND INVERSE(U)#R FOR GIVEN 
/*A, R 

/1* 

/*CALCULATE SCALING FACTORS 
*. 

/*K IS AN END INDICATOR FOR 
/*EACH ROW OF MATRIX A 


SCAL«« 


K =LNUD,. 
INL =LNLD+LN-NB+1,. 
IPIV =NB-LNUD,. 
DO ~t =1 TO LN». 
IF [ Le IPIV 
THEN K =Ktly. 
_T& t GT INL 
THEN K =K-ly. 
PIV =0;. 
00 J 
If J 
THEN 
ELSE 


/*IN I-TH ROW THE ELEMENTS’ 
/*ACT,K+1) TO ACT»NB) ARE 
/*FILLED UP WITH ZEROS” 
=1 TO NBy. /*EXECUTE LOOP OVER I-TH ROW 
GT K 
All sJ)=0-- 
00;. 
W =ABSCA(T s J) 09. 
IF W GT PIV 
THEN PIV =Wy. 
ENDy. 

END». 
IF PIV= C 
THEN O0G,. 

ERRGR="S"4. 

GO TO-RETURN,. 

END». 
SLODI=L/PIVe. 
END». 


/*FILL UP WITH ZEROS 


/*COMPUTE ABSOLUTELY GREATEST 


/*TEST FOR ZERC-ROW 
/*ALL ELEMENTS IN I-TH ROW OF 
' /*¥GIVEN MATRIX A ARE ZERO 


/*STORE THE RECIPROCAL IN THE 
/*VECTOR SL 

GAUSS... /*GAUSS ELIMINATION 
DO I =1 TO LN-ls. 
INL =I+LNLD,. 

IF INL GT LN 
THEN INL =LNyg. 


7 *INVERSECL)*R 


/*EXECUTE LOOP OVER ALL ROWS 


/*ELEMENT PIV IN I-TH ROW OF A 


MGB 
MGB 
MGB 

*/MGB 

*/¢GB 

*/MGB 
MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 

#/MGB 
MGB 

*/MGB 

*/4GB 

*/4GB 
MGB 

*/MGB 

*/4GB 
MGB 

*/MGB 

*/ MGB 
MGB 
MGB 
MGB 
MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 
MGB 
MGB 

+/MGB 

*/MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 
MGB 
MGB 
MGB 

*/MGB 

*/MGB 

*/MGB 

*/MGB 

*/MGB 

*/MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 
MGB 

*/MGB 
MGB 

+*/MGB 

*/MGB 
MGB 
MGB 
MGB 

*/MGB 

*/MGB 

*/MGB 
MGB 

*/MGB 

*/MGB 


LRG HERRERA EER EK KESR RKEKEEK/MGB 


*/MGB 


TERRE RRA EKER K KK EKER EERE KEKE / MGB 


*/MGB 
MGB 
MGS 





IF [IND= ¢ 
THEN DO,. 
IPIV =IPER(I)». 
GO TO INTR,. 
END)». 
=O. 
DO J 
PIV 
IF PIV GT W 
THEN OO-. 
W =PIV;s. 
IPIV =Je. 
END». 
END,;. 
LE ABSC(EPS) 
IF W = 0 
DO,. 
ERROR="S'ty. 
GG TO RETUPN,. 
END». 
ELSE ERROR="W',. 
PIV =ACIPIV,1),. 
IF IND= 2 
THEN IPER(I)=I1PIV». 
IF [PIiv= I 


=I TO INLy. 


/*NO FACTORIZATION 
/*CALCULATE INVERSE(L) * R 
/*FOR GIVEN Ly Uy R 


/*INITIALIZE W FOR PIVOTING 


S=ABSCA( Se LI 2 *SL(J))./*MULTIPLY ELEMENTS WITH SCALE 


/*FACTORS AND SEARCH GREATEST 
/*PRODUCT 


/*STORE ROW INDEX 


*/MGB 
&/MGB 
*/MGB 
MGB 
MGB 
*/MGB 
MGB 
*/MGB 
*/MGB 
*/MGB 
MGB 
*/MGB 
MGB 
MGB 


/*TEST FOR LOSS OF SIGNIFICANCE*/MGB 


/*AND FOR ZERO 


/*NEXT PIVOT IS ZERO POSSIBLY 
/*0UE TO LOSS OF SIGNIFICANCE 


/*W MEANS WARNING 

/*®PIV CONTAINS THE PIVOT 
/*STORE INFORMATION FOR ROW- 
/*PERMUTATIONS 

/*1S INTERCHANGE NECESSARY 


*/MGB 

MGB 
*/MGB 
*/MGB 

MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 
*/MGB 


THEN GO TO FSUB,. 
SLOIPIVI=SL(I)>. 
DG J =1 TO NBy. 
Ww SACI yJ)9. 
ACLs J)=ACIPIVe J) oe 
ACIPIV,J)=Woe 
END, . 


MGB 
*/MGB 
MGB 
*/MGB 
*/MGB 
MGB 
MGB 
MGB 
*/MGB 
*/MGB 
MGB 
MGB 
MGB 
*/MGB 
*/MGB 
*/MGB 
MGB 
MGB 
MGB 
MGB 
MGB 
*/MGB 
*/MGB 
MGB 
MGB 
*/MGB 
MGB 
*/MGB 
MGB 
MGB 
*/MGB 
*/MGB 
*/MGB 
MGB 
MGB 
MGB 
MGB 
MGB 
MGB 
MGB 
[RR EREERRERER EERE EE EKREEERKE EEE EEE MGB 
/ *BACKSUBSTITUTION */MGB 
[ERREEEER AREA EER EEE KEKE REESE EAH ING B 
, MGB 
*/MGB 
MGB 
*/MGB 
MGB 
MGB 
MGB 
*/MGB 
MGB 
*/MGB 
MGB 
MGB 
*/MGB 
MGB 
MGB 
*/MGB 
MGB 
MGB 
*/MGB 


/*RESTORE SCALING ELEMENTS 


/*INTERCHANGE ROWS IN GIVEN 
/*MATRIX A 


DO J =1 TO LLM. 

W =Ri Led). 
RUIyJI=RCIPIVe I) 9. 
RUIPIV,JI=AW,. 

END? e 


/*INTERCHANGE ROWS IN RIGHT 
/¥*HAND SIDE MATRIX R 


/*M4ODIFY OPTIONALLY ROWS IN 
/*MATRIX A AND IN RIGHT HAND 
/*SIDE MATRIX R 


DO J =I+1 TO INLs. 
IF IND= 0 
THEN OO,. 
Kt =KLt+1l,. 
W =L(KL) >. 
GO TO DIVL:. 
END,. 
W =AC Sy LI/RIV,. 
IF IND= 2 
THEN DO,. 
KL =KL+ley. 
L(KLI=HWe. 
END»). 
DO K =2 TO NBy. /*M4ODIFY AND SHIFT ROWS OF A 
ACI eK~LI=ACIUe KI-WHACT 2K) 5 
. END,. 
AlJ,NB)=0,. 


7*W TS AN ELEMENT OF THE LOWER 
/*TRIANGULAR FACTOR L 


/*STORE W INTO L IF REQUESTED 


/*LAST TERM IS SET TO ZERO 
/*MODIFY ROWS OF R TO COMPUTE 
DO K =1 TO LLM. /*INVERSE(LI*R 
RUS eK HRESeKI—-WERGT ep Kee 
END,. 
END). 
END,. 
IF IND= 2 
THEN TFPER(LNI=LNye 
IF IBAC NE 1 
THEN GO TO RETURN,. 
BACK.. 
00 I =iN TO 1 BY ly. 
PIV =Al(I alle. 
IF PIV= 0 
THEN DO;. 
ERROR="S"y. 
GO TO RETURN,y. 
END, 
=f-l,. : 
00 J =1 TO LMy. 
SUM =RUIyJ3)9- 
DO K =2 TO IBAC,. 
SUM 
END?y. 
R(1,J)=SUM/PIV,. 
END, . 
IF IBAC LT NB 
THEN IBAC =IBACt+l,. 
END». 
RETURN... 
END». 


/*TEST FOR ZERQ PIVOT 
/*PIVOT ELEMENT IS ZERO 


/*LO0P OVER ALL COLUMNS OF R 
J*CALCULATE SCALAR PRODUCT 
=SUM—MULTIPLYCACT KD »ROINL#K, J) 253), 
/*COMPUTE NEW ELEMENT IN R 


/*UPDATE END OF INNERMOST LOOP 


/*END OF PROCEDURE MGB 





Purpose: 


MGBI1 performs the following operations on an 
equation system A- X = R with general band 
matrix A= L~- U, depending on the character of. 
an input parameter OPT: | 


OPT = 'L' U replaces A and L>1R 
replaces R © | 
OPT = 'U' U replaces A and U-!R 
| replaces R 
OPT = 'B' ulR replaces R for a given 
U on storage locations of A 
otherwise U replaces A and the solution 


X=A-1R replaces R 
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on OPT: 
woot [ae fe ee 
: 1 -1 -1 -1 
OUTPUT {U/L ~-R|UJU -R/U]JU -RIUJA “+R 


The following table. shows input and output depending 





Usage: 
CALL MGBI (A, R, N, NLD, NUD, M, EPS, OPT); 


A(N, NB) - BINARY FLOAT [(53)] 
| Given N by N band matrix A con- 
sisting of the main diagonal, NLD 
lower codiagonals, and NUD upper 
codiagonals. Ais stored rowwise — 
and left-adjusted so that A(i, 1) con- 
_ tains the first nontrivial element in 
the i-th row of matrix A, i=1, 
2, ..., N. Thus, the maximum 
number of elements in the rows of 
array A is: | 
NB= min (N, NLD + NUD + 1) 
Resultant upper band factor U stored | 
rowwise and left-adjusted so that 


A(i, 1) contains the diagonal element _ 


in the i-th row of the upper factor 
U;, 1, 2, ...., N. If OPT='BI, 
or A contains U. — 
RIN, M - BINARY FLOAT [(53)] 
Given right-hand-side matrix with N 
rows and M columns, which implies 
that M sets of ‘right-hand-side vec- 
tors are given, ee 
- Resultant solution depending on the 
option parameter OPT (see | 
" Purpose"), 
N- | BINARY FIXED 
Given row dimension of matrix A _ 
and number of rows of right-hand 7 
. , side R. - | a | 
NLD-  ~—sC&;BINARY FIXED. 


Given number of lower codiagonals 
of matrix A, | _ 
NUD - | ~ BINARY FIXED > . | 
ss Given number of upper codiagonals 
of matrix A, ee 


M- BINARY FIXED = 


- Given number of columns of R, that. 
is, number of right-hand-side vectors. 
EPS - BINARY FLOAT | 
| _ Given relative tolerance for test on 
7 | loss of significant digits. 
OPT-  CHARACTER(1) 
| Given option parameter for selection 
of operation (see " Purpose"), 


Purpose: | 


MGB2 performs the following operations on an 
equation system A-- X= Rwith general band ma- 
trix A= Le U, depending on the character of an | 
input parameter OPT: | 


OPT = 'L'! Ais replaced by upper band factor | 
| - 3 U, Ris replaced by pl. R, and 
lower band factor L is stored in 
a one-dimensional array L omit- 
co ting the unit diagonal. —_ 
OPT = 'F A is replaced by the upper band 
factor U and the lower band factor 
Lis stored in the array L. The 
right-hand side R remains un- 
: changed, - | 
OPT = 'A'_ Ris replaced by LL. R for the 
: given upper factor U in array A 
_and the lower factor L in vector 
L. | 
OPT = 'C' Ris Feplercd by the solution 
> X= A™"-Rfor given UandL. | 
otherwise A is replaced by the upper factor 
—--U,.s- The lower factor L is calcu- 
lated and stored in L, and Ris 
_ replaced by the solution 
X= ATL R, - 


The following table shows input and output depending 


on OPT: 
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Usage: 


CALL MGB2 (A, R, L, IPER, N, NLD, NUD, M, 


EPS, OPT); 


A(N, NB) - 


R(N, M) - 


BINARY FLOAT [(53)] 

Given an N by N band matrix A con- 
sisting of the main diagonal, NLD 
lower codiagonals, and NUD upper 
codiagonals. Ais stored rowwise and 
left-adjusted so that A(i, 1) contains 
the first nontrivial element in the i-th 
row of matrix A, Thus, the maxi- 
mum number of elements in the rows 
of the array A is: 

NB= min (N, NLD + NUD + 1)! 
Resultant upper band factor U stored 
rowwise and left-adjusted so that 
A(i, 1) contains the diagonal element 
in i-th row of U, i= 1, 2, ..., N. 

If OPT='A! or'C!, the array A 
contains U, 

BINARY FLOAT [(53)] 

Given right-hand-side matrix with N 


_ rows and M columns, which implies 


that M sets of right-~hand-side vectors 
are given, 

Resultant solution depending on the 
option parameter OPT (see 

" Purpose"), 


L(N- NLD-NLD. (NLD+1)/2) 


IPER(N) - 


NLD - 


NUD - 


BINARY FLOAT [(53)] 


Resultant one-dimensional array con- — 


taining the lower factor L. If OPT= 
‘Ator'C', array L contains the 
lower factor L, obtained by sub- 
routine MGB2 with any other option 
parameter, 

BINARY FIXED © 

Resultant integer vector containing 
the permutations of rows of the ma- 
trix A in the factorization steps. 

If OPT='A't or'C', permutation 
vector IPER must be given, obtained 
by MGB2 with OPT ='At, Oe 
BINARY FIXED 

Given row dimension of matrix A and 
number of rows of right-hand side R, | 
BINARY FIXED 

Given number of lower codiagonals 
of the matrix A. 

BINARY FIXED 

Given number of upper codiagonals 
of the matrix A. 

BINARY FIXED 

Given number of columns of R, ‘that 
is, number of right-hand-side vectors. 


EPS - BINARY FLOAT 
Given relative tolerance for test on 
loss of significant digits. 
OPT - CHARACTER(1) | 
| Given option parameter for selection 
of operation (see '' Purpose"'), 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions 
that may be detected: 
ERROR='P' means error in specified parameters: 
M = 0 or NLD <0 or NS NLD 

or NUD <0 or Ns NUD 
means all elements in a row of the 
given matrix A are zero, or the 
calculated pivot in a factorization 
step is zero. This is possibly due to 
an ill-conditioned or singular matrix 
A. , : 
is a warning indicating possible loss 
of significance. , 


ERROR='S' 


ERROR='"W'! 


The storage mode for band matrices is a natural 
generalization of the normal two-dimensional 
storage scheme: any row is stored with NB=min 
(N, NLD+1+NUD) elements, but only the nontrivial 
elements (that is, those within the band) must be 
specified. The remaining elements are set to zero 
automatically within procedure MGB1/MGB2, 

Note that a fully populated N by N matrix would 
require exactly N- N storage locations if stored as 
band matrix in compressed form, However, the 
pe lower triangular factor L would need additional 

- (N-1)/2 storage locations. 


Method: | : - 


Calculations of the lower and upper band factors L, 


U are done using a standard Gaussian elimination 
technique. Columnwise pivoting is built in, com- 
bined with scaling of rows (equilibration), 

The lower band factor L is normalized such that 
the diagonal contains all ones, which are not stored 
(Doolittle factorization). _ 

The procedure gets the required solutions by 
means of forward and/or backward substitutions, 
where the interchange information is combined with 
the lower band factor L. 


For reference see: 


R.S. Martin and J. H. Wilkinson, "Solution of 
Symmetric and Unsymmetric Band Equations on the 
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Calculation of Eigenvectors of Band Matrices", 
Numerische Mathematik, vol, 9, 1967, pp. 279-301. 


Mathematical Background: 


Let A be an N by N nonsingular real band matrix 
with NLD lower codiagonals and NUD upper codiag- 
onals, In general, it can be factorized into a 
product : | 


A= P+ LeU 


where L and U are ieee and upper band factors 
respectively. L can be normalized so that it has a, 
unit diagonal, Pmeans the row-permutation matrix, 
that is, an N by N unit matrix with interchanged 
rows resulting from partial pivoting in the factoriza- 
tion steps. 

‘Then X= L374. p-l.R= pl R is calculated 
using forward substitution to obtain X from L- X= 
pi.e= R, where R is obtained from R by inter- . 
changing rows in the same way that rows of matrix 
A are interchanged oars columnwise pivoting in 
factorization, | 

Calculation of Y = unl. R is done using backward 
substitution to obtain Y from U: Y=R, - 

Calculation of Z = Ul. 7). p-l. R= ul LR 
is done by first solving Le X = R and then solving 
U-eZ= X, 


Programming Considerations: 


hs Siepage Mode 
The following is an example of a7 by 7 matrix with 
two lower and three upper codiagonals which shows 
the storage compression of band matrices and the 
storage allocation of upper and lower triangular 
factors U and L. 


Fully stored matrix: 





Compressed stored band matrix: 





Elements marked xX need net be. specified, They get 
filled up with zeros automatically. 


Resultant upper triangular factor U and unit lower 
triangular factor L: : 
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The band-shaped upper triangular factor U is stored 
rowwise and left-adjusted, so that A(i, 1) contains — 
the diagonal element for i=1, 2, ..., N. The 
band-shaped lower unit triangular factor L is 
stored in a one-dimensional array. Only the non- 
trivial subdiagonal elements are stored columnwise 
in successive storage locations. 

2. Computational remarks 
In order to improve numerical stability, partial 
pivoting is used combined with an equilibration of 
rows. In each row i of the given matrix A the 


element ajj, of greatest absolute value is found. 


The absolute values vj; = 1/ |a45, | are used as 
weights for pivoting: | 
At the first step of Gaussian elimination that 


element aj, is used as pivot element piv for which 
a Pe Vv, = max | (a, | v.) 
| eS acne oe. 


If necessary, rows k and 1 are interchanged in A, 
R and V =/ V1 \ and IPER(1) is set to k. 


The elements in the first NLD rows are trans- 
formed by means of 





1, = Ai1 i = 2,...,NLD+t1 
piv 

Q) -, -1. = 

ai a . 1, a; j = 2, , NB 

7) =r, -lwe¢r k=1,...,M 


ik ik il. 1k 


If specified, the elements l,, are stored in 


successive locations within L. 

Transformed rows of A get shifted to the left 
by one position, and zero is inserted in the last 
location. | 7 

Repeating this process (N-1) times gives 
triangular factors U and L and the product LR, 
in permuted form. 

If at an elimination step the value of piv be- 
comes zero, then ERROR is set to 'S' and further 
calculation is bypassed. | 

ERROR is set to 'W' if, at elimination step j, 
Vj - piv = EPS. 
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A=L®U 


INVERSE(UIER . 


MGB2 CPTIONALLY COMPUTES X»y Ue INVERSE(L)*R, AND L 
HSH SEK KEKK 
* * * * * * 
# AQ ® * AG * * AS * 
* * * x 
*okak EK ete 
X xX e 
ot, o*, X 
A2 x, ee rtco OER Os A4 *, RREKKAS ReERKGKEKS 
e* IS *, * SWIT OFF * -* TEST *. * TRANSFOR ND 
o* OPT=*F', % YES * INDICATOR -FOR : NO .*FOR LOSS OF*. *SHIFT.A MAXI MUM* 
*,TeEs COMPUTE « te esce eo ceX * BACK- eoee®. SIGNIFICANT .* *OF NLO ROWS OF 
*, FACTORS .*_ . * SUES UT TONs : e *.DIGITS IN.* * Ay GIVING 
eb, U.* * IBAC=0 * ° *, W .% * MATRIX U * 
*, .~* BRAM KKK ARR KKK * *, -* RRR KK GEEKS 
* NO ° e * LOSS se 
X e ° x e ‘ 
e *, X e eX. 
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eocsee X PARAMETER, x e * CORRES PONDING e x, ARE GIVEN» o*e eee oe eo X%e PI VOT IN I-TH. ®. ace 
* ERROR="S* * ° * SCALE FACTORS *& Xe I.E~ o* ° ° W TeEee e 
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eevee K~ * ° * GREAT EST * * TRIANGULAR * ° * R GIV " 
* SUBSTITUTION: * ° * PRODUCT AND % * FACTOR L * . * INVERSE (UD #R, * 
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eoeeeX*® TRIANGULAR Ke evece * OF W * #REQUESTED: 1. Fe * ooee S THAN .* 
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Eigenvalues and Related Topics vet - H- Real array in which the Hessenberg matrix 


will be saved together with the elements of 


Note: The following example illustrates a way to the transformations involved in subroutine 

link subroutines MATE, MEAT, MVAT, MVEB MATE : 

(which follow) for the computation of the eigenvalues CH- Complex array containing the Hessenberg 

and eigenvectors of a real nonsymmetric matrix. matrix for the computation of the eigen- 

(Subroutines MATE and MVEB can be replaced with vectors | 

MATU and MVUB.) - EV- Complex array where the eigenvectors are 
stored 


Description of the parameters used: 


The other parameters are defined in the descrip- 


A- Real array containing the given matrix tions of the subroutines, 
(this matrix is not preserved) : All the eigenvalues are assumed to be complex in 
N - Order of the matrix this example, so that only N/2 eigenvectors are 
computed. 
itis = * 4 is MAIN PROGRAM a 4 
N=50,. : : | 
BEGIN, . /* BEGIN BLOCK * / 
DECLARE | | | | 
(A(N; N), RR(N),RI(N),H(N,N)) BINARY, 
- (CH(N, N), EIG, EV(N, N/2)) COMPLEX BINARY, 
(IP(N),1,J,K,M) | BINARY FIXED, 
_ANA(N) BIT(1), . 
CALL GEN(A,N), . /* _ GENERATE THE MATRIX | * / 
CALL MATE(A,N,IP), . | /* REDUCTION TO HESSENBERG FORM * / 
H=A, | - ee SAVE HESSENBERG MATRIX * / 
CALL MEAT(A, N,RR, RI, ANA), . / * COMPUTE THE EIGENVALUES */ 
I=0, 
“DO M=1TON BY 2, /* | COMPUTE N/2 EIGENVECTORS */ 
TS=1+ 1; | 7 
BIGGCOMPLEX(RROM), RIMM), . | 
CH(1, *) =H (1,*), - j* PUT THE HESSENBERG MATRIX */ 
DOJ=2TON,. Pe: INTO A COMPLEX ARRAY. * / 
DO K=J-1TON,. 
_.CH(J,K)=H(J,K), . 
ae ae 
_ END, | 
CALL MVAT (CH, N, EIG, EV(*,D), . / * EIGENVECTORS OF THE * / 
/ *-  HESSENBERG MATRIX of 
CALL MVEBOLN,1 IP, EV(*, I), « /* VECTORS OF THE GIVEN MATRIX eo * / 
END, . | | 
PUT EDIT..... /* PRINT THE RESULTS a 
END, . / * END BEGIN BLOCK a 
einer. | * 7 o / * MAIN PROGRAM 


Note that the eigenvalues of the original matrix A are equal to the eigenvalues of the BoEreePentine | 


Hessenberg matrix, so that no back transformation of the eigenvalues is required. 
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e Subroutine MATE 


MATE... MATE 

LEER RH EK HE RHR KR RHR HRA RK KK I RR KEK KEK EIOK SRERRKKEKKEKEKK /MATE 

*/MATE 

REDUCE A REAL MATRIX TO HESSENBERG FORM ; . %*/MATE 

ELIMINATION TECHNIQUES IMATE 

*/MATE 

LREKK ERKKKEKKK EKA KKK EERE KEE KEKE EERE KEKE REKKEREKKEEEKE WERK EKKKEKKEKE/MATE 

PROCEDURE (AgNeIP),_. MATE 
DECLARE es MATE | 

(A(¥*,*),C,U,V) MATE 

_ BINARY, : MATE 

Ss. : MATE 

BINARY (53), : MATE 

(Np IPC#) Ke KPLlyeKlyMe le Jy NL) MATE 

BINARY FIXED,. MATE 

IF N LT 3 THEN GO TO EMATE,. ; MATE 

IP(NJ=Ny rar ; MATE 

NI=N-1l,. aa ee MATE. 

DO K=N1 TO 1 BY —-l,. : MATE 

KP 1=K+1,- MATE 

K1L=K-1l,». MATE 

M=Kee . ’ MATE 

U=ABS(A(KP1.K))_9. MATE 

DO I=1 TO Kl+y. PIVOTING */MATE 


V=ABSCACKPlol)) 95 “MATE 


IF V GT U MATE 

THEN DO,. - MATE. 
U=V9. MATE 

M=Iy. MATE 

_ ENDs. : MATE 

END,. MATE 
IP(K)=My MATE 
IF M NE K MATE 
THEN DO,. INTERCHANGES */MATE 
DO I=1 TO Ne. ; COLUMNS */MATE 

CHAI K) oe : MATE 

ACT sKI=A(T eM oe MATE 

ACI yM)=Co. MATE 

END; . baat, MATE 

00 I=L TO Ny. . */MATE 

C=A(Kel) 56 MATE 

ACKy T)=AUMy I) 90 MATE 
A(My1)=Coe MATE 

ENDy. . MATE 

END,. : MATE 

IF A(KP1,K) NE 0 MATE 
THEN DO I=1 TO Kl». /* COEFFICIENTS OF ELIMINATION */MATE 
A(KPL eT )=AUKP1) 1) /ACKP1L 9K) 90 MATE 
ENDy. MATE 

DO I=N TO 1 BY -ly. /* K-TH ROW OF THE HESSENBERG */MATE 
S=A(Kol)o5 /* MATRIX */MATE 

DO J=1 TO Kl» MATE 
S=S+MULTIPLY CACKP Lod) pA S91) 953) 9 MATE 

END». MATE 

DO J=MAX(I+#1,K) TO Nloe _ MATE 
S=S-MULTIPLY(CA( Ky J) 9 AC J+191) 953) 96 MATE 

END, .. MATE 
AUKs1)=Sy0 . MATE 

MATE 
MATE | 

- MATE 

RETURN» « MATE 
ENDy. /* END OF PROCEDURE MATE */MATE 





Purpose: 


MATE reduces a given real matrix to upper almost 
triangular (Hessenberg) form by means of a se- 
quence of similarities, 


Usage: 
CALL MATE (A, N, IP); 


BINARY FLOAT 

Given real matrix, 

Resultant upper almost triangular ma- 

| trix, 

N - BINARY FIXED 

Given order of the matrix. 

BINARY FIXED 

Resultant vector containing information 


A(N, N) - 


IP(N) - 


about:the interchanges operated on rows 


and columns of the matrix, 
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Remarks: | 


The elements defining the transformations applied 
to the matrix are stored in place of the lower tri- 
angular part of the matrix on return, These ele-— 
ments and the vector IP will be used in the com- 
putation of the eigenvectors of the original matrix 
(Procedure MVEB). 


Method: 


Each row of the matrix is reduced in turn, starting 
from the last one, by applying a suitable elimination, 
and similarity is achieved by applying the left 
inverse transformation, A Crout-like algorithm is 
used to take advantage of the accumulation of the 
inner products in double precision, 


For reference see: 


J.H, Wilkinson, The Algebraic Eigenvalue Prob- 


lem, Clarendon Press, Oxford, 1965, 


Mathematical Background: 


Let us consider a matrix A of order n and the 
similarity 


TAT =H _ (1) 


where H is a Hessenberg matrix associated with A, 
and T a lower triangular matrix with unit diagonal. 
Equation (1) can be written as 


TA= HT (2) 


Matrices H and T will be determined row by row, 
according to the algorithm described below. 

If rows (k+1) to n of H and rows k to n of T are 
assumed to be known, row k of H and row (k-1) of 
T will be determined as follows. 


From equation (2) we get 


k-1 ae 
Ai = ig yi * a 1g bi 
and 
| k-1 : 
“et Sia a 7 bey aioe ej ta : (3) 


If we apply equation (3) fori=n, n-1, ..., k, 
we will obtain recursively the terms of the k-th 
row of H, excepting the subdiagonal term. 
(When the upper bound of a summation is less 
than the lower bound, the value of the sum is 
taken as zero.) 

Let us determine now the (k-1)st row of T and 
the subdiagonal term 


hi eI of H. 


From equation (2) we get 


k-1 m 
+ Dot = >) h.t.., 1Sisk-1 


ja © ji jek-1 kj ji 
Defining 
k-1 n | 
= ag t , Lsisk-1 
m, a, - Kj or = ee be i (4). 
we finally obtain 
Meet eke’ “ei os eoecat a) 
: k k-1 


To ensure stability, a technique of pivoting is in- 
corporated in this algorithm. 

After the computation of the m,,'s, the sub- 
sceript j is determined for which 


lsisk-1. 
la 


Then the elements m,; and m, ;,_1 are interchanged, 

So are columns j and (k-1) of T. Similarly, the 

columns and the rows of matrix A are also inter- 

changed, Then equations (4) and (5) are applied. 
The algorithm is initialized by taking 


h =a 
nn nn 
m.=a 
ni ni 
1<isn-1 
.=0 
ni 
t =1 
nn 


When m 


ici = 0 fori=1, Sea 4 KL. be ed 


- ,» k-2. 


= 0 and 


ted = 0 fori=1, 


Programming considerations: 


1, The interchanges determined by the pivoting 
are stored in vector IP, This vector will be used 
in the computation of the eigenvectors (subroutine 
MVEB). - 

2. The matrix T is stored in the lower part of 


the array A, overwriting the terms of the original 


matrix: 


t j7A (I+1, J), 2SI<N-1, 1<J<I-1 


I, 


These elements ty, y will be used in the computation 
of the eigenvectors (subroutine MVEB). The last 
row and the diagonal of T are not stored, 

3. The inner products involved in equations (3) 
and (4) are computed in double precision. 
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e Subroutine MATU 


MATU.. | - MATU 
f oe04dnebOd 6450 00K ES SEEKERS SESE ERE EER OKES TTT Terr TT Terre TTT TT Ty, MATU 
*/MATU 
REDUCE A REAL MATRIX TO HESSENBERG FORM */MATU 
: HOUSEHOLDER*®S TRANSFORMATIONS */ MATU 
*/MATU 
‘ Meer rere teter trier aren tree tet o irre ters ERE KARE EKHEKKE MATU 
PROCEDURE (AyNeB)re | . MATU 
DECLARE : MATU 
TAU #) 1 BCD pEPSpTeC aU) BINARY, MATU 
S BINARY(53), MATU 
(IedeKyKPLyKP2yN) BINARY FIXED, MATU 
EPS=1.0E-149. MATU 
BU) =09~ . MATU 
. DO K=l TO N-2y- MATU 
KPL =K+ly. 
- _ KP2 KP 141). 
: =0r- "7* PREPARE K-TH TRANSFORMATION */Hat 
‘DO I=KP2 TO Ny ATU 
S=S#MULTIPLY (A(T 9K) pACT 9K) 953) 96 MATU 
END, MATU 
=AUKP1,K)#A(KP 19K) 96 MATU 
GT EPS#T MATU 
00 MATU 
=SQRT(S#T) 9, MATU 
3S 76 _ /* CHOOSE SIGN FOR STABILITY */MATU 
IF A(KP1,K) GT 0 THEN T=-Ty. MATU 
C = =ALKP19K)-Ty. MATU 
DO J=KP1 TO Ny. /* ROW OPERATION == #/MATU 
S309 7 MATU 
"(OO I=KP1 TO Ne. MATU 
S=S#MULTIPLY (ACI 9 J) sACT 9K) 953) 96 MATU 
END). MATU 
=A(KPlyJ) 9 MATU 
A(KPLed)= S/Tr. : MATU 
Us SLALKP1yJ)-U)/Coe MATU 
DO I=KP2 TO Nv. - MATU 
ACI yJ)=ACTy J }FU®ALT 9K) 90 MATU 
END». MATU 
END | MATU 
DO J=1 TO Ny. /* COLUMN OPERATION */MATU 
S 2096 MATU 
DO I=KP1 TO Ny. MATU 
S=S+MULTIPLY(AC S91) ALT 9K) 953) 90 MATU 
END». MATU 
Us SA( Jy KP 1D 9 MATU 
Al JsKP1)=S/Ty MATU 
Us (AW 9 KP1)-UD/C 9 MATU 
DO 1=KP2 TO Nee MATU 
ACS eT =A Se LIFUSAL TK) 90 MATU 
END». MATU 
END». MATU 
B(KPL)=A(KP19K) 9~ MATU 
AC(KPLyK)=Ty. 1* TRANSFORM SUBDIAGONAL TERM */MATU 
- END». MATU 5 
_«sBLSE B(KP1)=04. /* BYPASS K-TH TRANSFORMATION */MATU 
—' ! ENDs. MATU 
RETURN; « | MATU 
END». . | /* END OF PROCEDURE MATU = */ MATU 





' 


PUEROR: 

| MATU reduces a given real matrix to upper almost 
triangular (Hessenberg) form by means of a BOqNenes 
of orthogonal transformations, 

Usage: 

CALL MATU (A, N, B); 


BINARY FLOAT 


A(N, N) = 
Given real matrix. 
Resultant upper almost triangular be 
matrix, 


N - BINARY FIXED 

| Given order of the matrix. 

BINARY FLOAT 

Resultant vector containing information 
about the transformations applied to 
the original matrix, 


B(N) - 


Remarks: 


Other elements defining the transformations are 
stored in place of the lower triangular part of the 
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matrix on return, These elements and the vector 
B will be used in the computation of the eigenvectors 
of the original matrix Ena MV ae 


Method: 


Each column of the matrix is reduced in turn by 
means of orthogonal similarities (Householder' s 
transformations), — 


For reference see: 


J.H. Wilkinson, The Algebraic Eigenvalue Problem, 
Clarendon Press, Oxford, 1965. 


Mathematical Background: 


For a given real matrix A of order n, let us con- 
sider the sequence of similarities 


ae Yep a” p PSAs Oe oa he2 


with A™) = 4 _ 


Assuming that A() is of almost triangular form in its 
first (i-1) columns, we will determine a trans- 
formation P; such that AG*Y) is of almost triangular 
form in its first i columns. Among the matrices 

P;, let us consider those of the form 


P =I-2uu (Householder's matrices) (2) 
where I is the unit matrix and u a vector of order n 
such that , 


pos “3 ' ve 


<u, u> =1 _~* _ : | ; a oe (3) 


These matrices are orthogonal | and symmetric, and | 


equation (1) can be written as 


Let us now define a vector v by 


oT 3 se al 
vV..= (V5 Vos ie vy) 
~ with 
Mig TO AOE tins 7 
eee 6) ho ae a ee 
= = 1) + ee 
Vi. se i 1, ,n 


and try to determine the transformation P. so that 


1/2 


P,. v = be & <v, v> (5) 


F i+ where b = 
Cj41 is a vector whose components are zero, 
except for the (i+1) st which is one. | 

The combination of equations (2) and (5) gives 


P.v 


i v-2<u, v>u 


bei a4 


Putting <u, v> = s, uis given by 


From equation (3) we get 


ae =b(b- V4. p/? 


Then the matrix P; can be written as 


_ 1 | T 
ee bv... ~») ODS gd WY Pea) 


The sign of b will be such that the magnitude of 
the denominator is maximum, that is, 


sign (b) = - sign (v.,.) 


it+1 


in order to ensure stability. 

If we now form the product P; Af): the resulting 
matrix, according to (5), will fave zeros in posi- 
tions (k, i), k=1+ 2, ..., n, and the term in 
position (i+1, i) will be b. The (i-1) first columns 
and rows remain unaltered. 

The right transformation (P; Al )y Pj, completing 
the similarity, will leave this structure unchanged. 
Thus, after (n-2) transformations according to (1) 
and (4), the matrix will be reduced to almost 
triangular form. 

When the matrix is symmetric, it is interesting 
to note that the resulting almost triangular form is 
symmetric also (that is, tridiagonal). | 


Programming Considerations: 


A transformation P, for which | v; i+1 + Dl <107! | b| 
is bypassed, All the scalar predick: involved in 
the computation are calculated in double precision, 


© Subroutine MSTU 


t 


MSTU. MSTU 
PEER RE SE BUCO AACE BUSHES HO BE Ora aaa a aor JS TU 
/* */MSTU 
/* REDUCE A COMPRESSED SYMMETRIC MATFIX TO SYMMETRIC TRIOLAGONAL FORM*/MSTU 
/* */MSTU 
i LERERRREREREEREKK ERK PT Ee eT NT TT PET rT rr ror re rT T Tr erry. cf 
PROCEDURE (AyN,D1CD)¢.~ MSTU 
DECLARE a A _ MSTU 
{A(%)eD(*),CD(*),T,EPS) BINAFY, MSTU 
(NeN2eICDyMP2 oMoMPe Jol ab ol Kok) BINARY FIXEDy MSTU 
(S,OT) BINARY(53)9.~ MSTU 

N2 =N-296 MSTU 
IF N2 LE O THEN GO TO EMSTU,. MSTU 
O(1) =All)s. MSTU 
EPS =1.0E-14,. MSTU 
ICD =0,. : MSTU 
MP2 =29. MSTU 
DO M=1 TO N2,. /* COMPUTE NEW SUBDIAGONAL TEP M*/NSTU 

MP =MP2y. MSTU 

MP2 =MP+ly. : MSTU 

ICD =ICD+tMP,. MSTU 

J =ICDy. MSTU 

S =09. ; MSTU 

DO [=MP2 TO Ny. ; MSTU 

J =J+I-1,. MSTU 

OIL) =ACJ)+.~ MSTU 
S=S#MULTIPLY(D(I) D001) 953) 96 MSTU 

END,. MSTU 

T =AVICD) *A(ICD),. MSTU 

S GT T*EPS THEN GO TO TRANS». '  MSTU 
CO(M)=ACICD);. /%* BYPASS TRANSFORMATION a/MSTU 

GO TO BYPASS+:. MSTU 

MSTU 

CO(M)=SQRT(S+T) 9. MSTU 

IF ACICD) GT @ THEN CD{M)=-CD(M)-. MSTU 
D(MP)=ACICD)—-CO(M),. MSTU 

J =ICD-My. MSTU 

OT =O96 /* COMPUTE VECTORS DEFINING */MSTU 

00 L=MP TO Ny. /* _ THE TRANSFORMATION */MSTU 

J =JtL—-l,. , MSTU 

S =Oere . NSTU 

LK =HJpe MSTU 

DO K=MP TO Lys. ' STU 

LK =LK+l,; MSTU 
S=S+HULTIPLY(A(LK) »D(K) 953) 9. MSTU 

END». MSTU 

DO K=L+1l TO Ny.» MSTU 

LK =LKtK—1ly. a MSTU 
S=S+MULTIPLY(CA(LK) 200K) 53096 | oS MSTU 

END;. MSTU 

OT =DT+S*D(L),y. MSTU 

CD(L)=Sy. MSTU 

END». MSTU 

=C.54DT ye MSTU 
=D(MP)*CO(M),. MSTU 

OQ L=MP TO N;. MSTU 

DIL) =O(L)/7T>. MSTU 
CO(L)=CD(L)+DT*D(L),. MSTU 

END,. MSTU. 

=ICD-M,. PERFORM SEMILARITY */MSTU 

DO K=MP TC Nee MSTU 

J =J+K=-1,. MSTU 

LK HSye : MSTU 

. DG L=MP-TO Kee : MSTU 

LK =LK+ly. MSTU 

5 =A(LK) 9. MSTU 
S=S+MULTIPLY(D(L) sCD(K) 953 )#MULTIPLY(O(K) COIL) 9 53),.MSTU 

A(LK)=Sy¢.- MSTU 

ENDe. MSTU 

ENDy. MSTU 

BYPASS... MSTU 
DCMP)=ACICDt+1),.~ a fed’ : MSTU: 
ENDy. MSTU 

ICD =ICDtN,. a MSTU 
CDIN)=ACICD),. : ‘ MSTU 
DIN) =ACICDtl),. ; MSTU 
DQ J=N-1 TO 2 BY -ly. ne ‘ MSTU 
CO(J)=CDUJ-1)e. MSTU 

MSTU 

MSTU 

MSTU 

MSTU 

/% ENO OF PROCEOURE MSTU */MSTU 





Purpose: 
MSTU reduces a given real symmetric matrix to 
tridiagonal form by means of a sequence of 


orthogonal transformations. 


Usage: 


CALL MSTU a, N, D, ©D)s 


AQN#(Ne1)/2) - BINARY FLOAT 
Given matrix in compressed eraee 
mode. | | 
N - BINARY FIXED 
‘Given order of the matrix. — : 
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BINARY FLOAT | 3 
Resultant vector containing the 
‘diagonal terms of the tridiagonal 
matrix. | 

BINARY FLOAT 

Resultant vector containing the co- 
diagonal terms of the tridiagonal 
matrix in positions 2, 3, ..., N. 


DIN - 
CDN) - 


Remarks: 


The elements defining the transformations applied 
to the matrix will replace the given matrix in array 
A. These elements will be used in the computation 
of the eigenvectors of the original matrix neubsouine 
MVSU). 


‘Method: 


Each row and column of the matrix is reduced in 
turn by means of orthogonal similarities (House- 
- holder's transformations). 


For reference see: 


J.H. Wilkinson, The Algebraic Eigenvalue 
‘Problem. Clarendon Press, Oxford, 1965. 


Mathematical Background: 


We know that a matrix A of order n can be reduced 
_ to almost triangular form by means of (n-2) suc- 
cessive unitary similarities (see description of 
subroutine MATU). Furthermore, when A is 
symmetric, these transformations preserve the 
property of symmetry, and the resulting matrix is 
symmetric and tridiagonal. Let us consider the 
sequence of such similarities that reduces A to 
the tridiagonal form A a : 


Gt) _ x 4 P. Oa, 


where A(i) is assumed to be of tridiagonal form in 
its first (i-1) rows and symmetric, and where P; is 
the Householder matrix such that A@t!) is of ae 
diagonal form in its first i rows. We know that Pj 
is defined by : 7 | 


ee eae 
i” b¢ 


— T 
5) (v - be, » (v - be, 4) | 
it1 
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where: 
ve = (V5 Vor ve: ; v.) 
Vi. = o oP eee 2, oe | | 
Via ms , for k= oe nie 
b =4<y,v> nee sign (b) = - sign se) 


and where ej+ 1 is a vector whose (i+ 1)st compo- 


nent is one, the others being zero (see mathematical 


description of subroutine MATU). 


: _ _ | Z -1 
Putting x =v be and @ = k (Viua b)] 4 
we have | 
pA”) P= AO es a cree a 
+ ae Sap. A x > 7) 
= a 4 Ke x+1/2<x, AY x 
ax! ax 
+Qx ee Ne + 1/2 
<x, AO eee = 
Since AM) 2 at this can be written as 
PAQ p =a 4 yal + zy xe) 
where | 
Y= AO he one A) x>1| x. (2) | 


2 . 
| i = ae 
Programming Considerations: 
In the eq one bach: similarity is performed om | , 
the upper part of the matrix eC eran to equations 


(1) and (2). — 
The scalar products needed by the process are 


, computed in Eaounte precision. 


e Subroutine MEAT 


MEAT... 


MEAT 


SEREKEKKKEAKEK EKER SKE EKERERKEAEAEKAREEKEKRE SEEKKEKEREKERGEREKERKEKEKEKEKK/MEAT 


EIGENVALUES OF A REAL HESSENBERG MATRIX 


*/MEAT 
*/MEAT 
*/MEAT 


SL EEEKEREKERERE EAE EEKEKERKREREK ER ES SHER EEA EERE EKE EK KEKEER ESSERE KEERESRE/MEAT 
PROCEDURE (Ay MsRRyRIy ANA)». 
DECLARE 


E6 
ET 
E12 
H 


ANA(*) BIT(1)» 
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CONSTANTS 


ITMAX=30,. 


N 
BEG.. 
NL 


=Meye 
INITIALIZATION 
=N-1l,. 


IF N1=0 THEN GO TO ONEs. 


RS 


=HOe50 
DO [=lye2y. 
PANCI) sPRRUI Ds PRIC I) =0,%. 
END». 
=N1l-1,. 
DO IT=1 TO ITMAX,. 4% START LOOP FOR ITERATION 
IF ABS(A(N»N1)) LE EL2*ABS(AIN»sN)) THEN GO TO ONE,>. 
T =A(NLyN1LI“A(NON),. /* ROOTS OF THE LOWER MAIN 
U =T*T;. /* SUBMATRIX OF ORDER TWO 
Vv =4*A(NL IN) *ACN,NL),. ; 
TF ABS(V) LT U*E7 
THEN O0Q,. 
RRON1 =ACNL NL) 9 
RROUN) =ACNeN) 5. 
GO TO ZIMy. 
END». 
DO». 
T =U+tV»_. 
- ABS(T) LT E6*MAX(UPABS(V)) THEN T=0,5. 
S(ACNLINLI+A(N9N))/2y9. 
i =SQRTUABS(T))/2,. 
IF T LT O 
THEN DO,. 4* 
RR(N) sRRINL)J=U,. 
RI (N)=-V». 
RIC(NLIEAVe. 
END,. 
DO». 
RR(NJ=HUFV, 
RR(NL)=U-V,. 


COMPLEX ROOTS 


REAL ROOTS 


RIIN) eRI(N1)=0,.- 
IF ABSC(RRCNL)) LT ABSCRRIN)) 
THEN DO,. 
T =RRINL)D,6 
RRC(NLI=ERR(N) 9 
RRIN) =Tee 
END». 


0 THEN GO TO TWO,. /* TESTS OF CONVERGENCE 
EPS =E12*(RI(N1)+ABS(RRINL))) 90 
IF ABS{A(N1,N2)) LE EPS THEN GO TO TWO,. 
IF ABSCA(N1,N2)~—PAN(1)) LT ABSCAC(NL»N2))*E6 THEN GO TO CMP,. 
IF ABSCA(NNLI~PAN(2)) LT ABS(ACN,N1))*E6 THEN GO TO CMP,. 
K =O960 
_ DO T=1y, 296 /* 
J=I+4N2,. 
IF ABSCRRCJI—-PRRCI)) ABS(RI(J)-PRICT) ) 
LT H*¥(ABS(RR(J))4+ABSC(RI(J2)) THEN K=K+I,. 
PRR(T JERROD) oe 
PRICIJ=RIC SDs 
PAN(T)=ACJeJ—-l) >. 
END». 
IF K=0 
THEN ReS =096 
ELSE IF K=3 
THEN DO,. 
S =A(INegNIFAUNILINLI 9 
R =AUNygN) *AINLSNLI-ACN19N) AC NQN1), 
END, . 
ELSE 00,. 
R 


DETERMINE THE SHIFT 


=PRR(K) *PRR(K), @ 
s =PRR(K)+PRRIK)»~ 
END, 

IF NLT 4 /* 

THEN P3Q 

ELSE DO,. 


SEARCH FOR A PARTITION 


Sloe 


DO Q=N2 TO 2 BY ly. 
IF ABS(A(Q,Q-1)) LE EPS THEN GO To FOP 9. 
END: 

Q =lye 


IF Q LT N2 
THEN DO P=N2 TO Qtl BY —-l+. 
IPL =P+ls. 
IF (ABSCAU P,P) 4ACIP1,1P1)—-S) +ABS(ACIPL+4+1,I1P1))) 
*ABSCACP,P—-1L)*ACTP15P)) 


LT EPS*ABS(A( P,P) *(A(P,P)-S)FA(P,IPLI*FA(IP1SPI+R) 


THEN GO TO QRT>- 
ENDe. 

Pp =Qee 

END». 


DO I=P TO Nly. /* 
IPl =I+tl,. : 

IP2 =IPl+l,. 

Il =I-l,. 

IF [=P 


START QR TRANSFORMATION © 


THEN DO;. 
- Gl 
Ge 
G3 


7* INITIALIZE TRANSFORMATION 
SAUISTI*¥CACT s LI-S)tACT » IPLI*ACIPLeIItRy. 
SACIPLSTIFCACIP1L Ss IPLI+ACI 1) -S) 96 


 SACIP1eI)* AC IP2sIPL)»5. 


AUIP2,T)=O9. 


END,. 


ELSE DO,. 

Gl 
G2 
IF I 
THEN 


=A(I,I1),. 
=A(IPLe Tl) ee 
GT N2 

G3 
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*/MEAT 1060 


MEAT1070 
MEAT 1080 
MEAT1090 
MEAT1100 


*/MEAT1L110 


MEATL120 
MEAT1130 
MEAT1140 
MEAT1150 


" MEAT1160 


MEAT1170 
MEAT1180 
MEAT1190 
MEAT 1200 


MEAT1210 





ELSE G3 =A(IP2eI1)_- MEAT1220 

END». MEAT1230 

U =SQRT (G1*G1+G2*G62+G3*G3),. MEAT1240 

IF U=0 MEAT1250 

THEN DO, MEAT1260 

PHI =2y9- MEAT1270 

PSI1,PSI2=0,.- MEAT1280 

ENDge MEAT 1290 

ELSE D00,. MEAT1300 

- Gl-LT O THEN U=-U,. MEAT1310 

=G1+U,. ° MZ AT1320 

peta =G2/T,. MEAT 1330 

PSI2 =G3/Ty. MEAT 1340 

PHI =2/014+PSIL*PSI1L4+PSI2*PSI2) 96 MEAT 1350 

END,. MEAT1360 

IF I=Q THEN GO TO ROW,. MEAT1370 

IF I=P THEN ACI,ILJ=—ACI,I1),. MEAT1380 

ELSE AC(I,IL)=-U,. MEAT 1390 

ROW ee MEAT 1400 

DO J=I TO Nee /* ROW OPERATION */MEAT1410 

T =PSIL*A(IP1,J),.- MEAT1420 

IF I LT NL THEN T=T4PSI2¥A(IP2,J) 9. MEAT1430 

ETA =PHI*(T+AC I,J) )5. MEAT1440 

ACUI ,sJI=ACIgJI-ETA,~ MEAT1450 

ACIPLyJI=ACIPLsJ)—-PSIL*®ETA,. ‘ MEAT1460 

IF I LT NL THEN ACIP2,J)=ACIP2,JS)-PSI2*ETA,. MEAT1470 

END». MEAT1480 

IF I LT NL /* COLUMN OPERATION */MEAT 1490 

THEN K =IP2,. MEAT1500 

ELSE K aNy0 MEAT1510 

00 J=Q TO Kye MEAT1520 

T =PSI1L¥*A(J, IPL)». MEAT 1530 

IF I LT N1 THEN T=T4PSI2*A(J,IP2) 5. MEAT1540 

ETA =PHI*®(T+A( J,I))2- MEAT 1550 

ACJ eT =Al J, T)-ETA,. MEAT1560 

AC(JeIPLI=A(J,IPL)-ETA*PSI1,. MEAT1570 

IF I LT Nl THEN AlJeIP2)=Al J, I1P2)-ETA*PSI25. MEAT1580 

END». ; MEAT1590 

IF I LT N2 MEAT1600 

THEN DO,- MEAT1610 

I1P3 =IP2+41,. MEAT 1620 

ETA =PHI*PSI2*AC IP3,IP2)_6 MEAT 1630 

ACIP3,I)=-ETA,. MEAT 1640 

ACIP3,eIP1L)=-ETA*PSI1,. MEAT1650. 

ACIP3,¢IP2)=ACIP3, IP2)-ETA*PSI2,5~- MEAT 1660 

END». MEAT 1670 

END,. /* END QR TRANSFORMATION */MEAT 1680 

END,. /* END LOOP OF ITERATION */MEAT 1690 

CMP.ee MEAT1700 

IF ABSCA(N)N1)) GT ABS(A(NLsN2)) MEAT1710 

THEN MEAT1720 

TWO... MEAT1730 

DOee . /*® TWO EIGENVALUES HAVE BEEN */MEAT1740 

ANA(N1)="1°B,e /* FOUND */MEAT 1750 

ANA(N)="O0"B, MEAT1760 

N =N2e50 - MEAT1770 

END». MEAT1780 

ELSE MEAT1790 

ONE ce MEAT1800 

DO, /*QNE EIGENVALUE HAS BEEN FOUND*/MEAT 1810 

ANACN)=! 1" By MEAT1820 

RRIN) =AUNeN) > MEAT1830 

RI(N) =Ose MEAT1840 

N =Nl ee MEAT1850 

END. ‘ MEAT 1860 

IF N GT O THEN GO TO BEG,. MEAT1870 

RETURN: MEAT1880 

‘END. /* END OF PROCEOURE MEAT */MEAT 1890 
Purpose: 


MEAT computes the eigenvalues of a real upper 
almost triangular matrix (Hessenberg form -- 


see subroutines MATE and MATU) using the double 
QR iteration. 


Usage: 


CALL MEAT (A, M, RR, RI, ANA); 


A(M, M) 


RI(M) 


BINARY FLOAT 

Given almost triangular matrix. 
BINARY FIXED 

Given order of the matrix. 
BINARY FLOAT 


Resultant vector containing the real 


parts of the eigenvalues. - 
- BINARY FLOAT 


Resultant vector containing the imagi- 
nary parts of the eigenvalues. 
BIT(1) | 

Resultant vector containing information 
for checking the results (see ''Program- 
ming Considerations", below). 


ANA(M) - 
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. Remarks: 
‘The original matrix is ie cenayed: 
a Method: | | 
| Double QR iteration of J.G.F. Francis 
. For reference see: 


J.G.F. Francis, Computer Journal, October 1961, 
4-3; January 1962, 4-4. 

J.H. Wilkinson, The Algebraic Eigenvalue Problem, 
Clarendon Press, Oxford, 1965. 


Mathematical Background: 
1. Definition of the QR iteration 


Let A be a real or complex nonsingular matrix of 
order n. Then a decomposition of A exists of the 
form | 


= QR 


where Q is unitary and R is upper triangular. If 
the diagonal elements of R are real and positive, Q 
is unique. Consider now the sequence of matrices 
A) defined recursively by 


AM =a, a?) a) RO) ,@th _ p&) aoe a. 


Note that per e = QP)" A”) Q® P) for p = 0; hence, 
Al?) is similar to A for allp.  _ 

Furthermore, if A satisfies certain conditions, 
it can be proved that A(P) tends to an upper triangu- 
lar matrix as p?@; thus the eigenvalues of A are 
the diagonal elements of this limit matrix. 


2. Convergence 


If the moduli of the eigenvalues are distinct, the 
elements a\P below the main diagonal of A p tend: 
to zero, as do | > i | P/la4] ?, P. the eigenvalues being 
subscripted-so that |Ai]>|%;+1| 

Thus, in general, the sipenvaliies appear on the 
main diagonal, starting from the last po in 
increasing order of moduli. 

So, when the smallest eigenvalue An has been 
found, we can reduce the order of the matrix by 
neglecting the last row and column and find A,_4 
by the same process, without any special deflation. 

Note that the speed of convergence is consider- | 
~ ably improved when the origin of the: eigenvalues is 

shifted close to ae | 
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be inspected. 
will be split according to this occurrence, and the 


complex conjugate pairs of eigenvalues. 


of main submatrices of order 2.. 


Such a shift -- say, s g'P) __ can be introduced 
before an iteration and the opposite one afterwards. 
Then the iteration can be written as: 


AP) _ ) I= 9) At?) 


+1 
Att) < p® Qf) , 5) 
In general, AP) , for p large enough, can pro- 


vide an efficient value for s\P 


3. Use of the Hessenberg form 


‘The Hessenberg form is preserved under the QR 


iteration. Thus, a reduction of the initial matrix 
to the Hessenberg form can give a significant — 
saving of computation in each iteration for the QR 
decomposition, the lower part of the matrix con- 
sisting only of the codiagonal terms. | 

Before each iteration, the codiagonal terms will © 
If some of these are zero, the matrix 


iteration will be applied to the lower main subma- 


trix only. 


4. The double QR iteration 


Let A be a diagonalizable real upper Hessenberg 


matrix. Such a matrix must be expected to have 

If these 
pairs are the only eigenvalues of equal modulus, it 
can be shown that they will appear as the latent roots 
In this case, ifa 


shift is close to one of these roots, .it will be com- | 


plex, and we will have to deal with complex ma- 
trices, although the initial one is real. 
the double QR iteration avoids this inconvenience. 


The use of — 


Taking s(P+1) = §(P), consider the transforma- 
tion Biving A(pt 2) from A(P). | 


| ot 2) _ get" Q)* A) o(P) gPth) 


It can be proved that the product gat 4) de- 
rives from. the QR decomposition of the matrix M = © 
(A(P) - s(P) 1 (A(P) - s(P*1) 1), which is real. 

In fact, Francis (1961, 1962) showed that only 


the first column m, of M is necessa i for determin- 
ing the transformation which gives A‘P 
A(P), if they both have the Hessenberg form. 


+2) from 


Practically, the first part of the double iteration 
consists of the application of an initial transforma- 


| tion Nf A(P) N; where Nj is unitary and such that 
NT my =|) my | ey. 
“no longer has the Hessenberg form. 


This leads to a matrix that 


Thus, the remaining part of the iteration will 
involve the application of (n-1) successive trans- 
formations, which have the same form as the initial 
one whose matrices N; are such that the resulting 
matrix A(Pt2) has the ‘Hessenhers: form. 

This process can fail when a subdiagonal term of 
the given matrix is zero. In this case, the matrix 
can be split, and the iteration is performed on the 
lower main submatrix only. 

In the subroutine, N, are Householder's matrices. 


Programming Considerations: 


At each iteration, the latent roots x; and xg of the 
lower main submatrix of order 2 are computed. 
Then the following situations can occur: 

1. The term an-1, n-2 can be taken as zero. 
X, and X5 are eigenvalues of the original matrix, 
and the order of the matrix is reduced by 2. ANA(N) 
and ANA(N-1) are set to 0 and 1 respectively. 

2. The term ayn, n-1 can be taken as zero. In 
this case, ay py is an eigenvalue of the original 
matrix, and the order of the matrix is reduced by 
1. ANA(N) is set to 1. 

3. One of the last two subdiagonal terms is stable 
through one iteration. Then the smaller one is con- 
sidered as zero. The corresponding components of 
ANA are set to 0 or 1, according to situation 1 or 2, 

4. The maximum number of iterations is reached. 
In this case the smaller of the last two subdiagonal 
elements is taken as zero. The corresponding 
components of ANA are set to 0 or 1, according to 
situation 1 or 2. | 

The user can check the results by inspecting the 
subdiagonal terms of the matrix on return from the 
subroutine, according to the vector ANA, in the 
following way: If, for each ANA(D containing 1, 


Then 


| A(I,I-1)|<10" ([RRM| + | RIM] ), 
i=2,..., M 


then RR(I) and RI(I) were computed with a satisfac- 
tory accuracy. 


B(M) - 


e Subroutine MEST 


MEST ee MEST 
[BIR GIE ROIS TOI OI ORI IOI IIIB ATER IR TISAI EEO IOI ERICEIRA IRE / ME ST 
*/MEST 
*/MEST 
/ */MEST 
[ER RR RAR RR RR I RC I A ER RO I EE ERE EE RAE ERS ME ST 
PROCEDURE (A;ByeMyeDyNEIG) ye MEST 
DECLARE MEST 
(MIT eMeNeNEIGeNR ol yKeITy Je IP) BINARY FIXED, MEST 
(C1lyC2sCD(N) COU DU *) PET ELC oGp Hy Py PDe Se SHe To Ue Al *) 9B *)) MEST 
BINARY,. MEST 
=1.CE-2Ce. /* CONSTANTS */ MEST 
=1.CE-7r. MEST 

=300-6 MEST 

MEST 

ve INITIALIZATION */MEST 

IF NE IG GE N MEST 
THEN DOy. MEST 

>» =Noee MEST 

=N-l>. MEST 

° MEST 

=NETGye MEST 

MEST 

DO I=L TO Nye MEST 
D(I)=ACI),. MEST 

CDCI =B( II *B( 1) ye MEST 

END). MEST 

DO K=1 TO NFy. /* LOOP FOR NR EIGENVALUES */ MEST 

Nl =N-1y. MEST 

PD =Coe MEST 

DO IT=1 TO MIT,. /* START LOOP FOR ITERATION */MEST 

Cl =ABS(D(N) ),. , MEST 

C2 =C1*Cl1ly. /* TEST CONVERGENCE */MEST 

IF COC(N) LE ElO*C2 THEN GO TO DECy,. MEST 

S =ABS(D(N)—PD) 96 MEST 

IF S$ LE &€7*Cl THEN GO TO DEC,. MEST 
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IF S GT H¥C1 /* TEST FOR APPLYING A SHIFT */MEST 
THEN SH =O7- MEST 
ELSE SH =D(N) 9. ‘ MEST 
PD =DIN) »- MEST 
DO J=N1 TO 2 BY ge /*TEST FOR SPLITTING THE MATRIX*/MEST 
IF CD(J) LE E10*C2 THEN GO TO SIT. MEST 
END. MEST 
=H1lee MEST 
EST 
=Cre /*INITIALIZE THE TRANSFORMATION*/MEST 
Hl. 
=0(0J)-SH». 
=G*Gye 
=CO(N)y~ 
DO I=J TO Nl,. 
Te =I+l,. 
T =P+CO(IP) +. 
CO(1I)=S*T,. 
S =COLIP)/Ty. 
=C296 
=P/Ts. 
=O0(IP)-SH,. 
=S*(G4+D(IP))+. 
=GtU+SH,. 
=D(IP)-U,. 
IF C2=0 
THEN P 
ELSE P 
END». 
CO(J}=COJs. 
CD(N)=S*P,. 
DIN) =G+SH,. 
ENO,. /* 


QR TRANSFORMATION 


=CD(IP)*Cl,. 
=6*G/C2,. 


' *JMEST 
DEC.. MEST 


END LOOP FOR ITERATION 


N =Nl». /* DEFLATE ORDER OF THE MATRIX */MEST 
ENDy. MEST 

IF NEIG LT M MEST 
THEN DO,. MEST 
J=M-NEIG,. : MEST 

DO I=1 TO NEIGy. MEST 

J=J+1ly. MEST 
DII)=D(J)4. MEST 

END». MEST 

END? MEST 
RETURN, « MEST 
END, x END OF PROCEDURE MEST */MEST 





Purpose: 


MEST computes the eigenvalues of a real symmetric 
tridiagonal matrix (see subroutine MSTU). 


Usage: 
CALL MEST (A, B, M, D, NEIG); 


A(M) - 


BINARY FLOAT 

Given vector containing the diagonal terms 
of the matrix. - 

BINARY FLOAT 


Given vector containing in positions 2, 
3, ..., M, the codiagonal terms of the 
matrix. 
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M - BINARY FIXED 
Given order of the matrix. 


D(M) - BINARY FLOAT | 
Resultant vector containing the eigenvalues. 
NEIG - BINARY FIXED 
Given number of eigenvalues required 
(see Remarks"). 
Remarks: 


When the eigenvalues are well separated, this pro- 
cedure generally gives the NEIG eigenvalues of 
smallest moduli in the first NEIG posione of 
vector D. 

Vectors A and B are preserved. 


Method: 
QR iteration modified by Kaiser and Ortega. 
For reference see: 


J.M. Ortega and H.F. Kaiser, "The LL? and QR 
methods for symmetric tridiagonal matrices", 
Computer Journal, Volume 6, 1963, pp. 99-101. 
J.H. Wilkinson, The Algebraic Eigenvalue Problem, 
Clarendon Press, Oxford, 1965. 


Mathematical Background: 


The general properties of the QR algorithm are 
given in the description of subroutine MEAT 
(''Mathematical Background", items 1 and 2). We 
recall them briefly here. 

For a given diagonalizable matrix A of preer n, 
the QR iteration is defined by: 


where Q(P) R(P) is a unitary-triangular factorization 
of AP). A condition on R") is assumed to ensure 
the uniqueness of the factorization. If the eigen- 
values have distinct moduli, for example, | AG | > 
[A341] fori=1,..., n-1, then we have the 
following properties 

1. When p tends to infinity, A‘P) tends to a tri- 
angular matrix and the eigenvalues of A appear on 
the main diagonal of AP), starting from the last 
position in increasing order of moduli. 

2. The symmetry and the tridiagonal structure 
of a matrix are preserved under the QR iteration. 

3. If the origin of the eigenvalues is shifted close 
to An before an iteration and shifted back afterwards, 
chen the rate of convergence of ay n tO dn -- that is, 
the rate of convergence of alP), to zero for i= 

-, n-1, can be considerably improved. 
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From the second property we can see that a 
preliminary reduction of a symmetric matrix to a 
similar tridiagonal form will give a significant 
saving of computation for each QR iteration. 

_ From the first property we note that no special 
deflation is needed when , has been found to suf- 
ficient accuracy; the last row and column of the 


_ matrix are neglected and the iteration is applied 


to the reduced matrix to obtain 
Let us consider a step of the iteration, denoted 
by | 


A=QR, A'=RQ 


where A’ is the iterate of A, the iteration super- 
script being dropped for clarity of notation. A and 
A' are symmetric tridiagonal matrices of order n. 
A will be fully defined by its diagonal terms 


ai, i=1, ..., nand its subdiagonal terms 
bj, i=2,... , mn. The terms of A‘ will be denoted 
bya;,i=1...,nandbj,i=2,..., mn 


The reduction of A to R can be completed by pre- 


multiplication by (n-1) orthogonal matrices (Plane 


Rotations) Q, =A. ., n-l of the form 


1 


C. and s, are the cosine and sine of an angle such 
that 


R= eer ssa Q, A 
Then: 
es Q, Qn1 
c, and J are given by 
a 
c.=—>5 wig 
© + bs ger 


.,ne-l (1) 
with 
a ey Wile sas Oa 


and 


R will be defined by: 


r. =c_p.+s.b eal Oe are 6 Heeb 


i,i ii i itl’ 


ce c,h, +s a | (2) 


= ,i=1,... 
Ti iso Si Pine} 


r. ,=0 for j>it+2 


1, Jj 


The post- euiitiplieation of R by Q will eae A’ 
according to: 


ai ~ “4 °% “ii ei i, itl 
| . 1= 2, »n-l 
a, 7 “n-1 “nn (3) 
/ 
Died 8a Tied itd 
| os res seas 


Formulas (2) and (3) can be combined in order to 
get IN directly from A. This avoids the computa- 
tion of the square roots appearing in the expres- 
sions of c; and s; 

Then the final sigonitimn can be expressed as 
follows: 


il 
p, = b/c, when c, , 40 
=or 9 be when c — 0 
of = s (p, + bi, )  fori>1 (4) 


Programming Considerations: 


The iteration is performed according to equations 
(4). A shift of the origin of the eigenvalues is intro- 
duced in order to accelerate convergence. This 
shift is based on the last diagonal term of the matrix: 
it is applied only when convergence begins appearing. 

When several eigenvalues are of same magnitude, 
codiagonal terms are close to zero. Then the matrix 
is split according to this occurrence and the itera- 
tion is performed on the lower main submatrix only. 
The iteration is stopped and the last diagonal term 
is taken as an eigenvalue when one of ie following 
situations occurs: 

1. The last subdiagonal term can be taken as 

- Zero. 
2. The last subdiagonal term is stable through 
one iteration. _ 

3. The maximum number of iterations is reached. 
Then the order of the matrix is reduced by one and 
the process is repeated on the resulting matrix. 
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e Subroutine MEBS 


MEBS. MEBS' 10 
/* SECON EERE REESE EEN HAE AA SHAE SEH ERA HA RAHA RAAAA HAHAHA /HEBS 20 
/* _*/MEBS 30 
/* BOUNDS FOR THE EIGENVALUES OF A SYMMETRIC MATRIX vi Aaleies 40 
/* JMEBS 50 
ATi tL Se tsi ister sere Pert rir eee et rte Tee TT Te Se ee et ere peccoaesectedse nese 60 

PROCEDURE (AyN,B1,B2)¢. MEBS 70 
DECLARE . MEBS 80 
(IeJeKebyN) BINARY FIXED, MEBS 90 
(A(*),B1,B2,PsSQ) BINARY, . MEBS 100 
(SySl9S2) BINARY(53),. MEBS 110 

J =2, MEBS 120 
Sl “ACLs. MEBS 130 
$2 Ove MEBS 140 
Ss asitsty, MEBS 150 
I MEBS 160 
ae. K=2 TO Ng. MEBS 170 

I =I+K,. MEBS 180 

$l =S1t+AC(I)_. SUM OF THE ROOTS */MEBS 190 
Be ee MEBS 200 

00 L=J TO I-ly, MEBS 210 

S2= S NULT PLT CREE A(L),53),. MEBS 220 

ENDy,. MEBS 230 

J =I+l,. MEBS 240 

END se MEBS 250 


$2 =2*S2+S9. /7* SUM OF THE SQUARES OF ROOTS */MEBS 260 


SQ =SQRT((N-1) *ABS(N*S2-S1¥*S1)),./* ITERATE FROM INFINITY */MEBS 270 
P =CI-NI*S2+S1*S 1 ye MEBS 280 
IF S1 LT 0 MEBS 290 
THEN DO,. MEBS 300 
Bl =S1-SQ,. MEBS 310 

B2 =P/Bly. MEBS 320 

Bl =B1/Nye MEBS 330 
ENDy. MEBS 340 

ELSE DO, MEBS 350 
=S1+4+SQy. MEBS 360 

Bl =P/B2y. MEBS 370 

B2 =B2/Ny. MEBS 380 
END». MEBS 390 
RETURN» « ME8S 400 
END,. /* END OF PROCEDURE MEBS */MEBS 410 

Purpose: 


MEBS computes a lower and an upper bound for the 
eigenvalues of a real symmetric matrix. 


Usage: 
CALL MEBS (A, N, B1, B2); 


A (N*(N+1) /2) - BINARY FLOAT 
_ Given real symmetric matrix in 
aed compressed storage mode. 
N - | BINARY FIXED | 
| Given order of the matrix. 


Bl - BINARY FLOAT 
: Resultant lower bound. 
B2 - BINARY FLOAT 
| Resultant upper bound. 
Method: 


Laguerre's iteration is applied to the points at 
infinity. 


For reference see: — 

B. Parlett, "Laguerre's Method Applied to the 
Matrix Eigenvalue Problem", Mathematics of Com- 
putation, 18, 1964. 


Mathematical Background: 


1. lLaguerre's iteration. 
Let P(x) be a polynomial of degree n. The 
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Laguerre iterate of a point x for the poly- 
nomial P can be expressed by 


L(%) =x- 
n P (x) 
P (x) £4/(n-1) [(n-1) P' (x)? - nP (ws) P' J 
| (1) 


Letting 








P(x 
S, (x) = Bay r2% 


ha 


S_(x) = 
2 P(x)” 


2 1 
i=1 (xX-x,) 


where Kyo +++ X, are the roots of P(x), formula 
(1) can be written as 


L(x) = x — 
fae s, + v/fa-1) (as, -s.) (2) 


The sign of the square root is chosen so that the 


magnitude of the denominator is maximum. 
When P(x) has real roots, we have the Dente 


properties: 

a. Let us consider a edrition of the | 
line defined by the points at infinity and — 
the zeros of P” (x). Starting from an 
initial point in any interval of the parti- 
tion, the successive Laguerre iterates 
converge monotonically to the root there- 
in. If the root is simple, convergence is 
asymptotic ally cubic. | 


b. ' Laguerre' s iterations are invariant ces 
Mobius transformations. 
2. Iterates of the points at infinity. 
From the first property of monotonic con- 
vergence, we can see that the iterates of the 
points at infinity will provide bounds for the 


roots. The second property gives the rela- 
tion. | : i er ee 
L_(%) = -—Tr—-— | | 
p L — — @) 
Qix | 


where Q is the polynomial reciprocal of P, | e Subroutine MVST 
the roots of which are 


MVST ee MVST 
1 Ge eee Oe ee ten Oe ene ee are Ae eee 
/* * 
_ : EIGENVECTORS OF A SYMMETRIC TRIDIAGONAL MATRIX eance 
a * */MVST 
xX. 1 1, eo ey Th pe sbse ca wk ead ade aia Ha LSet 
1 PROCEDURE (DeCOeN,EIGsY),.~ MVST 
: OECLARE MVST 
(00*),CD(*) ,EIGs Y(*) sETeT EPS oW, MVST 
Thus XN) ¢ PON) sQ(N) sACN) »RON) pUeVeSeCIyCIP) BINARY, MVST 
(NeTeIPLeNl,ITeI1) BINARY FIXED, © : MVST 
CH(N) BIT(1),. vee 
NL=N—1l,. : 
1 4. E7=1.0E—-T7,. ; MVST 
L () i ee ( ) bar ae a 4% NORM OF THE MATRIX Peale 
P L,~ (0) W=MAX(ABS(DET)) »ABS(CO(TI) Dy. MVST 
Q IF WGT T THEN T=We. MVST 
ENDy., MVST 
EPS=T#*ET7 y.- ’ MVST 
U=D(1L)—-EIG,. MVST 
Now, if we combine equations (2) and (4), we THEN VaCIPSEPSy + | VST 
: . ELS sCIP=CD(2),. MVST 
can obtain the final formula ae Mt aires Nloe START FACTORIZATION */MVST 
= ge MVST 
| resales? te 
If I = Nl MVST 
THEN CIP=0,%. MVST 
Ty (~) = 1 [o + (n-1) (n oO = 0,9) ELSE IF ABS(CD(IP1+1)) LT st 
THEN CIP=EPS,. MVS 
Pp n 1 2 1 (5) ELSE CIP=CD(IP1+1) 9. MYST 
1 IF ABS(CI) GE ABS(U) PIVOTING Z path 
THEN DOye INTERCHANG 
c IF U NE O MVST 
where o. is the sum.of the roots ando. the THEN ACTPLI=U/CTs« ays 
sum of ae squares of the roots of polynomial | Stee ApIpiieOn OveL 
PCI)=CI,. MVST 
P. Q(1)=OU1P1)-—-E1G,. MVST 
RCI)S=CIP,. ee 
U=V—-ACIP1)*Q(1),. 
. : i V= -ACIPL)¥*RIT),. MVST 
Programming Considerations: ee ee ee 
00O,. NO INTERCHANGE */MVST 
j= te MVST 
| ; stim mvs 
We can note that equation (5) does not require the co- QU1D=Vs. HVST 
R(CT)J= ve 
efficients of polynomial P but only the values of 7 U=O{TPL)-EIG-V#AC IPL)», | HVST 
ando 9. If we apply this formula to the character- oe aver 
. e e e e IF ABSC(CP{I)) LT EPS THEN PC(I)=EPS,. MVST 
istic polynomial of a symmetric matrix (real roots), XU1}=19. /* INITIAL GUESS OF EIGENVECTOR*/MVST 
' : ; END). 
o; will be obtained by computing the trace of the IF ABS(UI LT EPS THEN U=EPS». “a Boe oat MVST 
’ { )= fe , 
matrix and 05 the sum of the squares of the terms a 09 rrate2e. /* START LOOP FOR ITERATION */HVST 
of the matrix. Then, equation (5) will give the TOU ta Gi? TSOLNG WERTH LOMER ERETOR > “C4704 ST 
bounds of the eigenvalues. 0 122'TO Nee /* NORMAL I ZATION */MVST 


U=ABS(X(T)) 96 . MVST 
IF U GT V THEN V=Uy. MVST 

END». MVST 
XCLI=XCLI/Vo~ MVST 

DO I=2 TO Ny. MVST 
XCT)=XC1)/V 96 MV ST 

IF CHIT) MVST 

THEN DOy. . | MVST 

Tl=I-1y. MVST 

U=X(IL) 96 MVST 

XCILI=X(1) 96 MVST 

XCT)=U-ACT) #XC1T1L) 96 MVST 

END, . MVST 

ELSE X{I)=X(L)-ACL)#X(I-1) 9. MVST 

END». MVST 

ENDy. a MVST 
XCN)=X(N) /PON) 90 /* SOLVE WITH UPPER FACTOR */MVST 
XCNLD=€XCNLI-QONLI®X(ND)/PO(NL) 9 MVST 
DO I=N-2 TO 1 BY —ly. MVST 
XCLI=CXCL QUT) #X CLF LIAR CL I®XC1420/PCL) 2 MVST 
ENDy. MVST 
END». 7/* END LOOP OF ITERATION +*/MVST 
S=0y. MVST 
DO [=1 TO Ne. /* NORMALIZE SOLUTION */MVST 
S=StX( 1) #X(1) 5. MVST 
END». | MVST 


S=SQRT(S)>. : » MYST 
DO I=1 TO Ne. MVST 
YCTDI=XC1)/S9~ MVST 
ENDs. MVST 


RETURN 9. , 6 MVST 
END, . 1% END OF PROCEDURE MVST */MVST 





Purpose: 

For a given symmetric tridiagonal matrix, MVST 
provides the eigenvector corresponding to a given 
eigenvalue. 


Usage: 


CALL MVST (D, CD, N, EIG, Y); 
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D(N) - BINARY FLOAT a: 7 
Given vector containing the diagonal terms 
of the matrix. 

CD(N) - BINARY FLOAT 
Given vector containing in positions 2, 3, 
eoe, N the codiagonal terms of the matrix. 


N - BINARY FIXED 
a Given order of the matrix. 
EIG - BINARY FLOAT 
| Given eigenvalue. 
Y(N) - BINARY FLOAT 
Resultant vector containing the eigenvector. 
‘Remarks: 


Vectors D and CD remain unaltered. 
Method: 


Wielandt's inverse iteration is applied to the matrix, 
using the given eigenvalue as a shift. 


For reference see: 


J. H. Wilkinson, The Algebraic Eigenvalue Problem | 
Clarendon Press, Oxford, 1965. | 


J. H. Wilkinson, "Calculation of the eigenvectors of 
the symmetric tridiagonal matrix by inverse itera- 


tion'’, Numerische Mathematik, 4 (1962), pp. 368-376. 


Mathematical Background: 


Let us suppose that we know an approximation i of an 
eigenvalue of a symmetric tridiagonal matrix A. A 
corresponding eigenvector V can be obtained by using 
Wielandt's inverse iteration (see the description of 
procedure MVAT), defined by the iterative process: 


vO) ~ ae ant y®) 


where vy) is an arbitrary vector, not deficient in the 
eigenvector V. 
Considering a triangular factorization of A-AI, 


A~AI-= LR, 
(pt1)_. ; ss , 
VY ~* will be provided by solving successively the 
following equations: 
Lw = vl) | (1) 
+1) | 
avert) _ w |  @) 


When A is close to an eigenvalue of A, vy”) tends. very 
rapidly to V. Most of the time, two iterations are 
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quite sufficient to provide an accurate approximation 
of V. 


Programming Considerations: 


A technique of partial pivoting by row interchange is 
used for the triangular factorization. This factoriza- 
tion is performed before starting the iterative process. 

_ The two iterations are then carried out according 
to formulas (1) and (2). | 

The initial vector V) is chosen so that 

Vv) = Le, with eT = (1, 1, ..., 1). Then the first 
iteration will consist of solving equation (2) only: 


avi) = 


e Subroutine MSDU 


GO TO S30. MS0U1210 
END?+. _ 4S0U1220 

IF INO= 1 4S0U1230 
THEN ON,;. MSDU1L240 
IND =O». MSDU1250 

GO TO S20;. MSOU1260 
ENDy. MSDU1270 
#/MS0U1280 
*/MS0U1290 
*/MS0U1300 
MS0U1310 
MSOUL320 
*/MS0U1330 
*/MSDUL340 
*/MSDU1350 
MSDU1360 
MSDU1370 
MSDUL380 
MS0U1390 
MSDU1400 
MS0U1410 
MSDU1 420 
MSO0U1 430 
MSD0U1L440 


MSOU.. “SOU 10 
LEER RRR ERR HER RHR RK RK ERK EERE RES RR OK EK RE EE K/MS DU 20 
/* */MSOU 30 
TO COMPUTE EIGENVALUES AND EIGENVECTORS OF A REAL SYMMETRIC */MSDU 40 

MATRIX */MSOU 50 

*/MSDU 60. 

TER AMM HR BM RR RR MEARE KERR KEE KER EERE EEKIMS OU . 
PROCEOURE (AyRaNoMV) 9. MSOU 8C 
DECLARE MSDU) 90 
(IlsINDs dehy MeMVeN) MSOU 100 

FIXEO BINARY, MSOU 110 

ERROR EXTERNAL CHARACTERI1), mSDOU L20 

(AC%,*) »R0%_,*) ,ANORMy, ANRMX 4 THR ULV pSINX aS INX29COSX,COSX2e¢SINCS,MSOU 130 

FN) MSOU 140 

BINARY FLOAT,. /*SINGLE PRECISION VERSION /*S*/MSODU 150 

BENARY FLOAT (53). 7*DOUBLE PRECISION VERSION /*0*/MSOU 160 

*/MSOU 170 

ERRGR="0',. MSOU 180 

IF N LE 1 /4* THE ORDER OF MATRIX A IS */MSOU 190 
THEN DO,. 7* LESS THAN GR EQUAL TO ONE. ¥*/MSOU 200 


COMPARE THRESHOLD WITH FINAL NORM 


IF THR GT ANFMX 
THEN GO TO S10,. 


SORT EIGENVALUES AND EIGENVECTORS 


= 1 TO Nee 
0O J = I TO Noe 
IF A€IyI) LT ACJyJ) 
THEN DN,. 
U =A(CI oI)e. 
ACT eI) =AC Jed) 5. 
A( JJ) =Uye 
IF MV= 0 


ERROR=" 1%). 
GO TO FIN,. 
END». 


MSOU 
MSNU 
MSOU 


219 
220 
230 


THEN O0,. 
DO Lt = 1 TO Nye 
U =R(LyI)96 


MSDU1450 
MSDUL460 
MSDU1470 


FN =Nye MSDU 240 
IF MV= 0 MSOU 250 
THEN DOy. MSOU 260 
DO I = 1 TO Nye /* GENERATE IDENTITY MATRIX */MSDU 270 

DO J = 1 TO Noe MSDU 280 

R(LyJ)=0,. MSDU 290 

END ». MSDU 300 

R(I,l=1ly. MSOU 310 

END? - MSOU 320 

ENDy. MS DU .330 
*/MSOU 340 
*/MSDU 350 
*/MSDU 36C 
ANORM=0,. MSDU 370 
00 I = 1 TO N-l>. MSOU 380 

DO J = I+1 TO Ny. MSDU 390 
ANORM=ANORMtA(T J) *ACT JS) 9 MSDU 400 

END». . MSOU 410 

END?. MSDU 420 

IF ANGRM LE C.0 . MSOU 43¢€ 
THEN GO TO SGRT,. MSDU 440 
ANORM=1.414*SQRT( ANORM) >. MSDU 450 
ANRMX=ANORM*1.0E-6/FN ye MSDU 460 
*/MSDU 470 
*x/MSDU 480 
*/MSOU 490 
=Cy. MSOU 500 
=ANORM,. MSDU 510 

MSDU 520 

=THR/FNy. MSDU 530 

MSOU 540 

ly. MSOU 550 

MSDU 560 

'sl+lee MSDU $70 
MSDU 580 

IF ABS(A(L»M)) GE THR /* COMPUTE SIN ANDO */MSDU 590 
THEN 00,. MSDU 600 


R(LsITJ=RULyJd) oe MS0U1480 

R(L,J)=Ur. MSDU1490 

ENDy. MSOUL500 

END ye MSOUL510 

END». MSDU1L520 

END». MSDUL530 

END,. MSOU1540 

FINe.s MSDU1550 
RETURN». MSDU1L560 
END». /*END OF PROCEDURE MSDU */MSDU1L570 





COMPUTE INITIAL ANDO FINAL NORM 


Purpose: 


MSDU computes eigenvalues and eigenvectors of a 
real symmetric matrix. 


INITIALIZE INDICATOR AND COMPUTE THRESHOLD, THR 


Usage: 
CALL MSDU (A, R, N, Mv); 


BINARY FLOAT [(53)] 

Given matrix (symmetric), destroyed in 
computation, 

Resultant eigenvalues are developed in the 
diagonal of matrix A in descending order. 
BINARY FLOAT [(53)] 

Resultant matrix of eigenvectors (stored 
columnwise, in the same sequence as 
eigenvalues). 

BINARY FIXED 

Given order of matrix A and R. 

BINARY FIXED 


Given code containing the following: 
0--compute eigenvalues and eigen- 
vectors. 
1--compute eigenvalues only. 


A(N, N) ~ 


IND =ls. | MSDU 610 
U =O.5*(ACLyLI-AUMyM)),. MSDU 620 
Y =-A(L eM) /SQRTCA(L»M) AIL» M)+UFU),. MSDU 630 


IF U LT 0.0 MSOU 640 
THEN Yo =Yoe MSDU 650 
SINX =Y/SQRT(2.0¥*(1.04#(SQRT(1.0-Y#Y) 009. MSDU 660 
SINX2=SINX*SINX»« MSDU 670 
COSX =SQRT(1.9-SINX2) 9. MSDU 680 
COSX2=COSX*COSK».« MSDU 690 
SINC S=SINX#COSX»« ‘MSCU 700 
D0 I = 1 TO Ny. /* ROTATE L AND 4 COLUMNS #/MSDU 71C 
IF PuT bk . MSDU 720 
THEN DQy. MSDU 730 
If I LT M MSOU 740 
THEN DOr. | MSDU 750 
UAL ToL) #COSX-AUT yM)#SINKy« MSOU 760 
A(T yM)=ACT 4h) *®SINX*ACT »M)#COSX >. MSDU 770 
AUT yL}=Uy. MSOU 78C 
ENDy. MSDU 790 
END». MSOU 890 N - 

ELSE IF IGT L MSOU 810 

THEN DO,. MSODU 820 

IF I UTM MSDU 830 


THEN DO;. MSDU 840 = 
U =A(LyT) *COSX-AC(I»M)¥*SINXy.~ MSOU 850 MV 


ACT ys M)=A( LT) *SENX+ALT »M) ®COSXy« MSDU 860 

END». MSOU 87C 

ELSE IF I GT M MSDU 880 
THEN DOy. MSOU 890 

uU =A(Ly1) *COSX-A(M,1)¥*SINXs~ MSOU 900 

ACMy I) =AC LoL) *SENX+ACMy I) #COSX> « MSOU 910 

ENDy. MSDU 920 

IF I NE M MSOU 930 

THEN ACLel)=Uy. MSOU 940 
END». MSOU 950 

IF MV= 0 MSDU 960 
THEN DOr. MSDU 970 
U =R(L yL) *COSX-& (1 yM) *SINXe« MSDU 980 
RULyMI=RUL,L) SINX#RO 19M) *COSX 4. MSDU 990 
R(LsL=Uy. MSDU1COO 


R(N, N) ~ 


Remarks: 


END,. 

END, o 
U =2eC*A(LM) *SINCS». 
Y =A(L oh) ¥COSX2+A0MyM) FSINX2—-Uy @ 
U =A(L Lh) *SINX2+A0My M) ¥COSX24Uy 
ACL MD =(CAC Ly LI-AUCMyM)) FSINCSHACL 9M) ®(COSX2-SINX2) 5 
A(LaLI=Yo. 
AUMsM)=Us. 
END»). 
NE N ; /* TEST FOR M = LAST COLUMN 
DOr. 
M =M+1ly. 
GO To $404.6 
ENDys. 


TEST FOR L = SECOND FROM LAST COLUMN 
NE N-1l 


DO;. 
L =Ltle. 


MSDULOLO 
MSDU1020 
MSDU10306 


MSDU1040- 


MSDU1050 
MSDU1060 
MSDU1070 
MSDU1080 
4S0U1090 


¥*/MSDU1100 


MSDU1110 
MSDU1120 
MS0U1130 
MSDU1140 


*/4S0U1150 
*/MSDU1160 
*/MSO0U1170 


MSDU1180 
MSDU1190 
4S0U1200 





If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 


ERROR=1 - The order of the matrix is one or less. 


Note: If the initial norm is equal to zero, the matrix 
is diagonal. 
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Method: 


Diagonalization method originated by Jacobi and 
adapted by Von Neumann for larger computers as 
found in Mathematical Methods for. Digital Computers, 
edited by A. Ralston and H. 8. Wilf, John Wiley and 
Sons, New York, 1962, Chapter 7.. 


ee atical Background: 


‘This subroutine computes the eigenvalues and eigen- 


vectors of a real symmetric matrix. 

Given a symmetric matrix A of order N, eigen- 
values are to be developed in the diagonal elements 
of the matrix. A matrix of eigenvectors Ris also 
to be generated. 

An identity matrix is ace as a first approxima- 
tion of R. 
The initial off-diagonal norm is computed: 


1/2 


vp =5 2 2A. ay 
i<k | 

Vy = initial norm 

A = input matrix (symmetric) 


This norm is divided by N at each stage to produce 


the threshold. 
The final norm is computed: 


yx 10° 

Vp >? nN | , la. | (2) 
This final norm is set sufficiently small that the 
requirement for any off-diagonal element Aj,, to 
be smaller than yp in absolute magnitude defines 
the convergence of the process. 

An indicator is initialized. This indicator is 
later used to determine whether any off-diagonal 
elements have been found that are greater than the 
present threshold. 

Each off-diagonal element is selected in turn and 
a transformation is performed to annihilate the off-_ 
diagonal (pivotal) element, as shown ay the following 
equations: 


a ow 


= Y2(A,-A @ 


mm _ 


F 
| 
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ot 


w = sign (Uy) 6) 
May 


Vaa+ Vi- w’) | a 
6be 0= yi - sin” 6 | (7) — 


B = Ay cos @ “An sin 6 (8) 
C = A, sin@+A._ cos @ : (9) 
B= R,,cos@-R. sin@ (10) — 
il im 
R. = R., sin@+R. cos 6 (11) — 
im il im 
Ry = B (12) 
A. =A. aoa" O+A sin’ @ 
il il mm 
(13) 
~ 2A an sin 6 cos @ 
A = A ahi" 6+ A wee? 6 
mm 11 mm 
| (14) 
+ 2A sin 6 cos 9 
Alun = (Ay -A ae sin -) cos 9 
(cos” 6 - sin” 6) (19) 


+ Atm 


The above calculations are repeated until all of the 


pivotal elements are less than the threshold. 
Programming Considerations: 


Matrix A cannot be in the same location as matrix 

R. If the eigenvectors are not calculated, the 

matrix R does not need to be dimensioned in the 
declare statement, but R must appear in the argument 


list of the procedure, 


e Subroutine MGDU 


MGDU.. MGDU 
LECCE EEEKHEEKEKKESE EER KEKEREKEEEGERKEKEKEKEKEL ES EREKKEREKKEE KKK KKEKEKEKREHKEK/MGDU 
s* */MGDU 
TO COMPUTE EIGENVALUES AND EIGENVECTORS OF A REAL NONSYMM— */MGOU 
ETRIC MATRIX OF THE FORM B INVERSE TIMES A. */MGDU 
*/MGOU 

LERERRERASEKAREKE THE KEKEKEKEKEE ERASER KEKREKEKKEREEKERKEKEREKEK EEK KKKERE*K/MGDU 
PROCEDURE (MsA9ByXLyX)_- MGDOU 
DECLARE MGDOU 
(IeJeMeMV eK) MGDU 
FIXED BINARY, MGDU 
ERROR EXTERNAL CHARACTER(1)s MGDU 

CAC# 4g #) 1 BU%y *) pX0%_ *) XL 4%) ySUMV) MGDOU 
BINARY FLOAT». /*SINGLE PRECISION VERSION /*S*/MGOU 
BINARY FLOAT(53),. /*DOUBLE PRECISION VERSION /*0*/MGDU 
*/MGDU 

COMPUTE EIGENVALUES AND EIGENVECTORS OF B */MGDU 
*/MGDU 

THE MATRIX B IS A REAL SYMMETRIC MATRIX. */MGODU 
*/4GOU 

MV =Og6 MGDU 
CALL MSOU (ByXeMyMV),~ MGDU 
IF ERROR NE 'O* MGDOU 
THEN GO TO FINys. MGDU 
*/MGDU 

FORM RECIPROCALS OF SQUARE ROOT OF EIGENVALUES. THE RESULTS */MGDU 

ARE PREMULTIPLIED BY THE ASSOCIATED EIGENVECTORS. */MGDU 

; */MGDU 

00 I = 1 TO My. MGDU 
XLUI)=L.0/SQRTCABS(B(I,I) )) 96 : MGDU 

00 J = 1 TO My. MGDU 

BlJe IT) =X SoD) *XLU1) 5. MGDU 

END,. MGDU 

END,. MGDU 
*/MGDU 

FORM (B¥*¥*(—1/2)) PRIME * A * (B¥*(—-1/2)) */MGDU 
*/MGDU 

CO I = 1 TO My. MGDU 

00 J = 1 TO My. MGDU 
X(1,J)=0.09~ MGDU 

OO K = 1 TO Moe MGDU 

XCEsJIHXCT J) +BUK ep TP FACK J), MGDU 

END ye MGDU 

MGDU 

MGDU 

MGDU 

MGDU 

A(I,J)=0.07. MGOU 

00 K = 1 TO Mee MGDU 

ACT JI HAC, J) XC 1 eK) *B (Ke J) MGDU 

END». MGDU 

END;:. MGOU 

END». MGOU 
*/MGDU 

COMPUTE EIGENVALUES AND EIGENVECTORS OF A */MGDU 
*/MGDU 

MSDU (AsXaMeMV) oe MGDOU 

DO I = 1 TO Mye MGDU 
XLCI)V=ACI I) 9. MGDU 
*/MGOU 

COMPUTE THE NGRMALIZED EIGENVECTORS */MGOU 
*/MGOU 

DO J = 1 TO Mee MGDOU 
A(1,J)=0.09. - MGOU 

DO K = 1 TO Moe MGOU 

ACT J) =ACIT J) +B C1 9K) *X(Kg J) 9- MGDU 

END». MGOU 

END»). . MGDU 

END». MGOU 

00 J = 1 TO My. MGDU 

SUMV =0.0%. MGOU 

00 K = 1 TO My. MGDU 

SUMV =SUMVtA(KsJ) *ACKy J) —.- MGDU 

END,. MGDU 
=SQRT(SUMV) oe MGDU 

DO K = 1 TO Myo MGDU 

XOK_ J) =A Ky J) /SUMV se MGDU 

END,. MGDU 

END, . MGDOU 
FINee '  MGDU 
RETURNg. MGDU 
ENDy. ; 7*END OF PROCEDURE MGDU */MGDU 





Purpose: © 


MGDU computes eigenvalues and eigenvectors of a 


real matrix of the form B-inverse times A, where 


Ais symmetric and B is positive definite, 
Usage: 


CALL MGDU (M, A, B, XL, X); 


M- | BINARY FIXED 
Given order of square matrices A, B, 
and X. 
A(M,M) - BINARY FLOAT [(58)] 
—— Given symmetric matrix. 
B(M,M)- BINARY FLOAT [(53)] 
Given positive definite matrix, 


XL(M) - BINARY FLOAT [(53)] 
Resultant vector containing eigenvalues 
of B-inverse times A. 
X(M,M)- BINARY FLOAT [(53)] 
Resultant matrix containing eigenvectors 


columnwise. 
Remarks: 
If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero by the 
called subroutine MSDU. The following constitutes 


the possible error condition that may be detected: 


ERROR=1 MSDU has been called and an error 
has occurred (see MSDU). 


Subroutines and function subroutines required: 


MSDU 


Both matrices A and B are destroyed. 


Method: 


Refer to W. W. Cooley and P. R. Lohnes, 
Multivariate Procedures for the Behavioral 
Sciences, John Wiley and Sons, 1962, Chapter 3. 


Mathematical Background: 


This subroutine calculates the eigenvalues and the 
matrix of eigenvectors of the matrix Bla, 

First the subroutine MSDU is used to calculate 
the eigenvalues and eigenvectors of the matrix B. 
The eigenvalues b;; are stored in the main diagonal 
of the original matrix B and the eigenvectors are 
stored columnwise in the matrix X. Next the square 
roots of the reciprocals of the eigenvalues b,; are 
formed and stored in XL 


XL, = 1/ Pi 


Then each eigenvector stored in X is multiplied by 
the corresponding value XL;. The matrix of 
results is again stored in B. Next the matrix 
BI AB is generated and stored in A. Then the sub- 
routine MSDU is used to calculate the eigenvalues 
and eigenvectors of BAB. The eigenvalues are 
stored in XL and the eigenvectors are stored in X, 
Next the matrix product BX is formed and stored in 
A. The eigenvectors are then normalized to the 


form a,,/ \/ SUM, a to form the desired output 


matrix of eigenvectors. 
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© Subroutine MVAT 


MVAT oo 


MVAT 


RSA H AEE OO i nn naan atin bb nt 8 eR EERE HVAT 


/* 
/* EIGENVECTORS OF A COMPLEX HESSENBERG MATRIX 
1* 


*/MVAT 
*/MVAT 
*/MVAT 


790 tt dt MV AT 


PROCEDURE (AyN,EIG,V)2~- 
DECLARE i 
P(N) 
BITCL)» 
(ET sU, Ty EPS) 
BINARY, 
(A0#,*), EG, CeV(*)). 
COMPLEX BINARY, 


S 
COMPLEX BINARY(53), 
(Ne ISON) ol ell eJeNlb eK eK1sKP1,IT) 
BINARY FIXED, . 
ET=1.0E-Ts. 
A(1,1)=Al1,1)-EIG,~ /* 
IS(LI=1ly. 
U=ABS(TA(1,1))4. 
OO I=2 TO Ny. 
Il=I-l,. 
ISCI)=I1,. 
ACI IT) =ACI s II-EIG,. 
T=ABS(AC L,I) Dy. 
IF T GT U THEN U=T,. 
00 J=I1 TO Ny. 
T=ABSCAUT oJ) Doe 
IF T GT U THEN U=Ty. 
END». 
END, . 
EPS=U*E7,. 
N1=N-1,. 
P(L)="0O"B,. 
IF ABS(AL2,1)) GT ABSCAU1L»1)) 
THEN DO;>. 
PC LI='1"°B,. 
DO I=1 TO Ny. 
C=Allel),. 
ACL TI=AAC2eIT) 96 
A(2,T)=Cy. 
END,. 


START FACTORIZATION 


INITIALIZATION 


END,. 
‘IF ABS(ACL,1)) LT EPS THEN Ally1l)=EPS,. 
ACJ ,LIFAC2,1)/AC LoL) _6 
DOO K=2 TO Nl,. 
KP L=K+l,. 
K1=K-l,. 
S=A(KsK) ge /* 
OO I=IS(K) TO Kl,. 
$= S-MULTIPLYCACKs TI) sA(T 9K) 953) 96 
ENDy. 
ACK K)=S_9.e 
IF ABSCA(KsK)) LT eck 
THEN DO,. 
P(KI="1"°B,. 
OO I=K TO Ne. 
C=A( Kol) ye 
A(KyTDI=ACKP1 oI dy. 
AUKP1¢1)=C oe 
END, 
00 I=IS(K) TO Kl,. 
ACKPL,TI=A(K aI) ye 
ENDy;. ° 
I=IS(K)¢. 
ISCKJ=IS(KPL)». 
IS(KPL)I=I,. 
oN END,. 
ELSE OO,. 
P(K)="0O"B,. 
OO J=KPL TO Noo /* 
S=A(KeJd)o- 
DO I=IS(K) TO Klee. 
S=S-MULTIPLY(CAUT 9 J) sA(K 91) 953)56 
END». 
A(KyJ)=See 
END. 
END ye 


COMPUTE THE LOWER FACTOR 


PIVOTING 


COMPUTE THE UPPER FACTOR 


7* NORMALIZE THE LOWER FACTOR 
IF ABSCACK,sK)) LT EPS THEN Al(KeK)= ener 
ACKPLyK) =A(KP1,K)/ACK,K) 5. 
ENO). 
S=A(NeN) oe 
DO I=IS(N) TO Nl». 
S=S-MULTIPLY CAIN, T), ACT oN) 553) ¢6 
END, e 
A(NeN)=Sye /* 
‘IF ABSCA(NN)) LT EPS THEN A(NyN)D=EPS,. 
OO I=1 TO N,. /* 
V(T)=1,. /* 
ENDs. . 
00 IT=ly2ye 
K=Nqo 
IF 17 GT 1 
THEN 00,. 


END FACTORIZATION 


INVERSE ITERATION 
STARTING VALUE 


DO I=1 TO Nl». 

IF PCT) 

THEN DO,. 
Tl=I+1,. 
C=V(I),. 
V(TI=VCIL),. 
V(IILI=C,y. 

. ° END». 

ENDye 
DO I=2 TO Ny. /* 
S=VUIT)} 96. 
DO J=IS(I) TO I-1ly. re 
S=S-MULTIPLY (ACT oJ) V0.5) 953)96 
END». 
V(T)=See 
END». 
END,. 
VOND=VOIND/AUNSND 9 Bi /* 

* U=ABS(VIN) Dye 

DO I=N1l TO 1 BY ~le. 
S=V(I),. 

DO J=I+1 TO Nye 

ee here enna ney IN 022 tes 

ENDy. 


INTERCHANGES 


SOLVE WITH LOWER FACTOR 


SOLVE WITH UPPER FACTOR 


MVAT 

MVAT 

MVAT 

MVAT 100 
MVAT 110 
MVAT 120 
HVAT 130 
MVAT 140 
MVAT 150 
MVAT 160 
MVAT 170 
MVAT 180 
MVAT 190 


MODIFY DIAGONAL ELEMENTS */MVAT 200 


MVAT 210 


/*COMPUTE A NORM OF THE MATRIX */MVAT 220 


MVAT 230 
MVAT 240 
MVAT 250 
MVAT 260 
MVAT 270 
MVAT 280 
MVAT 290 
MYAT 300 
MVAT 310 
MVAT 320 
MVAT 330 
MVAT 340 


*/MVAT 350 


MVAT 360 


*/MVAT 370 


MVAT 380 
MVAT 390 
MVAT 400 
MVAT 410 
MVAT 420 
MVAT 430 
MVAT 440 
MVAT 450 
MVAT 460 
MVAT 470 
MVAT 480 
MVAT 490 
MVAT 500 


*/MVAT 510 


MVAT 520 
MVAT 530 
MVAT 540 
MVAT 550 
MVAT 560 


*/MVAT 570 


MVAT 580 
MVAT 590 
MVAT 600 
MVAT 610 
MVAT 620 
MVAT 630 
MVAT 640 
MVAT 650 
MVAT: 660 
MVAT 670 
MVAT 680 
MVAT 690 
MVAT 700 
MVAT 710 
MVAT 720 


*/MVAT 730 


MVAT 740 
MVAT 750 
MVAT 760 
MVAT 770 
MVAT 780 
MVAT 790 
MVAT 800 


*/MVAT 810 


MVAT 820 
MVAT 830 
MVAT 840 
MVAT 850 
MVAT 860 
MVAT 870 
MVAT 880 


*/MVAT 890 


MVAT 900 


*/MVAT 910 
*/MVAT 920 


MVAT 930 
MVAT 940 
MVAT 950 
MVAT 960 


MVAT 970° 
*/MVAT 980 


MVAT 990 
MVAT 1000 
MVAT1010 
MVAT1020 
MVAT 1030 
MVAT 1040 
MVAT 1050 
MVAT 1060 


*/MVAT 1070 


MVAT1080 
MVAT 1090 
MVAT1100 
MVAT1110 
MVAT1120 
MVAT1130 
MVAT1140 


*/MVAT 1150 


MVAT1160 
MVAT1170 
MVAT1180 
MVAT1190 


_ MVAT1200 


MVAT1210 
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VCITI=S/AUIsI),5. 
T=ABS(V(T) ye 
IF T GT U 
THEN D0O,. 
K=I ge 
U=Tee 
ENDs. 
END,. 
=V(K) ee 
DO I=1 TO Ne. /* 
V(I) =VUID/Cs. 
END,. 
' END». /* 
RETURN, 
END,. /* 


END OF PROCEDURE MVAT 


Purpose: 


For a given almost triangular complex matrix 


MVAT1220 
MVAT1230 
MVAT1240 
MVAT 1250 
MVAT1260 
MVAT1270 
MVAT 1280 
MVAT 1290 
MVAT1300 


NORMALIZE RESULTING VECTOR */MVAT 1310 


MVAT 1320 
MVAT 1330 


ENO OF LOOP FOR ITERATION */MVAT1340 


MVAT 1350 


*/MVAT 1360 





(Hessenberg), this procedure provides the eigen- 


vector corresponding to a given eigenvalue. 


| Usage: 


CALL MVAT (A, N, EIG, V); 


A(N,N) - COMPLEX BINARY FLOAT 
Given almost triangular matrix. 


N - BINARY FIXED 
Given order of the matrix. 

EIG - COMPLEX BINARY FLOAT 
Given eigenvalue. 

V(N) - COMPLEX BINARY FLOAT 
Resultant vector containing the eigen- 
vector corresponding to EIG. 

Remarks: 


The original matrix is destroyed. 


Method: 


Wielandt's inverse iteration is applied to the matrix, 


using the given eigenvalue as a shift. 


For reference see: 


J. H. Wilkinson, The Algebraic Eigenvalue 


Problem, Clarendon Press, Oxford, 1965. 


Mathematical Background: 


For a given nonsingular matrix A, the inverse 
iteration is defined by the following process: 
+1) -1 
yPtt) _ sot yl) 
where yl?) is an arbitrary starting vector. We 
know that when P+©, under certain conditions 


vi) tends to an eigenvector V associated with the 


smallest eigenvalue A of the matrix A. 


When converging to V, the speed of convergence | 
can be substantially improved by shifting the origin 


of the eigenvalues close to Ag- Then the iteration 
can be written as 


vO FD. aw yn tv” | (1) 


where ) is the value of the shift. 

When we know an approximation \ of Xo: the 
above properties of the inverse iteration can be 
used for finding the corresponding eigenvector V 
by means of equation (1). | 

The closer is to Ap, the faster vir) converges 
to V. If A has been obtained with good accuracy, 
V can be obtained using only a few steps of inverse 
iteration. 

Each step of iteration is equivalent to finding the 
solution of the equation 


(a-an ver) - ye) | (2) 


Considering a triangular factorization of A - AI, 
A-AI = LR, the solution of equation (2) will be 
provided by solving successively 


Lw = v® | (8) 


RvO) = Ww (4) 


where L and R are lower and upper triangular 
matrices, The triangular decomposition has to be 
performed only once before starting the iterative 
process, and the iteration is carried out by solving 
equations (3) and (4). 


Programming Considerations: 


A technique of partial pivoting by row interchange 
is included in the process of triangular factoriza- 
tion. This pivoting is obviously convenient in two 
ways; it is economical and does not modify the 
special structure of the matrix. Thus, it will be 
possible to take advantage of this structure in the 
factorization of the matrix, as well as in the 
solution of equation (8). 

Since the starting vector is arbitrary, we choose 
it so that 


y) = Le, W = e, 


where: 


ee sae, a 


Then the first iteration will consist of solving 
equation (4) only: 


ry) =e 


Only two iterations are performed. Most of the 
time they are quite sufficient to provide an accurate 
approximation of the eigenvector V. 
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e Subroutine MVSU 


SU. MVSU 
PPrCeeErre Terr eT Te TTT TTT TTT eTeT TT TTT OTT TTT tte ttt t et etter et ete real 
*/MVSU 

BACK TRANSFORMATION OF THE EIGENVECTORS '  *7MVSU 

SYMMETRIC CASE */MVSU 

*/MVSU 

kage ac ei aac 
PROCEDURE (AgNeCDyV)s~ MVSU 
DECLARE MVSU 
(A(#),CD (#2 ,V0#)9T,C) BINARY» 4 MVSU 
(MyNyICDyKeKPLyKP2eJeI9Lh) BINARY FIXED, MVSU 
(S,0P) BINARY(53)3. MVSU 
ICD=(N®(N#+1L))72-15- ; MVSU 
DO K=N-1 TO 2 BY —ly. a MVSU 
KPL=K+l,. MVSU 
ICD=ICD-KP ly. MVSU 
C=AC(ICD)-CD(K)>- MVSU 

IF C NE O MVSU 

THEN DO. 7* ORTHOGONAL TRANSFORMATION ¥*/MVSU 
S=076 MVSU 
J=ICO-K+1,. MVSU 

DO I=K TO Nee MVSU 

J=JtI—-l, MVSU 

S=S+MULTIPLY (ACJ) pV) 753) 9 MVSU 

END,. MVSU 

S=S/CD(K),.- MVSU 

T=(S-VUK))/C ee MVSU 

VUKI=S_. MVSU 

J=ICDr. MVSU 

DO I=KP1 TO Noe MVSU 

J=J+I-1ly. MVSU 

VOTDI=VOLD THAI) 90 .MVSU 

ENDy. a MVSU 

ENDy. MVSU 

MVSU 

° NORMALIZE */MVSU 

DO I=1 TO Ne. MVSU 

OP=V(I),.- MVSU 
S=S+DP*DP,. MVSU 

ENDy. . MVSU 

' S=SQRTUS)y- MVSU 

DO I=] TO Nye MVSU 
VOUE)=VO1)/S,- * MVSU 

END, MVSU 

RETURN? « MVSU 
END 9. /* END OF PROCEDURE MVSU */MVSU 





Purpose: 


For a given symmetric matrix M that has been 
reduced to a similar tridiagonal symmetric matrix 
H by procedure MSTU, MVSU gives the eigenvector 
of M corresponding to a given eigenvector of H. 


Usage: 
CALL Mvsu (A, N, CD, V); 
A(N*(N+1)/ 2) - BINARY FLOAT 


Given vector whose elements are 


set up by procedure MSTU. 
N - | BINARY FIXED 


Given order of the original matrix 
CD(N) - BINARY FLOAT 


Given vector containing in positions 
2, 3, eo, N the codiagonal terms 
of the tridiagonal matrix. 


V(N) - BINARY FLOAT 
Given eigenvector of the tridiagonal 
matrix, Resultant eigenvector of 
the original matrix. 

Remarks: 


See procedure MSTU,. 
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Method: 


The eigenvector of the almost triangular matrix 
H is transformed according to the unitary similar- 
ities applied to matrix M in procedure MSTU. 


For merercnce see: 


J. H. Wilkinson, The Algebraic Eigenvalue Problem, 
Clarendon Press, Oxford, 1965. 


Mathematical background: 


. For a symmetric matrix M of order n that has been 


reduced to the tridiagonal matrix H by similarities, 
we have a relation of the form 


H = Pp -wp 


and an eigenvector of M, X(M) corresponding to an 
eigenvector of H, X(H) according to 

H(M) = P * X(H) dy 
Tn procedure MSTU, P consists of the product of 
(n-2) Householder's matrices: 


P =p > P_....2 P | | 7 (2) 


1 
P. = I+ bw... -b) "7 ‘be. ,) (v - be. Pe) 
i+] 
where the vector v and the scalar b fae been defined 
in the transformation of the i-th column of the 
given matrix in procedure MSTU. 

P will thus be applied to X(H) by means of (n-2) 
successive transformations, P,_5, P Py, 
according to equations (1) and (2). 

The elements v and b defining each P; are trans- 
mitted to MVSU through the parameters A and B. 


n-1:? eee, 


® Subroutine MVUB 


MVUB. MVUB 
[WERE EERE EEE EE OSES EES EERE ES 08 000888088 8 8888888 EEE EERE EEE HVUB 
*/MVUB 
BACK TRANSFORMATION OF THE EIGENVECTORS o*/MVUB 
HOUSEHOLDER*S TRANSFORMATIONS */MVUB 
*/MVUB 
J ERETHEEKEEKEKKEKERAKEEHEEKEKEKEKEKERKKERE TEKH KEEEKE ceeaeceawsineseeneee aun 
PROCEDURE (AyNoBoV)y9~ MVUB 
DECLARE MVUB 
(AL *,*) ,B0*),T2,U) BINARY, MVUB 
(IeKeKL,KP1leN) BINARY FIXED, . MVUB 
(V0*),X) COMPLEX BINARY, . MVUB 
S$ COMPLEX BINARY(53),.- MVUB 
DO K=N-L TO 2 BY —ly. MVUB 
IF B(K) NE O MVUB 
THEN DOy. /4* ORTHOGONAL TRANSFORMATION */MVUB 
KPL=Ktl,. MVUB 
K1L=K-l,. MVUB 
S=MULTIPLY(B(K) eV(K) ,53) 7. MVUB 
O00 I=KPL TO Noe MVUB 
S=S+MULTIPLY(CACI»K1),V(I)¥53)%.~ MVUB 
END, MVUB 
S=S/A(K Kl) oe MVUB 

X=(S“VOK) ZI BUKI “ACK KL) Doe MVUB 2 
V(KI=Se. MVUB 
DO I=KPL TO Nye MVUB 
VOT =VCL) +X*A(1T,K1L),.~ MVUB ° 
END». MVUB 
ENDe. ' MVUB 
END,. MVUB 
K=le MVUB 
T=ABSUV(LD) 9 NORMALIZE */MVUB 
DO I=2 TO Nee MVUB 
U=ABS(V(T) de MVUB 
IF U GT T MVUB 
THEN O00,. MVUB 
T=Us. j MVUB 
K=[,. MVUB 
ENDe. MVUB 
END,. MVUB 
=V(K) 96 : MVUB 
OO I=1 TO Ny. MVUB 
VII) =VOT) Xe. - MVUB 
END,. , MVUB 
RETURNy. MVUB 
ENO,. /* END OF PROCEDURE MVUB */MVUB 





Purpose: 


For a given matrix M that has been reduced to a 
Similar almost triangular matrix H by procedure 
MATU, MVUB gives the eigenvector of M cor- 
responding to a given eigenvector of H. 


Usage: 
CALL MVUB (A, N, B, V); 
A(N, N) - BINARY FLOAT 


Given two-dimensional array whose 
elements are set up by procedure MATU. 


N - | BINARY FIXED 
| Given order of the matrix. 
B(N)-. BINARY FLOAT 


Given vector whose components are 
provided by procedure MATU. 


V(N) - . COMPLEX BINARY FLOAT 
Given eigenvector of the almost triangular 
matrix. 
Resultant eigenvector of the original 
matrix. 

Remarks: 


See procedure MATU. 


Method: 


The eigenvector of the tridiagonal matrix H is 
transformed according to the unitary similarities 
applied to the matrix M in procedure MATU. 


For reference see: 


J. H. Wilkinson, The Algebraic Eigenvalue Problem, 
Clarendon Press, Oxford, 1965. 


Mathematical background: 


For a matrix M of order n that has been reduced to 
the almost triangular matrix H by similarities, we 
have a relation of the form 


H =p mp 


and an eigenvector of M, X(M) corresponding to an 


eigenvector of H, X(H) according to 


X(M) = P° X(H) | : (1) 


In procedure MATU, P consists of a product of (n-2) 


Householder's matrices: 


BBs 8 Diba, Pag (2) 
P a - be (v - be : 
i vv. -b) (v iat) in) 


where the vector v and the scalar b have been defined 
in the transformation of the i-th column a the given 
matrix in procedure MATU. | 

P will thus be applied to X(H) by means 3 of (n-2) 
successive transformations, P,_9, Py_4; ---; Py, 
according to equations (1) and (2). 

The elements v and b defining each P; are trans- 
mitted to MSTU through the parameters A and B. 
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® Subroutine MVEB 


MVEBe VEB 
LEERKEKERHEEESEEKEEEAE KEES Mog atl eeee ass aig bylee gices seeenuee sauces 
*/MVEB 

BACK TRANSFORMATION OF THE EIGENVECTORS */MVEB 

ELIMINATION TECHNIQUES */MVEB 

*/MVEB 

SERKKEKEERERE ae a aaa hag REKRKEEKKEKEREE REEERERESEESES SSS /MVEB 
PROCEDURE (AyNyIPsV)5- MVEB 
DECLARE | MVEB 
(AC, #),T,U) BINARY,» MVEB 
(V(#)~C) COMPLEX BINARY, MVEB 
(IP(#),1¢KyK1yN) BINARY FIXED, MVEB 

S COMPLEX BINARY(53)>. MVEB 

DO K=2 TO N-lye - MVEB 
KL=Ktly. . MVEB 

IF ACKL,K) NE O MVEB 

THEN DOy. /* ELEMENTARY TRANSFORMATION */MVEB 
S=V(K)e. MVEB 

DO I=1 TO K-1, MVEB- 
S3S—MULTIPLY (ACK1 91) V(1) 253) 9 “MVEB. 

ENDy. MVEB 

V(K)=Se. MVEB 

MVEB 

MVEB 

MVEB 

IF IP(K) NE K INTERCHANGES */MVEB 

THEN DOr. MVEB 
I=IP(K) 96 MVEB 

C=V(K) 9. MVEB 

VIKIEVET) 9. MVEB 

Vi1)=Co. MVEB 

END» MVEB 

END». MVEB 
K=le. MVEB 
T=ABS(VULD) 9. NORMALIZE -*/MVEB 
DO 1=2 TO Ny. MVEB 
U=ABS(VEL)) 96 MVEB 

IF U GT T MVEB 

THEN DOv. MVEB 
T=Up. MVEB 

K=I96 |. MVEB 

MVEB 

MVEB 

MVEB 

DO [=] TO Ne. MVEB 

VET) =VCI)/Cy. MVEB 

END +. MVEB 
RETURN, « MVEB 





ENDy. /* END OF PROCEDURE MVEB */MVEB 4! 


Purpose: 
For a given matrix M that has been transformed to 
a similar almost triangular matrix H by procedure 


MATE, MVEB gives the eigenvector of M cor- 
responding to a given eigenvector of H. 


Usage: 
CALL MVEB (A, N, IP, V); 


A(N,N) - BINARY FLOAT 
Given two-dimensional array whose 


elements are set up by procedure MATE, 


N - BINARY FIXED 
Given order of the almost triangular 
matrix. 

IP(N) - BINARY FIXED 


Given vector whose components are 
provided by procedure MATE. 
V(N) - COMPLEX BINARY FLOAT 


Given eigenvector of the almost triangular 


matrix, | 
Resultant eigenvector of the original 
matrix. | 


Remarks: 


See procedures MATE and MVAT, 
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Method: 


The eigenvector of the almost triangular matrix is | 
transformed according to the similarities applied to 


the matrix M in procedure MATE. 


For reference see: 


Je H. Wilkinson, The Algebraic Eigenvalue Problem, 


Clarendon Press, Oxford, 1965. 


Mathematical background: 


We know that a given matrix M of order n can be — 
reduced by similarity to an almost triangular matrix 
H. This can be written as | 


-1 
H = SMS 


Then, for a given eigenvalue of both M and H, the 


corresponding eigenvectors V of M and Wof H are 


related by the equation 


v=s-w 


The transformation S is defined here as the product 
of a triangular matrix T with unit diagonal by a 
permutation matrix P which was operating on the 
rows of M according to the pivoting used in procedure 
MATE. 

The elements of the matrix T are transmitted to 
the procedure through the array A. The permuta- 
tion matrix P is defined by the information contained 
in vector IP. 

Then V is provided by 


V = PX 
where the vector X is the solution of the equation 


TX = W 


Polynomial Operations 
e Subroutine POV 


POV.. POV 
LEKRRKEREEKERERER KEKE EKEERERE EKEKERE SE EKEAKEEKKAERE REE REAE EK KKEREKEKERE KEKE / POY 
/* */POV 
‘/* CALCULATE VALUES OF FIRST N ORTHOGONAL POLYNOMIALS */POV 
/* */POV 
Av EST OTICTI Cec Losier reer eT ert re eererori rE rer rere te rire rt err rer ite tt 9 POV 
PROCEDURE(XsNeOPTHY) 9. POV 
DECLARE PQV 
(LXeHsHCeHlsH2eFN) BINARY FLOAT(53), POV 

CY #) @X) POV 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/POV 

BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/POV 

(Np 1) BINARY FIXED, POV 

OPT CHARACTER(1) 9. POV 

=X» e POV 

; /*BYPASS OPERATION IF N LE 0 */POV 

PQV 

/*CHEBYSHEV POLYNOMIALS T(X) */POV 

/*INIT. STARTING VALUE x/POV 

ELSE DO,. POV 

FN =ly. /*INIT. INTEGER FACTOR TERM */POV 

/*INIT. STARTING VALUE */POV 

POV 

YUL) pHL=15. /*STORE AND SAVE FIRST RESULT ¥*/POV 

DO I = 2 TO Nye POV 

H2  =LX*¥*H1l,. /*PERFORM COMMON CALCULATION */POV 

H =H2-HO pe POV 

IF OPT NE 'T? /*CHEBYSHEV POLYNOMIALS TCX) */POV 

THEN DD-. POV 

If Opf= *H# /*HERMITE POLYNOMIALS H(X) */POV 

THEN DO,. POV 

H2 =H2+FN*HC,. POV 

/*STEP [INTEGER FACTOR */POV 

POV 

A POV 

IF OPT= *L? 7*LAGUERRE POLYNOMIALS L(X) */POV 

THEN DO,. POV 

H2 =H1—-(HtHL)/FNge POV 

H =H1L—-HO». PNV 

END». PQV 

ELSE H2 =H2 /*LEGENDRE POLYNOMIALS P(X) */POV 

—H/FNo. POV 

FN =sFN4L19. /*STEP INTEGER OENOMINATOR #/POV 

END». POV 

END,. /*CONTINUE COMMON CALCULATION */POV 

HO =Hl1y. /*SAVE PRECEDING RESULT VALUE ¥*/PQOV 

HL»V(I) =HtH2,5. 7*STORE AND SAVE I-TH RESULT */POV 

: POV 

PaV 





/*END OF PROCEOURE POV */PQOV 


Purpose: 


POV computes the values of the first n orthogonal 
polynomials. The user has the choice of 


Chebyshev polynomials (To, Ty, ..., Th-1) with 
OPT = 'T' 

Legendre polynomials (Pg, Py, .-¢, Pp_4) with 
OPT = !Pp! 

Laguerre polynomials (Lo, Lyi, ---, L,_,) with 
OPT = 'L! 

Hermite polynomials (Hg, Hy, -.., H,_,) with 
OPT = 'H! , 


Usage: 


CALL POV (X, N, OPT, Y); 


XxX - BINARY FLOAT [(53) ] 
Given argument of the orthogonal polynomials 
N- BINARY FIXED 
Given number of orthogonal polynomials to be 
calculated. 


OPT - CHARACTER (1) 


Given parameter of choice (see 'Purpose"’). 
Y(N) - BINARY FLOAT [(53) ] | 

Resultant vector containing the values of the 

first N orthogonal polynomials. | 


Remarks: 


Operation is bypassed if Nis not positive. Any input 
value of OPT other than 'T', 'L', or 'H' is treated 
as ifit were 'P', The values of the shifted poly- 
nomials of Chebyshev or Legendre for argument 

x are obtained as values of non-shifted polynomials 
for the argument (2° x - 1). 


Method: 


Evaluation is based on the three-term recurrence 
relation for orthogonal polynomials. 


For reference see: 

J ahnke-Emde-Loesch, Tables of Higher Functions, 
B. G. Teubner, Stuttgart, 1960, pp. 96-114. 

M. Abramowitz andI. A. Stegun, Handbook of 
Mathematical Functions, Applied Mathematics 


Series 55, National Bureau of Standards, 1964, 
pp. 771-803. 


Mathematical Background: 


The orthogonal polynomials are defined by the fol- 
lowing iteration scheme: 


Chebyshev polynomials T.@) 
T o®) =1 


T(x) =x 


Ty) = 2x T)(&) - Ty) 5 ShOO R= 12 gars 


Laguerre polynomials P,.&) 
Pots) =1 

P,&) =X 

(+1)P,_, 4 (&) = (2k+1)xP, (&) - KP, 48); 


for k = 1, 2, eoe0 
Laguerre polynomials L, (&) 
L 0) =1 


Lj) =1-x 
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(k+1)L,. 41%) = (2k+1 - x) L,. (x) - kL, 1) , 
for k=1, 2, ... 


Hermite polynomials 


(3) 
Hy () =1 
H, () = 2x 


Fy) = oxH, (x) - 2kH, _1() : fork=1, 2,... 


Programming Considerations: 


For reasons of programming efficiency and for 
diminishing roundoff errors, the recurrence rela- 
tions are modified to the following forms: 


Chebyshev polynomials — 


Tate x, To =I, Teed a T-4 acca 8 


for k = 0, L. 2; eee 9 n~-2 
Legendre polynomials 


P_=0, P 


af aes 


0 
Pag oP PP Oct) + xP, 


fork=0, 1, 2,...,n-2 
Laguerre polynomials 


L , =0, L 


-1 =1, 


0 
Be ~LTeat (Ly - (Ly -L, +L, )/(+1)) 


fork =0,1,2,...,n-2 


o 


Hermite polynomials 


H_, 70, H)=1, 


ay = *H- Ho ae = Tere 


for k = 0, 4d. 2; @©@eo 9 n-2 
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e Subroutine POSV 


POSV..  ) pasy 
FR HR HHH HH HH HH I RR RO KHOR EEE EKER ER EER ERHE ERE SP OSY 
*/POSV 

EVALUATE N-TERM SERIES EXPANSION IN ORTHOGONAL POLYNOMIALS  */POSV 

*/POSYV 

7008 RRO RR BORO RRO Oe ii a IO Oi ok tok Soko tolok donk 7 PO SY 
PROCEDURE (XsCyNyOPTy SUM) 9 POSV 
DECLARE ee PNSV 
(LX+HpHOyHlyH2eFN) BINARY FLOAT(53), POSV 

(XyC0#) »SUM) | POSV 

BINARY FLOAT, : /*SINGLE PRECISION VERSION /*S*/POSV 

BINARY FLOAT(53), /*D0UBLE PRECISION VERSION /*0*/POSV 

(N,I) BINARY FIXED, | POSV 

OPT CHARACTER(1) 4. | “ POSV 

=Nye | ; POSV 

GE 1 /*BYPASS OPERATION IF N LEO #/POSV 

DO». oe a a POSV 

LX =Xy0 | POSV 
IF OPT="L? /®LAGUERRE POLYNOMIALS L(X) = */ POSV 
THEN LX = =1=-LX ye . POSV 
/*ZERD U(N#1) 9 UCN#2) OR VINt2)*/POSV 
=Iy6 POSV 
/*LOOP OVER I = NTO 1 BY -1 */POSV 

IF OPT='T! /*CHEBYSHEV POLYNOMIALS T(X)  */POSV 
THEN DOy.~ POSV 
HO. =LX*H1y. POSV 

J*H = 2eXHU(T+1L)-U C142) */POSV 
. POSV 

POSV 

/*HERMITE POLYNOMIALS H(X) */POSV 
POSV 


H =HO-H2#H0». 
END, , ; 
ELSE DO,. 
IF OPT="H? 
THEN DOy. 
H =LX*HL-FN*H2,. 
H =H+H 96 | 
_ENDs. POSV 
ELSE OOy. /*LAGUERRE OR LEGENDRE POLYNOM.*/POSV 
HO ZHlpe /*SAVE U(T+1) */POSV 
H sHL/FNye POSV 
HL ZH1—Hy. /*COMPUTE V(I+1) */POSV 
If OPT=*L? /*LAGUERRE POLYNOMIALS L(X) */POSV 
THEN H SH1L#LX#HtHl se /*H = 2e4V(T¢LI4(1-X)*UCT4+L) */POSV 
ELSE H =LX*(H1+HC)»./*LEGENDRE POLYNOMIALS L(X) */POSV 
H sH—-H29. 7H = XE(V(ITH1LO4UCT41)) */POSV 
END y. , /*FOR BOTH H ® H=-V(T+2) */POSV 
FN ZFN~ly. /*DECREASE INTEGER FACTOR */POSV 
END: POSV 
EH1ly. /*SAVE U(T4#L) RESP. V(I+1) */POSV 
HH#tC (I) 56 /*COMP. U(I) = - H#C{I) */POSV 
=[~-ly. /*DECREASE COUNTER I */POSV 
IF I GTO POSV 
' THEN GO TO ITER». /*END OF LOOP OVER I. */POSV 
IF OPT='T* : 
THEN H1 ZH1—-HO ee 


POSV 
A¥H = 2% (X#UCT+1LI-1*U (T+ 2)) */POSV 


POSV 
/*MODIFY UCL) IN CHEBYSHEV CASE*/POSV 


=Hly. /*RETURN VALUE OF SERIES = ‘*/POSV 
POSV 


/*END OF PROCEDURE POSV */POSV 


Purpose : 


POSV computes the value of the sum 
N : 
2 o£) for a given vector C =(c,,C,,..., Cx) 


and a specified set of orthogonal polynomials (f). ? 


The user has the choice of 

Chebyshev polynomials (Tp: Typ oe Ty) 
with OPT ='T' 

Legendre polynomials (Pp. P,, Se ety Py-1) 
with OPT ='P' 

Laguerre polynomials (Lo Ly ake 7 by) | 
with OPT ='L' , 

Hermite polynomials (Hp; ly ees Hy-1) 
with OPT ='H' 


Usage: 
CALL POSV (X, C, N, OPT, SUM) ; 
X - BINARY FLOAT [(53)] 


Given argument of orthogonal polynomials. 
C(N) - BINARY FLOAT [ (53) J 


Given coefficient vector of series expansion. 


N - BINARY FIXED 
Given dimension of coefficient vector. 
OPT - CHARACTER (1) 
Given parameter of choice (see '' Purpose"), 
SUM - BINARY FLOAT [(53)] _ 
Resultant value of series expansion for 
argument X. 


Remarks: 


Operation is bypassed if N is not positive. Any in- 
put value of OPT other than 'T', 'L', or 'H!' is 
treated as if it were 'P', | 


The sum of an expansion in shifted Chebyshev or 
Legendre polynomials for argument x is obtained 
as the value of the expansion in non-shifted poly- 
nomials for argument (2° x- 1). 


Method: 


Evaluation is based on the three-term recurrence 
relation for orthogonal polynomials, using a back- 
ward iteration scheme, | 


For reference see: 


M. Abramowitz and I. A. Stegun, Handbook of 

Mathematical Functions, Applied Mathematics 
Series 55, National Bureau of Standards, 1964, 
pp. 771-803. 


Mathematical Background: 


Evaluation is based on the following iteration 
schemes: 


Chebyshev expansion 


Set 0. 1 UL 49 =0 and use ee merece 
relations: 
T, =2xT ~ T U, =c + 2xU, -U 


k k-1 “k-2? “kk k+l k+2 


successively fork =n, n-1,..., 2. 


Then 


n n | 
> CT = > eT 4 % Une - Ure Tat 


n-1 
a 2 aT. 4 + (c, + 2xU 44 - U +9) a 


~ Viet "a2 
n-1 


: us Thy - | - Utd oe 


= + - = + ~ 
C17 Unt UAT cy xU, U, 


Legendre expansion 


Set U =U =0 and use the recurrence relations 
n+ 1 n+ 2 


kP, = x(2k-1) P 1 (k- 1)P 9 


= = + = a 
(k 1)U,. C,. mee 1) Did KUL 15 
successively for k=n, n-1,...,2. Then: 
n n 
P = P, + : ~ 
2 “i Grd 2 a ae a ee 


n-1 
= - = £ : 
2, eg “oUpt2) Pn-1 


- Sere 1 (n-1) Pp 9 


n-1 
= P + oan on 
2, BP a Ua se ,7 (1) 


. P 
ar n-2 


3 P + : ~ = + - 
C16 U, Pi U, PG cy xU, U, 


Laguerre expansion 


Set UL a Os = 0 and use the recurrence 
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relations kL, = (2k-1-x)L, 1 ~(kK-D)L, 9 , = cj Hy + Ue : Hy e 2U,H) 


(k-1)U,. =C). + re +17 KU. < =c, + 2xU, _ 2U, 
sucessively for k =n, n-1, . e+, 2. Then: | 
_ Programming Considerations: - 
n ; 
= L +. ° L- U a5 
>; age 2 ge Ut en nt2 “n-1 For reasons of programming efficiency the follow- 
| , ing modifications of the backward iteration scheme 
n-1 ; are used for evaluations: 
= 2, cL. 4 + (c + (2n- “xX)UL ay 
pre _ Chebyshev expansion 


“aU 9) ae - Q-)U tn» Set: 

U U 0 
: sy sae Un CoA a : a ate 
-~ (n- i itl “i+2 i+1 i / : 

ped) On 1''n-2 | 4 | 
Then: 
=c,L. +U_L, - U. L n | 

10. "2 1 3-0 rae = 
2 ¢.T,_,@) =U, -xU, 

=c,. + U,(1-x) - U, i=l 


1 
| Legendre expansion 
Hermite. Expansion a ee 


' : 7 Set: 
Set Oe +1 ue 49 = 0 and use the recurrence re- ) . 
lations H, = 2xH,_, - 2(k-1)H, , ah ee 
U. = GC. + 2xU, oa rz 2KU) 15 Viet : Ui 7 UO et/i 


: 
7 


| = ; ~V. 1 = wae 
successively fork =n, n-1, ..., 2. Then: U, = x(V. 4 - Ui) Vite \ for i=n, | 


no n : Then: 
2X a ~ B rare . Utd 7 an so es 
i=1 =] n 
2 oP _1@) =U, 
n-1 it 
=>) c.H, +(C_ + 2xU -2nU_,.)H | | 
i=l * es ee ne ned Laguerre expansion 
a 7 ~ | Le 
2(n 1)UL ‘1 Hf 9 Se 


n-1 
: 2 et a ral | | 
a a ist /i | | | 


-2(n-1) U_,_H | | | : oe ; 
n+l n-2 a = = 
Ng ia aa ia 


fori=n,...,1 
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e Subroutine PEC/PTC 


n PEC. PEC 

— He A eR PC RR HH HOR KH EERE KKH RAKES AKAKA EHR ERKEKEREEEE SPEC 

> c.L. ,(x) =U is */PEC 

: i i-1 1 POLYNOMIAL ECONOMIZATION OVER THE RANGE (0,A) IF OPT ="S* = */PEC 
i=1 ANO OVER THE RANGE (-A,A) IF OPT ="0! */PEC 
*/PEC 

FRM RM RK BK BR RH HR a a RE EAE EAE EE KEKE EEE K/ PEC 

; PROCEDURE(CyNyMy TOL sEPSsAyOPT) 9» PEC 

rm j DECLARE PEC 
He ite expansion (CUDA SFVeFXsFMeUs Vy Ww) PEC 
BINARY FLOAT, /*SINGLE PRECISION VERSION /#S*/PEC 

| te BINARY FLOAT(53) + /*DOUBLE PRECISION VERSION /*D*/PEC 
2 (TOL ,EPS)BINARY FLOAT, PEC 
Set: (Ny MpNHgNTe JE gl pC gNODy JST y IST y J) PEC 
BINARY FIXED, PEC 

LN BINARY FIXED(31)y ; PEC 

(OPT»SWyERROR EXTERNAL) CHARACTER (1) ¢. PEC 

U =U =0Q SH STE'y, /*HARK ENTRY ECONOMIZATION */PEC 
EPSsM = Oy. : PE 

n+1 nt2 GO TO COMs. PEC 
PTC. PEC 

[RHA RO ROR IO RO RC A I I IO RC OR OR AE HO I RE EK ER ERE EEK / PEC 

: ; /* +/PEC 

U, = (xU ~ie U.,.)+(«xU.,. -iU,..) 7: TRANSFORMATION OF POLYNOMIAL TO AN EXPANSION IN TERMS OF */PEC 

i itl +2 i+] i+? /* CHEBYSHEV POLYNOMIALS OVER THE RANGE {-AyA) IF OPT="0" AND  */PEC 


/* SHIFTED CHEBYSHEV POLYNOMIALS OVER THE RANGE (OeA) IF OPT=*S**/PEC 
/* */PEC 
(30 ok oO RoR ROR a oi I OIO Ba ROI I IO toi ita tO / PEC 


fori=n,...,1 


Then: 


ENTRY(CyNeAsQPT) +. 
SW =t*T" 9. 
COM.. 
LN =Noe.e 
IF LN LE O 
THEN GO TO EXIT). 
IF OPT NE 'S! 
THEN O0,. 
FV =le. 
NH =LN/10B,. 
JST =lee 
NOD =LN-NH-NH,. 
END». 
ELSE DN,. 
FV =0.596 
NH =LN-1,. 
JST »NOD=1,. 
END,. 
FM, FX=FV*ABS(A),. 
IF FxX=6 
THEN GO TO EXIT,. 
FV =0.5*FX,. 
NT =NH*NH,. 
BEGIN». 
DECLARE 
T(NT) 
BINARY FLOAT;. 
BINARY FLOAT(53),. 
ERROR="OQ!,. 
JE =O9-6 
Ww =2e6 
DO { =1 TO NT BY NH». 
UrVeT(I)=1le. 
Ic =Iee 
JE =JE+tNHs. 
I =I+1l,. 
DO J =I TO JE;. 
IF I GT¥ 2 


THEN WwW =T(IC-1),. 


VeT(J)=VtWe. 
Ic =ICt+NH). 
. UsTCIC)=UtVe. 
ENDs>. 
END,. E 
00 I =2 TO LNy. 
C(I) s=Ct(l)*FX,. 
FX =FX*FVs. 
END,. 
Ic =NTo. 


IST =ly. 

I =ICy. 

IF NOO NE 1 

THEN [ST =NH». 

J =LNee 

IF J =0 

THEN GO TO END,. 

U =C(LN}y. 

IF SW="Et 

THEN DO». 
W =EPS+#ABS(U)_. 
IF W GT A8S(TOL) 
THEN O0,. 
- M =LNge 


DO I =2 TO LN,y. 


PEC 
/*MARK ENTRY TRANSFORMATION */PEC 
PEC 
PEC 
PEC 


/*GIVEN N IS NOT POSITIVE */PEC 


PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
/*GIVEN A EQUALS ZERD, ERROR=* P**/PEC 
PEC 
/*DIMENSION OF ARRAY T */PEC 
PEC 
PEC 
PEC 


/*SINGLE PRECISION VERSION /¥*S*/PEC 
/*DOUBLE PRECISION VERSION /*D*/PEC 


PEC 
/*INIT. CALCULATION OF T—ARRAY */PEC 
PEC 
PEC 
/*INSERT ONE IN DIAGONAL */PEC 
PEC 
PEC 
PEC 


/*INSERT REMAINING ELEMENTS OF */PEC 


/*SUBROW AND SUBCOLUMN */PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
/*SUBSTITUTION OF VARIABLE */PEC 
PEC 
PEC 
PEC 
/*INIT. FIRST TELESCOPING STEP */PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
/*DIMENSTION ECONOMI ZED POLYNOM.*/PEC 
PEC 


CCL) =CCI)/FM,./*BACKSUBSTITUTION OF VARIABLE */PEC 


FM =FV#FM,. 


END»). 
GO TO END,. 
END,. 
EPS =Ws. 
END,. 


I =I-1ST;. 
J =J-JST +. 
If J GT l 


THEN DO, e 
CUS) =C(JI+U*T(1),. 
U =s—Use 
GO TO SUBT,s. 
ENO,. 
If J= 1 
THEN CO1) =CC1)4+U,. 
IF OPT NE *S!* 
THEN NOD =1-NO0,. 
IF NOD=1 
THEN IC =IC-NH-1l,. 
LN =LN-1l). 
GO TO TELE». 
END». 
EXITe. 
ERROR='P',. 
ENDe. 
END». 


PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
/*SUBTRACT MULTIPLE OF CHEBY- */PEC 
/*SHEV POLYNOMIAL */PEC 
PEC 
PEC 
PEC 
PEC 


/*ALTERNATE SIGNS IN T */PEC 


PEC 
PEC 
PEC 
/*ADJUST CONSTANT TERM */PEC 
PEC 


/*INIT. NEXT TELESCOPING STEP */PEC 


PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
PEC 
: PEC 
/*END OF PROCEDURE PEC */PEC 
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Purpose: 


PEC approximates a given polynomial by a poly-'_ 
nomial of lower degree, using a telescoping tech- 
nique, so that the error does not exceed a user- 
specified tolerance TOL. Range of approximation 
is (-a,a) if OPT="0' and (0, a) if OPT="'S'. | 


Usage: 


CALL PEC (C,N,M, TOL, EPS, A, OPT); 


C(N) - BINARY FLOAT [(53)] 
Given coefficient vector of the soipnouiiat 
P(X) = C1 + CoX + cece to,x0-1 
Resultant coefficient vector of the econo- 
mized Dowden Pm-1 (%) =e, + oor 

tg. FOygxml 

N- BINARY FIXED 

>, Given dimension of given coefficient vector. 

M- BINARY FIXED 

| Resultant dimension of economized coef- 
ficient vector. 

TOL - BINARY FLOAT | 

7 Given tolerance specified by the user. 

EPS - BINARY FLOAT 
Resultant bound for the absolute difference 

between the given and economized poly- 
| nomial over the specified range. 
A- | BINARY FLOAT [(53)] 


Given value defining the pane of appr ontna: | 


, tion, 
OPT - CHARACTER(1) 
| Given option for selection of operation 


Purpose: 


PTC transforms a given polynomial into an expansion 
of Chebyshev polynomials if OPT = '0' and of shifted 
Chebyshev polynomials if OPT = 'S'.. 


Usage: 
CALL PTC (C,N, A, OPT); 
~ C(N) - BINARY FLOAT [(53)] 
Given coefficient vector of the Derynonnan 


P(x) = C1 + Cox + eooe + o,xo-l 
Resultant coefficient vector of Chebyshev 


expansion 

P(x) =c, +c, t, (t) +... tet . (t) 

withteae pa 
T(t) if OPT="0' 

ane eA mk T* (t) if OPT='S" 


Ne BINARY FIXED 
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Given dimension of the coefficient vector, 
A- BINARY FLOAT [ (58) ] 

Given value defining the range of expansion. 
OPT - CHARACTER (1) 

Given option for selection of ern 


Remarks: 


If no errors are detected in the processing of data, 


the error indicator, ERROR, is set to zero. The 


following constitutes the possible error conditions 
that may be detected: 


ERROR ='P' means invalid parameters: 
either N <0 or A=0 


A value of OPT different from 'S' is mlorpeetes as 
if it were '0'. 

On return from PEC the locations c,, Hp ely 
contain the coefficients of the Chebyshev expansion 
of the difference between the given polynomial P(x) 
and the economized polynomial P,,, 1): 


PO) = Py) Hen astn) tee Oty 9 


Therefore, using PEC with a very large tolerance 
TOL (say, 1075) has the same effect as the applica- 
tion of PTC. 

Method: 


In the first telescoping step a multiple of the 


Chebyshev polynomial 


= i ak 
t _&/2) Ti if OPT ='0' 


_1(s/a) if OPT ='S! 


is subtracted from given P(x), so that the difference 
is a polynomial of degree n-2. 
Set: 


P-1 = P(x) 


then: 


Pf) = P__1(%) - bt, &/a) (1) 


Telescoping P,_.(x) again results in a polynomial 
Pn-3@) of degree n-3, and by iteration 


P(x) =b, +b,t ot (x/a) tht, (x/a) +... +b to 


(/) 7 (2) 


This means that calculated b's form the coefficient 
vector of the expansion in terms of Chebyshev 
polynomials. If telescoping steps are performed 
only as long as 


)P, | +{ boa Feast [Past | *| TOL 


then P,,,-1(x) is the economized polynomial. For the 
Chebyshev polynomials 

| t/a) | < 1 for | x | <a 
and for all values of k; therefore; 


| Pex) -P__1&) | = | Dirattog (6/8 te 
+ bt 1 &/ a) | 
| b | | b 


mt1 m+2 | 


Feet [Dd | < | Tou] 
n 





(3) 
| Mathematical Background 
Calculation of the coefficients of T,,(t) 
Set C, (2) = 27, (2/2) or T(t ==c, (2H), with t= 
| (4) 
Then C,. (Zz) = 5, (2) = So (4) (5) 


with s,,(2) =(5) cs (a t= o00 + ie) . (6) 


The binomial coefticients("," ) are easily generated 
using Pascal's triangle. 

An analogous calculation scheme exists for the 
coefficients of Cy, (z): 


a(S) aS) 
rae aires (7) 


The coefficients of successive C;, (z) are easily found 
by the calculation scheme 


ae Z 
2 | 0) 2 
1 : | C, (2) =z 

2 
21 C, (2) =z -2 

| 2 
3 4éd , C, (2) =z -3Z 
24 1 “Cc (2) a2 4042 


5 (5) 1 


2(9) 6 1 C (2) =2°-6z 492-2 


7 (44) 7 1 . 


216 20 8 1 


C.(2) =7°-52 457 


(8) 


The above calculation scheme means that the first 
column is all two's and the diagonal elements are all 
ones. The remaining elements are obtained by ad- 
ding the two elements above in the same column and 
in the adjacent left-hand column. For example, 
circled element 14 is obtained by adding the two 
circled elements 9 and 5. 


The shifted Chebyshev polynomials are reduced to 
ordinary ones using the identity 


aT* (u/4) = 2T,, (Vu/2)=C,, (Va) (9) 


or 


T# (t) = 50 a, 2 Vt) with t=u/4 


Programming Considerations: 


The triangle (8) may be stored more compactly in the 
rectangular scheme: 


2 1 3 5 7 


2 4 1 5 14 (10) 
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The coefficients of Coy4 form subcolumns and those 
of Co, corresponding subrows. In order to be able 
to use the coefficients of-the auxiliary array (10), the 
given polynomial 


Oe ee 11 
9 a 0 @ ~n ( ) 


P(x) = cy 
must first be transformed substituting x = | a| t, 
which gives oe | 


, 2 n-1 
P(x) b, b ot b gt + + bt (12) 


By this the argument range gets reduced to the 
standard interval (-1, +1) if OPT ='0' and (0, 1) if 
OPT = 'S', 

The next step is to introduce z=2t if OPT ='0' and 
u=4t if OPT ='S' and to divide all coefficients so 
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obtained by two, except the first one. Naturally the. 
two substitutions may be applied simultaneously: 


x =|a| t lal, alee ~ (13) 


The sequence of calculations performed is as 
follows: | | 

1. The auxiliary array (10) is set up calculating 
row and column simultaneously. 

2. The given coefficient vector gets replaced by 
the coefficient vector with variable z or u. 

3. In case PTC, performing n-1 successive teles- 
coping steps gives the expansion interms of Chebyshev 
polynomials. In case PEC, the iterative telescoping 
is stopped as soon as the tolerance TOL is exceeded. 

4, The economized polynomial must be back- 
transformed to the original variable x. 


X x 
KREG LARK RHR EE HERKOH? HHS SK HRT KS 
*Aand ENTRY PFC,* x * 
* INITIALIZE * * * 
* ERROR-BOUND * MARK ENTRY PIC * 
x EPS=C x * * 
Pe * | * 
SREERHRRAE EERE EK TT TEV YTS Tere ST. 
NS cea eee ea ae eke 
xX 
COM ot. 
cl *. HRREIC? OF ERE SHREK 
o* %, * INITIALIZE & 
* Is *,. YES * NORMALIZATION * 
*. DIMENSION N .#eccceeeeX* OF RANGE AND * 
*oPUSITIVE SALLOCATION OF 
a errererrrrrirret. 
* NO 
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° * RE TURN * 
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° * ECCNOMI ZED 
. ‘ PCLYNCMIAL . 
: HRKK PACS RSH AES A 
EX1] x x 
BR CE YO RE HERE SYD OES RE RES RK 
* * * SUBSTITUTE * 
* MARK ILL EGAL * * NORPALI ZED 3 
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PRUCEDURE PFC ECONOMIZES A POLYNOMIAL USING TRUNCATION IN CORRES PINDING CHFBYSHEV E XPAN SION 
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e Subroutine POST | . Laguerre polynomials (Lo, Ly, «++, Ly-4) 


with OPT ='L! 
cae seas Hermite polynomials (Hj, H ceo, Hy_4) 
/acesinnstestannssedvaaeesseisGeseetrennee’ estate eeereeertsseaeeot4/2 051 =o with OPT = tA 
/s TRANSFORM N-TERH SERIES EXPAKSION IN GRTHOGONAL POLYNOMIALS */POST 40 
/* */POST 50 
[RRR ERRERER ERE EERE ERE EES EERE ERARASE SAREE ERAREREERE ERE ERKERERESESERER/PCST 60 
PROCEDURE (X0+X11CeNeOPT,POL) 9. POST 70 Usage: 
CECLARE POST 80 
(X09 XLeCO#) y PCL #) pF FL yAL BY pC1 yUsUL U2 2U3 SHINN) ) POST 90 
BINARY FLCAT, /*SINGLE PRECISION clon: /est/POST 100 | : 
s* BINARY FLCAT(53) /*00UBLE PRECISION V “ : 
(Ny TedyKsKP1)- BINARY FIXED, POST 120 CALL POST (X0, Al, “C,..N, OPT, POL); 
CPT CHARACTER(1)9~ POST 130 
IF N GE 1 /*BYPASS CPERATION IF N LEO */POST 140 
THEN OO, /*INITLALI ZATION */POST 150 
AI =XO0#XQy. /*INIT. CONSTANT MULTIPLIERS */POST 160. _ 
eeiaen vas tog a/Bost HO X0 BINARY FLOAT [ (53) ] 
IF OPT="T* /*CHEBYSHEV POLYNOMIALS T(X F 
THEN BI =0259- /*#MODIFY FIRST CHEB. POLYNOMIAL#/POST 190 _ Given constant term of argument 
ELSE 0Oy. POST 200 
BI =1y. /*INIT. FIRST ORTH. POLYNCMIAL */POST 210 i 
FI =0,. /*INIT. INTEGER FACTOR */POST 220 transformation. 
END; POST 230 t : 
(2) =BIy. /*STORE FIRST ORTH. POLYNOMIAL */POST 240 X1 BINARY FLOAT [ (53) ] 
HL) =0, /*INIT. PSEUDO POLYNOMIAL{-1) #/POST 250 : F 
POLUL)=C(L) 9 /*UNIT. RESULTING POLYNOMIAL */POST 260 Given linear term of argument trans- 
DO I = 2 TO Nye /*CALCULATE COEFFICIENT VECTOR */POST 270 ¢ bi : 
Fo CCT)». /*0F I-TH CRTHOGONAL POLYNOM. #/POST 280 
IF OPT NE ‘Tt POST 290 ormation. 
THEN DOs. /*MODIFY MULTIPLIERS AIyBIyCI | */POST 300 C(N) - BINARY FLOAT [ (53)] 
BI =FIy. POST 310 
FI =FI4ly. /*FOR */POST 320 . 
IF OPT NE tH! /*HERMITE POLYNOMIALS H(X) */POST 330 Given coefficient vector of expansion, 
THEN DOs. POST 340 
BI =BI/Fly. /#FOR #/POST 350 with coefficients ordered from low to 
IF OPT="L* /*LAGUERRE POLYNOMIALS L{X) § */POST 360 hist. 
THEN DO, POST 370 
AI =1-XO/FI481,. POST 380 1g 
Cl =-X1/FIy. POST 390 Se 
END +. 7#FOR */POST 400 N BINARY FIXED 
‘ PIX ®/PDST 41 : . . . 8 
MU aie Sweeper eae apy Given dimension of coefficient vector. 
Cl =X14#B1*X1y. POST 430 
/ END te ; POST 440 OPT - CHARACTER (1) 
ENDy. POST 450 : ; ; 
ELSE BI | =BI+BIy. POST 460 Given parameter of choice (see ''purpose''), 
END». POST 470 : 
ELSE IF 3 /*READJUST CHEBYSHEY POLYNORIAL*/POST 48C POL(N) - BINARY FLOAT [ (53) J 
U =Or. /*INIT. PSEUDC TERM FOR RECURR.*/POST 500 Resultant coefficient vector of resultant 
K -hge POST 510 
KPL =29. POST 520 . . . . oe 
DOJ = 1 TO I-1,. /#APPLY RECURRENCE RELATION —*/POST 530 ordinary polynomial, with coefficients 
UL -=H(K)s. POST 540 ‘ 
H(K)sU2=H(KPL) 96 POST 550 ordered from low to high, 
IF CPT NE 'T! /*IN CHEBYSHEV CASE */POST 560 
THEN UL  =BI*U1,. /#BYPASS MULTIPLICATION WITH L */POST 570 
H(OKP1) pU3=AI#U2-UL4CI #Uy. POST 580 R k 
Us U2 7 POST 550 : 
POL (J)=PCL (J) +F#U3,./*UPDATE PCLYNCMIAL VECTOR */PQST 600 emarks: 
K —-=KP141y. POST 610 
it ia POST 620 
ND». POST 630 eye ‘ . 
H{K) =0y. /*INIT. PSEUDO TERM FOR RECURR.*/POST 640 N must be positive, or operation is bypassed, 
U3,H(KP1)=U24C1y. /*COMPLETE I-TH ORTH.POLYNOMIAL*®/POST 650 a 
POL(I)=F#U3,. /*INIT. I-TH TERM OF POLYNOMIAL*/POST 660 Any input value of OPT other than BE nh! 
END». /*COEFFICIENT VECTOR #/P0ST 670 cere See ee 
Phe pas 6ac H' is treated as if it were 'P', 


ENC». /*END OF PROCEDURE POST */POST 690 ; 
. , Transformation of. an expansion in shifted 


Chebyshev or Legendre polynomials is obtained 
Purpose: | using the linear transformation (2X, - 1) + (2x}).x. 
The resultant vector POL may occupy the same 


POST transforms a given series expansion in storage locations as the given vector C. 


orthogonal polynomials to a polynomial. The 
independent variable of the given-expansion is as- Method: 
sumed to be x, + xq x; that is, a linear transforma- 
tion of the range is built in. The coefficient vector 
C = (Cy, ---, Cy) is given. Procedure POST cal- 
culates POL = (poly, ---; pol) satisfying 


The coefficient vector POL is calculated from the 
coefficient vectors of the orthogonal polynomials, 
which are generated successively using the re- 


i-1 currence relation. 


n n 
y C. fa (X +x, ° x) = 3 pol; x 
i=l 


iz] a Feay = = (a, Fe, x) f - fork =0 


ike 1 
For the apewitiea set of orthogonal deiynoni fils (f,) with fo: fo=l. 
the user has the choice of: 

, For reference see: 
Chebyshev polynomials (To; Ty; eae: Ty-1) | 


with OPT ='T' | M. Abramowitz/I. A. Stegun, Handbook of Math-_ 
Legendre polynomials (Po, Pys cee; Pr-1) ematical Functions, Applied Mathematics Series 55, 
with OPT ='P' | National Bureau of Standards, 1964, pp. 771-803. 
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Mathematical Background: 


e Subroutine PRTC 


The coefficient vectors of the orthogonal polynomials (NOUNDERFLON) » «PRTC. PRTC 10 

SRSEEERERESAAKARSERSEEHKERESKRE SCS SHAESERSEAKASEHKKKAKO ASKS SH EKREKKKSEHEKREKEREE/PR TIC 20 

= ; */PRIC 30 

for argument Z Xo FX, x are generated using the CALCULATE ALL RCCTS GF A COMPLEX PCLYACVIAL */PRTC 40 

. */PRTC 50 

three-term recurrence relation: [PURRORAEERESOEREEEEDEEADEEDDODEEEGES 18980450008 FEE TERERRSEREEREEREERE/PRTC 60 

PROCEDURE (CyN)¢~ PRTC 70 

CECLARE PRTC 80 

Chebysh 1 C(*) COMPLEX PRTC 90 

i ‘BINARY FLCAT, /*SINGLE PRECISION VERSION /*S#/PRTC 100 

Chebyshev polynomials /* BINARY FLOAT(53), /*00UBLE PRECISION VERSION /*D*/PRTC 110 

(DIN) »B(N)yZ,O0Z¢VyWsUyZC) COMPLEX PRTC 120 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S#/PRIC 130 

= _ /* BINARY FLOAT(53),> /*O0UBLE PRECISIGN VERSION /*D#/PRTC 140 

T = 0, T, = 1, T,(z) = x, +x, x UNLNo I 9K KD y Jy JE) | | PRIC 150 

-1 0 on | 0 1 BINARY FIXED, PRTC 160 

(1l,IN DEFINED R,ID DEFINED AWyIRyIR1,IR2) PRTC 170 

BINARY FIXED(31L), PRTC 180 

(AV, AVO pTCL AZ AW oR oRD yRKM pARG ARGV) PRTC 19C 

pas BINARY FLOAT, 7*SINGLE PRECISION VERSION /*S#/PRTC 200 

(Z) = 2X 9 £ 1c (4) ~ Ty 4) + 2x, xT (Z), /* BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/PRTC 210 

1 k ERROR EXTERNAL CHARACTER(1) >. PRTC 220 

Il 10915676165. PRTC 230 

LN =Nye /*NUMBER CF MISSING ROOTS */PRTC 240 

Z Cy PRTC 25C 

for k21 ERRCR="0",. PRTC 2€0 

ZERG.. PRTC 270 

AVO =1E759.~ /*FORCE SHIFT CF ORIGIN */PRTC 280 

IF LN LE O PRTC 250 

: THEN GO TO EXITy. 7*ALL RCCTS CALCULATED %/PRTC 300 

Legendre polynomials IF C(LN)=0 PRTC 310 

ae eye Oe THEN DOy. /*EXTRACT ZERO ROOT #/PRIC 220 

LN -=LNeLye PRTC 330 

P =.9. Pp. 21 : GO TO ZERGy. PRTC 340 

1 ) aoa ENDy. PRTC 350 

= 0 | =CONJG(Z) 9- PRTC 3€0 

| 00 I = 1 TO LNy. PRTC 370 

O(1) BC LI=CCT) 9s /*MOVE CCEFFICIEN+ VECTOR #/PRTC 380 

P 1 k k ENDs PRTC 390 

= —_—— ay pee PRTC 4CO. 

er 2) as k+1 XP. @) k+l Py) =0.296 /*INIT. RCUND CFF BOUND #/PRTC 410 

| =ABS(Z) 96 PRTC 420 

=). PRTC 430 

k DO 1 = 1 TO LNs. /*CCMP. RCUNO-CFF BOUND */PRTIC 440 

KH =D(I)o. /*AND PCLYNCMIAL VALUE. */PRTC 450 

Lice x ig P 1 2): for k 2 0 ViC(L)=WtV4Z 4. PRTC 460 

kt1 TOL =ABS(W)+AZ*TCL ye PRTC 47C 

END» : PRTC 480 

TOL =(TOL4¢4*(TOL-—ABS(h))) ; PRTC 490 

+1.0E-Grere | J*SINGLE PRECISION VERSION /*S*#/PRTC 500 

. /* #0.25E-15,. /*00UBLE PRECISION VERSION /*D#/PRIC 510 

Laguerre polynomials AV =ABS(V) 2. PRTC 520 

Sn IF AV= 0 THEN GO TC RCOTy.- PRTC 530 

IF AV LE TOL PRTC 540 

THEN IF AV GT AVO PRTC 550 

L a | on eee | THEN DO, /*STORE CALCULATED ROOT #/PRTC 560 

af: | ROOT.. PRTC 570 

| C(LN)=Zy- PRTC 580 

LN -=LN-Ly. PRTC 5S0 

x GG TG ZERG;. PRTC 600 

0 k ENDy. PRTC 610 

(Zz) = L+-— - L, (2) - L (z) ARGV =ATAN(-IMAG(V) »—-REAL(V) Dy PRTC 620 

Li = kel \ kbd k-1 IF AV LT AVO /*HAS VALUE DECREASED #/PRTC 630 

THEN DO). PRTC 640 

R =AVew PRTC 650 

x RO,U =le. PRTC 660 

1 L fu lk IR =CIN-IL)/LN»- PRTC 670 

-_ |—_— KD, JE=LNy PRTC 680 

kel x 62) or 20 PRTC 690 

k= lye PRTC 7CO 

: 7 DO J=1 TO JEy. /*SHIFT CF ORIGIN */PRTC 710 

Bt J) pW=B(J) +h¥0Z p< PRTC 720 

H “4 1 ial : END+. PRTC 730 

rm yn IF LN NE JE PRTC 740 

nermite polynomials THEN DO. PRTC 750 

AW =ABS(W) 5. PRTC 760 

K - =LN=JE 9. PRTC 770 

_ _ IRL =(IN-ID)/Ky~ PRTC 780 

H = 0,H =1 IF IRL LT IR PRTC 790 

-1 0 THEN DO. PRTC .800 

IR =IR1y~ PRTC 810 

RD =AW,. PRTC 820 

| | Uo Whee PRTC 830 

= = KD -=Kye PRTC 840 

Hl 2X H (2) 2kH_ (2) +2x, xH_ (2), END». PRTC 850 

END. PRTC 860 

: JE =JE1y. PRIC 870 

IF JE GE 1 PRTC 880 

; THEN GO TC SHIFT». PRIC 890 

fork =0 RKM  =L/FLOAT(KC) »- PRTC 9CO 

R  - =CAV/RD)*##RKM,. PRTC 910 

ARG =(ARGV-ATAN( IMAG (U) yREAL(U))) #RKM >. PRTC 920 

’ zo =Z9. PRTC 930 

: 44 : : | AVO =AVy. PRTC $40 

Programming Considerations: ee 

REAL (DZ)=R*CGS(ARG) »« PRTC 960 

IMAG(0ZI=R#SIN{ARG) 9 PRTC 970 

, . Z  =Z0+D2Z,. PRTC 980 

Using To/2 instead of To, the above recurrence IF 20 NE Z PRTC 990 

: . ; ; THEN GO TO VALUE». PRTC1000 

relation for Chebyshev polynomials is also valid for IF AV GT TOL PRTC1O10 

; ie ; H OR='C*,. PRTC1020 

calculation of the coefficient vector of T3(z) with GO TO ROOTs- PRIC1O30 

ve 

k=0. The coefficient vectors of two successive COs. /#MODIFY STEPSIZE TO DECREASE */PRTC1050 

; : aS . R -=R/2ee /*PCLYNGMIAL VALUE #/PRTC1060 

orthogonal polynomials are combined in an auxiliary Tee. etn Vi? Looaonn nu oees ee eee 
te 

: ' — : PRTC1090 

linear array H with coefficients of the lower poly- — te. ata ieee cabee Ghee ) PRICLLOO 

aya ok . K 8096 PRTC1110 

nomial in H(1), H(3), cory and those of the higher DO J = LA-1 TO 1 BY ly. PRTC1L20 

polynomial in H(2), H(4),.... "5 PaTELL40 

e . AW =ABS(h),. PRTC1150 

Both coefficient vectors are ordered from low Ri eaictise 


PRTC1180 
PRTC1190 
PRTC1200 
PRTCL210 
PRTC1220 
PRTCL230 


: THEN OC». 
to high, : KD. =Koe 
U =Wee 
IR =IR1y. 
END,. 
END, 
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PR1C1240 


ARG =(ARGV-ATANCIMAG(U),REAL(U)) )/FLOAT(KD),. 
GC TO INCR,. 
END,. 


_/*ENO CF PROCEDURE PRTC */PRTC1280 


Purpose: 


| PRTC calculates all roots of a given complex 
polynomial. 


Usage: 
CALL PRTC (C, N) 


C(N) - COMPLEX BINARY FLOAT | (53) ] 
Given coefficient vector of normalized 
polynomial 
N N-1 

P(Z)=Z +C,2 Figg a t Cx 
Resultant N complex roots of given poly- 
nomial. 

N - BINARY FIXED 

- Given dimension of coefficient vector, 

N is also the degree of the polynomial and 
the number of roots to be calculated. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 

_ that may be detected. 


ERROR='C' means that calculated roots are possibly 
inaccurate. The polynomial must be given in 
normalized form -- that is, the coefficient of ZN 
should be one (and is not stored). The coefficient 
vector is replaced by the calculated roots, begin- 
ning with C(N). The coefficient vector must be 
complex. In the real polynomial case, the imag- 
inary part of the coefficients must be set to zero 
before using PRTC. PRTC will compile with error 
message IEM 11051. However, the generated 

— object code executes correctly. | 


Method: 
The method used was proposed by K. Nickel. It is 
a generalization of Newton's method and is not 

_ sensitive to multiple roots. 

For reference see: 

K. Nickel, 'Die numerische Berechnung der 


Wurzeln eines Polynoms", Numerische Mathematik, 
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K. Nickel, 'Die Nullstellen eines Polynoms", 
Algorithmus 5, Computing, Vol. 2 (1967), iss. 
3, pp. 284-290. 

Mathematical Background: 


Generalized Newton step — 


‘Let Zs be an approximation to a root of 


n n-1 
=Z% + + eeo FC™ 7 1 
Piz) =z +0,2 | c (1) 


The next approximation is calculated from the co- 
efficients of the shifted polynomial: 


| eel n-1 
P (z) = by @- 2.) +b @-2z,) 

+... +b withb = 1 (2) 

Z, = % + (a-k) : ie 
eats One b (3) 

k 

where k is chosen so that 
MIN (n-j) 





ae - j=0,1, eo° n-1 








For k = n-1, (3) is the Newton iteration method, 


which requires b,_4 £0. The above iteration 
method works in case of multiple roots. 


Bisection step 


The iteration method (3) does not guarantee 
monotonic convergence, If the condition 


(5) 





| PZ. 1) | < | P(z.) 


; ‘ _ A 
fails for some i, then a new approximation z_ is 
found such that o 
(6) 


Pe, ) P(z. ) 














The existence of a Zn satisfying (6) follows from 
| P(z;) | > 0 and the maximum modulus principle, 
In meek a Sulake oe can be found in the sequence 





where ln is chosen so that 


-m_ vn-l | -—m_ \n-j | 
m =- 
db | (2 r,) max jb,] 2 r,.) | 





l y-l sjsn-l1_ (8) 


The proof of this is given in the first reference 
above. 


Stopping criterion 


The iteration method (3) is terminated if, at some 
step, the polynomial value does not decrease and 
the value itself is already less than an estimate of 
the roundoff error... If the estimated roundoff bound 
cannot be met by the polynomial value because of 
failure of the bisection method, the iteration is 
stopped with error indication ERROR='C', 


Estimate for roundoff error 


The polynomial value 


n-r 


P(Z) = > a 2 (9) 


r=0 


is evaluated using nested multiplication: 


b, = 9 »b, 


oping (10) 


= zh = 4, for k = 0, 1, 2, 


with P(z) = bee 

Since all arithmetic operations are performed with 
floating point arithmetic , instead of the numbers b,, 
internal approximations b. will be generated that 

do not satisfy P(z) = be 


The following calculation will give an estimate of 





P(Z) - b, 





The approximate values 
Die > ae ee 
where rb and ch are the real and imaginary parts 


of b,, satisfy the equations, 


A A A . 
a [es xb, +m - nob (+ | 


[a $0; 4) ra, | / (+05 4) 


A A A 
oh = [6° ob, 4 Td t 7° BGs | 


((L+o, .)+0a)]/ +o, 10) (11) 


where z= €+in, Q =ra +ica,, andoi,s TK 
are relative errors of addition and multiplication 
respectively. 


Solving (10) for a, and inserting into 


n n-r 
P(z) = >> a Zz 
r 
r=0 
gives 
A ae A A 
a ae 2. Be 7 EB, #14 oP 


N , 
Erb (My ty tM My yd 


+ 


A . 
1D Me FO Fe M1 


AN 
18 oP My ae * 3 1¢ * 73, M3, 4 


a (Mg FQ FM te 3, 1c)? 


(12) 


A 
- in rb, 


With ) «| a | 7 | Sm 






























































and bia = 0 
n-1 
. A N 
| eB <> See ace b | 
n k k-1 
k=1 
(o+37) +o b Z| 
(13) 
or 
n n-1 er : 
P(z)-b |< dS lz k J@o+sn) 
n k 
k=1 
n 
ob, Z| + »,] 
= E 
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E may be generated using the iteration scheme 





bee _|% | 
9 “Gee 5A Pol: ss )b,.]* Z| 1 for 
Kea 125 eer 
giving 
E = (20+3 7) @,~ (+ 3m), | (uy 


In single precision, o = ff = 10~® , 


In double precision, o = 7 =0.25.° 10715, 


90 Mathematic s--Polynomial Operations 


Programming Considerations: 


The polynomial must be given in normalized form; 
that is, the coefficient of z2 must be unity, Co- | 
efficients are ordered in decreasing order, 
Calculated zeros replace the coefficient vector; 
that is, the root stored in C(n) is calculated first 
and the root stored in C(1) is calculated last. 

The iteration scheme starts with z = 0 initially. 

As soon as the root z; has been calculated, P(z) © 
is divided by z - 21, giving Py(z). The complex > 
conjugate Z, is used as the initial guess for a root 
of P,(z). Finally z) is obtained as the root of 
Py_4(Z), a linear polynomial, | | 

No attempt is made to refine the approximated 
zeros with the original coefficient vector. 


PROCENLRE PRTC CALCULATES ALL ROCTS OF A COMPLEX POLYNOMTAL 


INCR 
EL t a) ERLE EL) 
* 


REEKAL KEK REESE % 
; . SCQOMPUTE CCMPLEX* 
¥PRUCEDURE PRIC * * TNCREMENT 02 J STEP Prrerrerererrerrrereerrrererrerrrrrrerrrr rere rere eres ee ee ee ee ee 2 
* * AND NEW Z * vse ; ° 
MER KRE KKK SEHK ES i 
., LESSEE REESE SEER E £ & . 
e e e 
° e e 
e X ‘ e 
ae, e VALUE o%e ° 
MEER K ) ORR KH B2 +, WEREE AS RK REAR EEE eo %. ° 
* ‘ * e* IS *, *CCMP. ROUND-0 FF 1s *., . 
* INIT. FIRST * e* TACREMENT *,. NC * BCUAD TOL AND * a. FUNCTION *, NO ° 
* GUESS Z=0 % *. NEGLIGIBLY .MeescoeeeX*VALUE Vy STORE Boece ee oX#SVALUF V FJUAL. Moesccesevesesevors ° 
* * * SMALL .* *DEFLATED VECTOR® ZFRN * . . 
* * +. 7% * IN C * 18a o* . . 
BERKS ARERKEEEERE a. % BROKE AKEK ERE KEKE x, 9% e ° 
e "YES x & YES ° . 
e e e e e e 
e e e e e e 
e e esoeees een aeeeoe e eeeeoeeoeovneneeeoeneoevseoenseanen e e 
eo e e e xX e 
x X ° ° .*. e 
HEREC EL REREE CREEKS HREBAC 2 SVTAESEREKE ° ° C5 %, 
* bd * ° ° o* IS VV #, ° 
* PRESET * * SET WARNTNGD * ° e YES .*ABSOLUTELY *, . 
* ERROR='* QO * (h RNING) * es e eo oenecsccecsevseses Me Ess OR EQUAL. * e 
* ™ * e e e e Tot o% s 
* * * * e . Py *, . * e 
BEKKREK KEK RKGES EH PEE SEERELE ESS LSE fF ° e 7 +, "ND 5 ce 
: ° ° ° . * N ° 
e e e °. e ° e 
e bad e ae e e e 
@ e e . x e e 
ZERU Xk oT x ° ° o*, X . 
RERKEE/Y) ]LKEREREE KES SERRE 2 ESHEKES ETE e . N4 m, SREKEDG KORE RARE E . 
; oo * ; * a % ° e e* HAS #*. : COMPUTE * e 
*FUKCE SHIFT OF * ' &® SAVE FACTOREND * x e NO. .* FUNCTION *. YES ARGUMENT OF % ° 
*URIGIN TO TAKE EXeccccees* ROOT UPDATE XK ecavcveensacece e @eeensaeceaeeeaevene oeeek%o VAL UE Vv eee eee e KF UNC TLON VALUE * e 
PLACE Pe Xx 2 ROCT COUNT * * * eDECREA SEQ. * V : ° 
SEKKEKE KES EKERKEE . Peet SE RAES ELS ES ES ° x, Se RERRAKEE BEAK HAS & ° 
e s e * e es 
® e e e e 
e e : a : 4 * 
° ° ° Sneed o%, ° 
. e RESKIED? HOSS TEESE . RERRKE GEEREKEKEKE F5 x, e 
° . * x. * ® PERFORM SHIFT * e* HAS  *, . 
. e * EXTRACT ZERO # ° * BY OZy STARE * YES .* FUNCTION *, ° 
° ecceee*® ROOT, UPDATE: & ‘e *COEFFICIENTS IN®X.ccccven * VALUER o* e 
° : raot COUNT ; ° Pi B : *, aE EREGSE De? . 
e PEEP SE REL EES £2 ES fF | e SeeR KEKE AR RR REE * .% . 
° x ° ° * NO ° 
e e e es e s 
a es a e e ° 
xX « YES - * ° . 
o%, o % a xX xX e 
Fl Ke F2 ¥. WR RH RE Lee ee RK Ky SXRKIES HK SEEKS . 
e*#ARE ALLS, e* HAS . ° &* COMP. INDEX * % * ° 
* ROOTS *..ND -* CURRENT | *, e WHICH MINIMIZES* FHALVE PREVICUS * . 
#5 CALCULATED 2#..000000X%. FACTOR ZERO .* ° *RIK) (EQUATION * * = MONULUS DF & ° 
*. .* *. RCCT 2 * ° * 4) * * INCREMENT * ° 
¥*, ae ° 0 * . * x * x 7 
ee * .% . REAR REE EE KK SKRERKEK AA AEAA ERS . 
* YES * NO ° ° ° e 
EXAiT ° x * x x 8 
x RRERIG? SSRRS SHARK < REAR EG GK KKK ERAS RRR RAGS ROKER HRRREK 
SKK G LES EKEKES * . & * * SELFCT * . 
* END OF_.. ¥ SC ONJUGATE FIRST . * SAVE GUESS Z # * CNEFFICIEAT * . 
*PROCCOURE PRIC * *GUESS Zs INIT. * . * AND ABSOLUTF_ * * WITH MAXIMAL * . 
* * *INCREMENT DZ=Z *# ° FUNCTION VALUE * * CONTRIBUTICK * ° 
REESE EEK EKEREK * a * * * (EQUATION 6) * 4 
PEEL SELL EE TEST ST t ‘ RO Sok Re tok ke ea RE KH BREAKER KHER KAS ‘ 
x e x x ° 
RKEE BH OKRA THER ERE ‘si SPOR TNATE ERE EEE ES RRR KKK REMORSE 4 
* MCVE + y % * wos 
* COEFFICIENT * ° Ph Ho9u Us * CO eer ne * . 
* VECTOR C_ TC B Fe scccccccccccecccs OF NEX * ARGUMENT Kees 
pe AND D 4 * INGR RMON T : BNEXT TNEREMENT . X 
HARE SRLE AHA L ERS ; RARER RK EERE RE KH sRORKETE ERE NESE A 
xX ° 
RRR KY GEEK KEKE a 
* * . 
* COMPUTE * : ° 
* ARGUMENT OF Fence cccccccnccccecssecernsvscce 
ea INCREMENT : 
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Numerical Quadrature 


Quadrature of Tabulated Functions 


e Subroutine QTFG/QTFE 


QTFG. , QTFG 
/4H8S 40899888 NEEEEEEOREEDE SS PEREOREEES OEKEERE SORE REE CREE EREHEREEEEEEE/OTEG 
/* */QTFG 
/* INTEGRATION CF A WCNOTONICALLY TABULATED FUNCTION BY */QTFG 
/* TRAPEZOIDAL RULE */QTFG 
/* */QTFG 
SAERASERAERESEEEAKSEKERRESKERESE REESE REREAS SEEKS REESE REEREKEESE EERE EKEEEKKEK/ QTFEG 
PROCEDURE(XsY,ZyOIM) oe QTFG 
CECLARE _ QTFG 
CX0#) V0). Z20%) pSUMPXCeXNeYOXYNeHe HH) QTFG 

BINARY FLOAT, /*SINGLE PRECISION VERSION ¢/*S*/QTFG 

/* BINARY FLCAT(53), /*00UBLE PRECISION VERSION /*0*/QTFG 
(DIM,I) BINARY FIXED, QTFG 

(ERROR EXTERNAL sSWICHARACTER(L)I 26 QTFG 

SW =")t,. QTFG 

xo =X(1),. QTFG 
GOTO COM,. QTFG 
QTFE.. QTFG 
SF PREBAEAEERKAKERKEKRES SHEKHAR ES EKERARESEREREESAES EERE KE GE KEEKERKREKE/ OT FG 
/* */QTFG 
/* INTEGRATICN CF AN EQLIDISTANTLY TABULATED FUNCTION BY. */QTFG 
s* TRAPEZOIDOAL RULE */QTFG 
/* */QTFG 
SEREEREREEEEKEKEKAKE ESKER EEAEAELES SEEK EEHKE RES AAS EKRERAE RE RERERERKESREE/QTFG 
ENTRYCHsYsZsDIM) yo QTFG 

SW ="QO',. QTFG 

HH =0.5*Hy~ QTFG 
CCMee QTFG 
ERROR='1!',. /7*PRESET ERROR PARAMETER */QTFG 

IF OIM GT O . /*NO ACTION IN CASE DIM LT 1 */QTFG 
THEN CO,. QTFG 
ERRGR="0',. QTFG 

SUM =O. QTFG 

Yo =-Y{1), QTFG 

00 I=1 1c CIP,. QTFG 

IF Sk="1!* QTFG 

THEN OO). /*CALCULATE LENGTH OF INTERVAL */QTFG 

XN =X(1)-96 QTFG 

HH =C.5*(XN-XO) oe ; : QTFG 

xo =XNoe0 QTFG 

ENGye QTFG 

=Y(1I)>. QTFG 

=SUM+tHH*(YN4+YO),. /S*ACCUMULATE INTEGRAL VALUE */QTFG 

=SUPF,. QTFG 

=Y¥Neo QTFG 

QTFG 

QTFG 

/*END CF PROCEDURE QTFG */QTFG 


Purpose: 


QTFG computes a vector Z of integral values for a 
given vector X of argument values and a given vector 
Y of function values. 


Usage: 
CALL QTFG (X, Y, Z, DIM); 


X(DIM) - BINARY FLOAT [(53)] 

| Given vector of argument values. 
Y(DIM) - BINARY FLOAT [(53)] 

Given vector of function values. 

Z(DIM) - BINARY FLOAT [ (53) ] 
Resultant vector of integral values. 
BINARY FIXED 
Given dimension of vectors X, Yy, Ze 


DIM - 


Purpose: 


QTFE computes a vector Z of integral values for a 
given vector X of equidistantly tabulated argument 
values and a given vector Y of function values. 





Usage: 
CALL QTFE (H, Y, Z, DIM); 


H - BINARY FLOAT [(53)] 

Given difference of two successive 

arguments: 

come aes 

Y(DIM) - BINARY FLOAT [(53)] 

Given vector of function values. 
Z(DIM) - BINARY FLOAT [(53)] 
Resultant vector of integral values. 
BINARY FIXED 
Given dimension of vectors Y, Z. 


DIM - 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 


ERROR="1' - means DIM is less than 1. 
The vectors Z and Y may be identically allocated, 
which means that the given function values are re- 
placed by the resultant integral values. © 


Method: 


The integral values are obtained by means of the 
trapezoidal rule. 


For reference see: 


F. B. Hildebrand, Introduction to Numerical | 
Analysis, McGraw-Hill, New York-Toronto-London, 
1956, pp. 75. 

Mathematical Background: 


Let x;, y; be the given table of arguments and func- 


tion values, 


The vector of integral values 


xX. 
1 


y(x) dx 
=i 


is calculated using the trapezoidal rule 


ax, - X. 
(% vale -1) 
= re ++ 
Z. 2 4 BO ag) 


fori=2,..., DIM 
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with Zy = 0. 
In case of equidistant arguments: xj - x,;_1 =h. 


The local truncation error at each step is 


1 ae 
Ro7 qe & 7A) Y (€)>(§; €[ x: %a]) 


assuming that y(x) has continuous derivatives up to 
the second order, 

The total truncation error is the accumulation of 
the local errors at the previous step. 


@e Subroutine QSF 


QSF.. QSF 
J RREEEEREREEEEESE ERS EEESE ESOS ERE REEEEEE RE REG RE SRERE ER ERERHRES KEREEE EE /QSF 
/* */QSF 
“4 INTEGRATION CF AN ECUIDISTANTLY TABULATEG FUNCTION BY */QSF 
/* SIMPSON*S RULE */QSF 
/* */QSF 
LEREEEAREE CHEESES CAE GREER ERER ERE RAGES EE REREE DE AGREES EEE ESE EE HEESEERERE/ QS F 
PROCEDURE (Hy¥y2,DIM)y.~ QSF 
DECLARE QSF 
(hy ¥0#)eZ0*) AUX, SUM1LsSUM2_¢HH,F1yF2) QSF 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/QSF 

/* BINARY FLOAT(53), /*DOUBLE PRECISION VERSICN /*D*/QSF 
ERROR EXTERNAL CHARACTER(1)» QSF 

(I1,D0IM) BINARY FIXED,. QSF 
ERROR="1°,. /*#PRESET ERROR PARAMETER */QSF 

IF CIM GE 4 /*NO ACTION IN CASE DIM LT 4 */QSF 
THEN OO,. QSF 
ERROR="0',y. QSF 

=H/3y.6 QSF 


=Y¥(l)o. ; QSF 
=Y¥(2)5. QSF 
SUML,Z(1)=0,. OSF 


SUM2 9Z(2)=HH*0.125*(94F 1+ /*COMPUTE Z(2) BY COMBINATION ¥*/QSF 
19*F2-54Y(3)#Y(4)) 5. /*0F SIMPSCN*S WITH 3/8-RULE */QSF 
0O 1=3 TC DIM,. QSF 
AUX =F24¢F2,. QSF 
AUX =AUX+tAUX+Fl,. QSF 
Fl =F2e5. . 

F2 =V(I) 96 

AUX =HH*(AUX+F2),. 
SUM1 =SUM1+4+ALX,. 
AUX, ZUI)=SUMI1». 
SUML =SUF2,. 

SUM2 =AUX>. 

END,. 


/*ACCUMULATE INTEGRAL VALUE 


/*END CF PROCEDURE QSF 





Purpose: ; : 
QSF computes a vector Z of integral values, given 
a vector Y of function values corresponding to a 
vector X of equidistantly tabulated arguments. 
Usage: 


CALL QSF (H, Y, Z, DIM); 


H - BINARY FLOAT [(53)] 
Given difference of two successive 
arguments: 
H = Xj ad xy 

Y(DIM) - BINARY FLOAT [(53) ] 


Given vector of function values. 


Z(DIM) - BINARY FLOAT [(53)] 

Resultant vector of integral values. 
DIM - BINARY FIXED 

Given dimension of vectors Y and Z, 
REMARKS: 


If no errors are detected in the processing of data, the 
error indicator, ERROR, is set to zero, The follow- 
ing constitutes the possible error condition that may 
be detected: 


ERROR="1' - means DIM is less than four. 
Vectors Y and Z may be identically - 
allocated, which means that the given 
function values are replaced by the 
resultant integral values. 


Method: 


The integral values Zs are obtained by Simpson's rule 
together with Newton's 3/8 rule. 
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For reference see: 


F. B. Hildebrand, Introduction to Numerical Anal- 


J SHRESKEREKKKEEAEEAE EERE SERSE GHGS KSEEERAKEEERE SASHA EE EEKEEE ES EEKEKRESRS/ QHEG 
ysis, McGraw-Hill, New York-Toronto-London, is */ QHFG 
/* INTEGRATION CF A MCNOTONICALLY TABULATEC FUNCTICN WITH &/QHFG 
1956, 71-76. /* FIRST DERIVATIVE BY A HERMITIAN FORMULA OF FIRST CRDER * /QHFG 
PPe /* */QHEG 
SERRE SAEASE RE EKELE KER AS EEE SESS ERE REE EAE EEK ES EEK KEE GE ERS ERE RKEKEREREKEKR/ QHEG 
PROCEOURE(X»VeFDYyZyDIM)» QHFG 
3 7 | ate 2.5 DECLARE OHFG 
R. Zurmuhl, Praktische Mathematik fur Ingenieure (X(#) 9 ¥ (0) 9Z(#) FD (#) 5 SOY (#) ¢XCyXNe YOoYNeFDYO,FDYN, SDYO,SDYNy QHFG 
3 _— SUM1 » SUM2 »FACT eH »HHy HHH) QHFG 
: : . aa BINARY FLCAT, /*SINGLE PRECISION VERSION /#*S*/QKFG 
und Physiker. Springer, Berlin/ Gottingen/ /* BINARY FLOAT(53)>9 /*DOUBLE PRECISION VERSION /*D*/QHFG 
——o (1,0IM) BINARY FIXED, QHFG 
Heidelberg, 1963, pp. 214-221. (ERROR EXTERNAL» Sh)CHARACTER(1) +. QHFG 
Sh ="1', eg OHFG 
GOTO MCNOy. | QEFG 
QHSG.. OHFG 
: a SERRE SRAKECEKERSE EEA SHEARER ERSE ASE E KEE EREKRAKES EAE GE GK GREK EREKKERKKEEK/QHEG 
Mathematical Background: ys i | "-#/QHFG 
/* INTEGRATION CF A PCACTONICALLY TABULATEC FUNCTION WITH -#/QHFG 
/* FIRST AND SECCND DERIVATIVES BY A HERMITIAN FORMULA OF -*/QHFG 
/* SECOND ORDER . */QHFG 
x | ‘ /* */QHFG 
Let Y= (V1; Y9> ene, YDrIM) be the given vector of [ERRSEAERRERERGEAES ERAGE ERAEDE EEDA GR ARES SERS EAR SARE ERE HERE EERE KEE /OHEG 
; F 3s ENTRY(XyY sFDYySDY_Z9DIM) v0 QHFG 
function values corresponding to equidistant SK =t2"5, QHFG 
MONO e- QHFG 
cum t : XQ EXCL) 6 QHFG 
ar en Ss Rie GOTC MONEQ,. OHFG 
. QHFE.. QEFG 
The vector of integral values [RRHOAIRG EE ER EEDA A EOE TEE REE RE TEE OE RE RT QHEG 
*/QHFG 
X. INTEGRATION CF AN ECLIDISTANTLY TABULATED FUNCTION WITH */QHFG 
1 FIRST DERIVATIVE BY A HERMITIAN FORMULA OF FIRST CROER */QHFG 
%/OFFG 
7, — y (x) dx SERGE OHALRERHA GRASSES SHH GD EEE ERK EERE RARE RHEHER EER EKER MAREE EEE KER MERE RK EK /QHFG 
i ENTRY(HsYeFDYyZ¢DI¥) 96 QHFG 
x SW ="3%y OHFG 
1 GOTG ECUIy. OFFG 
QHSE.. QHFG 
SOBER AREASEEEAEEKEEHRAEER EERE HES ERE RARER KEKE RR ED ERER REE KEKE A KEKE KE /QHEG 
F : /* */QHFG 
is calculated from Simpson's rule /* INTEGRATICA CF AN ECUIDISTANTLY TABULATEC FUNCTION WITH */QHKFG 
/* FIRST AND SECCNO DERIVATIVES BY A HERMITIAN FORMULA OF */ QHFG 
| /* SECOND CRDER */QHFG 
z,=2, toy, ,+4y, . +y,)fori=3,..., DIM i */ OFC 
5 — 2 oan : . 7 or 1 — HEAR SEREASHSE SES AGAERAAERE RES REH NS ERERHEREER HEE RRAE EEE RE EAE ARERR EK EE / QHEG 
i i-2 38: ~ “ i-2 Vi-4 y;) ee ENTRY(HyY 9FOYy SDY,ZsDIM) ve QHFG 

is | (1) Sh -="44y, QHFG § 
EQUI.. QHFG 
HH =C.5#Hy. QKFG 
MONEQ.. QHFG 
ERROR="1"y. /*PRESET ERROR PARAMETER */OHFG 
where the value of Zo is obtained using a combination FACT 932333333339323939E-01y. QHFG 
IF CIM GT 0 /*#NO ACTION IN CASE DIM LT 1 */QHFG 

of Simpson's rule and Newton's 3/8 rule THEN COs « QHFG | 
ERROR="0'y. QHFG 
IF SW NE 'L! QHFG 
é / h THEN OOy. QHFG 
= + + IF SW NE "3" QHFG 
Z = @ 4 +8/8h ly, , +3y,_,*8y,_ , ty) () THEN OO s« ones 


resulting in 
| as 
Zo = 24 +94 (OYy + 19¥_ - S¥3 + Y4) (3) 


with Zy = 0. 


© Subroutine QHFG/QHSG/QHF E/QHSE 


QhFG.. | | : OEE 


FACT =Oc4e. ' QHFG 
SOYC =-SDOY{(1)_y.~ QHFG 
END. QHFG 
END,. QHFG 


YO =-Yfl)y. QHFG 6 


FOYO =FDY(1),. QHFG 
SUM1ySUM2=0%. QHFG 
00 I=1 TO DIMy. . QHFG 

YN =Y(I) 96 QHFG 

FOYN =FDY{I),. QHFG 

IF SW NE *3* QHFG 

THEN DOy. QHFG 

IF SW NE *4* 7*SW ="1" OR SW ="2" . */QHFG 

THEN CLy. /*FOR NONECUIDISTANT ARGUMENTS */QHFG 

XN =X(I)95  /*#COMPUTE LENGTH OF INTERVAL */QHFG 


QHFG 


HH =0.5*(XN-XO)>. QHFG 

. x0 =XNoee0 QHFG 

ENDye QHFG 

The local truncation errors of the above formulas Le (ASW SNZIO EG: SRaSs srones 
are: SDYN =SDY(I)¢6 QHFG 
= SU¥2 =FKH*HH* /*MODIFY TO SECOND ORDER */QHFG 
(SDYC+ /*FORMULA */QHFG 

SDYN)/159.~ QHFG 

3 he 4. SOYG =SDYN»s. QHFG 

Ry c= 90 y' Z (6), (, . Lx,_ O° x, J) ee ) alice 
7 : =HH#FACT) « QHFG 
=SUM1L4HH* (YC+YN+ /*ACCUMULATE INTEGRAL VALUE */QHFG 

3 5 ; (4) ; ee ee ee Bree 

Ties - Se yY | (6.). (E.. € [x. ’ x, |) =YNew QHFG 
2,1 80 ee ed 1-3 ok =FDYNy. QHFG 


However, these truncation errors may accumulate, 


, QHFG 
/7*END OF PROCEDURE QHFG */QHFG 





Purpose: 


QHFG computes a vector Z of integral values for 
given vectors X, Y, and FDY of argument, function, 
and first derivative values respectively. 


Usage: 


CALL QHFG (X, Y, FDY, Z, DIM); 
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X(DIM) - BINARY FLOAT [(53)] 
Given vector of argument values. 
Y(DIM) - BINARY FLOAT [(53)] 


Given vector of function values. 
FDY(DIM) - BINARY FLOAT [(58)] 
Given vector of first derivative values. 


Z(DIM) - BINARY FLOAT [(53)] 
Resultant vector of integral values. 
DIM - Given dimension of vectors X, Y, 
FDY, Z. 
Purpose: 


QHSG computes a vector Z of integral values for 
given vectors X, Y, FDY, and SDY of argument, 
function, first derivative, and second derivative 
values respectively. 


Usage: | 


CALL QHSG (X, Y, FDY, SDY, Z, DIM); 


X(DIM) - BINARY FLOAT [(53)] 
Given vector of arguments. 
Y(DIM) - BINARY FLOAT [(53)] 


Given vector of function values. 
FDY(DIM) - BINARY FLOAT [(53)] 
Given vector of first derivative values. 
SDY(DIM) - BINARY FLOAT [(53)] 
, Given vector of second derivative 
values. 


Z(DIM) - BINARY FLOAT [(53)] 
Resultant vector of integral values. 
DIM - BINARY FIXED 
Given dimension of vectors X, Y, PDY, 
SDY, Z. 
Purpose: 


QHFE computes a vector Z of integral values for 
given vectors Y and FDY of function and first 
derivative values respectively, corresponding to a 
vector X of equidistantly tabulated argument values. 


Usage: 
CALL QHFE (H, Y, FDY, Z, DIM); 


H - BINARY FLOAT [(53)] 
Given difference of two arguments: 
He Xe ~ Xp_4. 
BINARY FLOAT (53) ] 
Given vector of function values. 
FDY(DIM) - BINARY FLOAT [(53)] 


Y(DIM) - 


Given vector of first derivative values. 


Z(DIM) - BINARY FLOAT [(53)] 


Resultant vector of integral values. 


DIM - BINARY FIXED 


Given dimensions ofvectors Y, FDY, Z. 
Purpose: 


QHSE computes a vector Z of integral values for 
given vectors Y, FDY, SDY of function values, 
first derivative values, and second derivative 
values respectively, corresponding to a vector 
X of equidistantly tabulated arguments. 


Usage: 
CALL QHSE (H, Y, FDY, SDY, Z, DIM); 


H - BINARY FLOAT [(53)] 
Given difference of two argument 
values: H = ¥j ~ *j-1 
BINARY FLOAT [(58) ] 
Given vector of function values. 
FDY(DIM) - BINARY FLOAT [(58) ] 

Given vector of first derivative values. 
SDY(DIM) - BINARY FLOAT [(53) ] 

- Given vector of second derivative 
values. 


Y(DIM) - 


Z(DIM) - BINARY FLOAT [(53)] 
Resultant vector of integral values. 
DIM - BINARY FIXED 
Given dimensions of vectors Y, FDY, 
SDY, Z. 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 

ERROR ='1' means DIM is less than 1. 


- The storage allocation of vector Z may be identical 


to one of the given vectors, which means that the 
given values are replaced by the resultant integral ~ 
values. 


Method: 
The calculation of integral values is done using 
Hermitian formulas of the first and second order. 


For reference see: 


F.B. Hildebrand, Introduction to Numerical 
Analysis, McGraw-Hill, New York- Toronto— 
London, 1956, pp. 314-319. 


-R. Zurmuhl, Praktische Mathematik fur 


Ingenieure und Physiker. Springer, Berlin/ 
Gottingen/Heidelberg, 1963, pp. 227-230. 
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Mathematical Background: 


Let X, Y, FDY, SDY denote the vectors of argu- 
ments x;, function values yj;, first derivative values 
y;' and second derivative values yj;"' respectively. 


The vector of integral values 


i 
fi | y(x) dx 


= 


is calculated from one of the following: 


Hermitian formula of first order: 


= 1 i-1 
m= yt ay (1) 
2 
XX 1 shee 
te Td OO gy | 
6 
with z, = 0. (i= 2,3, ..., DIM) 


Hermitian formula of second order: 


i” *y-1 
Lem fi, a re eee a 
i 44-4 : Yuna i es 
>, Cera, < 
1 i-l 
4. toy 
5 |¥i-1 Yi 
x _ 
sen eee Se 9 '" " l 
12 Vig ty; ) { 
(i =2,3, ..., DIM) 
with z, = 0. 


1 


Corresponding formulas for equidistant argu- 
ments (meaning i x 1 =h): 


: 7 | 
= + 
a ee me aes ) 
h t am t 
(i=2,3, ..., DIM) 


with Zo = 0, and 
Z = Z zs : | ss 2a 
cei 2 "int yi 2) 
h | h 
acne t os t EE t! 
5 Ly 1 74 te OE 
+r yi") (i = 2,3, e 9 DIM) 
— with Zi, = 0, 


Assuming that y(x) has continuous derivatives up 
to the sixth order, the local truncation error at 
each step is : 


=, &- a) (4) 
eee ey (€.) 
ot 120 7 


(é. € a1? x | ) 


and | 


7 
| (x. - X. ,) 
oR . i i-1 


100800 
Bi € [Xa %]) 


The total truncation error is the accumulation of 


the local errors at the previous step. 
For equidistant arguments, this leads to: 


Ra pet ye, 
= fee = yo 
and 
Ro. = ~qogeap Py, 


iS : ben ot 


where 1 is the length of the integration interval. 
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Quadrature of Nontabulated Functions 


e Subroutine QATR 


ATRe QATR 
piss SESKEKSKKSE KES SEKKSSEBASKSR SK SSKESK AKA ER EERE THERESE KEEKE EE AKKERSEASLEES/QATR 
/* */QATR 
/* INTEGRATICN CF A GIVEN FUNCTION BY THE TRAPEZOIDAL RULE */QATR 
/* TOGETHER WITH RCMBERG'S EXTRAPOLATION METHOD */QATR 
/* */QATR 
/ GHD SASEAA WH RASR ONS 605895615600 086050 08650104 tm 2 O88 ONE EEEEERER/OATR 
PROCEDURE (XLyXUrEPS»DIMyFCT yY) ve QATR 
DECLARE QATR 
(XL, XU, EPSy¥, AUX( DIM) FHeHHy Ee YY QATR 
DELT1LyDELT29P yHDyXySMsQyANy AQ) QATR 

BINARY FLOAT; /*SINGLE PRECISION VERSION /#S*/QATR 

BINARY FLOAT(53)y /*DQUBLE PRECISION VERSION /#D®/QATR 

ERROR EXTERNAL CHARACTER(1), QATR 

(DIM; JJ,IyJd) BINARY FIXED, QATR 

FCT ENTRY QATR 

(BINARY FLCAT) /*SINGLE PRECISION VERSION /#S*/QATR 

{BINARY FLOAT(53)) /*DQUBLE PRECISION VERSION /#D*/QATR 
RETURNS(BINARY FLOAT) +« /*SINGLE PRECISION VERSION /#S#/QATR 
RETURNS(BINARY FLCAT(53))~9- /*DOUBLE PRECISION VERSION /*#D*/QATR 

AN, YY sAUX(1)=0.5% (FCT (XL) #FCT(XU) ) 9 QATR 

H = =XU=XLy. QATR 

- ERROR="0" 4. /*PRESET ERROR PARAMETER */QATR 
IF CIM GT 1 QATR 
THEN CO,y. QATR 

IF H =0 QATR 

THEN GOTO YEND,. QATR 

hH = =Hy. /*NORMAL CASE,DIM GREATER THAN */QATR 

—E- =ABS(EPS/H)y. /*1 AND XL NOT EQUAL TO XU */QATR 

DELT2= Or. QATR 

=1). QATR 

0 =ly. QATR 

DO I=2 TG DIM,. QATR 
DELT1=DELT2y. QATR 

HD  =HHy. QATR 

HH  =0.5%HHy. QATR 

P =0.5%Py. QATR 

X  =XL4HHy. QATR 

SM -=0ye QATR 

DO J=1 10 JJy. /*REFINE STEPSIZE IN */QATR 

SM  =SM+FCT(X),.  /#TRAPEZOIDAL RULE */QATR 

x =X+HD». QATR 

END, QATR 

AN,AQ,AUX(I)=0. S*ANtP#SMy QATR 

Q Bly. /*APPLY RCMBERG'S EXTRAPOLATION*/QATR 

DO J=1 TO I-ly. /*METHED */QATR 

Q =4%Qq6 QATR 

AQ sAUX(1-J)=AC# (AQ—AUX (1-5) 700-1). QATR 

END». QATR 
DELT2=ABS(YY-AOQ)y. /*TEST ACCURACY */QATR 

IF I GE 5 QATR 
THEN 00,. QATR 
IF DELT2 GE DELTL QATR 

THEN DO,. /*TERMINATE SINCE LAST STEP */QATR 

IF DELT1 GT E /#*DID NOT IMPROVE 4/QATR 

THEN ERRCR="1",. QATR 

GOTO YENDy. QATR 

ENDy. QATR 

YY  =AC, QATR 

IF CELT2 LE E QATR 

- THEN GOTO YEND,. QATR 
END». QATR 

YY =AQs. QATR 
=JINtJUs~ QATR 
QATR 

QATR 

QATR 

QATR 

QATR 

/*END CF PROCEDURE QATR */QATR 





Purpose: 


QATR computes the integral value 


XU 


y= FCT(X) dX 
XL 


for a given function FCT(X), defined in the closed 
interval [XL, XU], by the trapezoidal rule 
together with Romberg's extrapolation method. 


Usage: 
CALL QATR (XL, XU, EPS, DIM, FCT, Y); 


XL - BINARY FLOAT [(53)] 
Given lower bound of the interval - 


XU - BINARY FLOAT [(53)] 
| Given upper bound of the interval. 


EPS - BINARY FLOAT [(58)] 
Given upper bound of the absolute 
error. 

DIM - BINARY FIXED 


Given maximum number of extrapola- 

tion steps +1 (for details see 

"Programming Considerations"). 
FCT - ENTRY 

Given procedure for calculation of the 

function values, which must be sup- 

plied by the user. 


Usage: 

FCT(T) : 

T - BINARY FLOAT [(53)] 
Given argument. 

FCT(T)- BINARY FLOAT [(53)] 
Resultant function value. 

Y - BINARY FLOAT [(53)] 
Resultant approximation for the 
integral value. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions. 
that may be detected: 


ERROR ='l' means that it is impossible to reach 
the required accuracy because of 
rounding errors. 

EBhOr ='2' means that it was impossible to check 
accuracy because DIM is less than 5, 
or the required accuracy could not be 
reached within DIM-1 steps. 


Method: 


Evaluation of the approximation Y to the integral 
value is done by means of the trapezoidal rule 
combined with Romberg's extrapolation method. 


For reference see: 


S. Filippi, 'Das Verfahren von Romberg-Stiefel- 
Bauer als Spezialfall des allgemeinen Prinzips) _ 
von Richardson", Mathematik-Technik- 
Wirtschatt, vol. ti, iss. eee 2 pp. 49- 54, 


Bauer, Aigorihia 60, CACM, vol. 4, 155.6 
(1961), pp. 255. 
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_ Mathematical Background: 
' The problem is to compute an approximation for 


b- 


y = J f (x) dx (1) 


Ds - e «: 


Successively dividing the interval [a,b] 
into 2! equidistant subintervals (i = 0,1,2,...) 
and using the following notations: 





Fee eee ett is 


i 


fe ig = 05, 4) (= 0,1,2, 6.52) 


the trapezoidal rule gives approximations Th, i 
to the integral value y: 


| ; | 
= h, > fuk ae (@ay+£))l (2) 


Then the following can be written: 


| 2r 
= Se 
<2 s 5a 


r=1 


with unknown coefficients Co, that do not 
depend oni. Thus nS is a truncation error 
of the order h; 2. : 

Knowing fa16 successive dopnomimalious: To:1 


and T 0. i4t? we can generate an extrapolated value: 
ac 7 
| O,it1 0,1 
= Sh 
oe oo. itl 9247 | (3) is 


This is a better approximation to y because: 





11 = 0,2 


Poa 


Noting that 27h.?,  - a? 


it 1 = Q and setting: 





C S 


1, 2r (2 = | ee ©: 


2 
2-1 


‘This gives a truncation error of the order ns 


with C Sas Grab 


Tey Sree ) 2r 4 2n 
om Bay 


becomes: 


ie ries be 


td 


it+1° 


Knowing To; i+Q2 also, Ti, ibd can be generated 
(equation 3), and: 


, T - T 
; Lil € 
T of sl li 


ws patie! olka ieee ns Ee (4) 
ae 
1,i 1 ot 4 | 


y + De C ae as 


2,2r {+2 
r=3 


a 
I 


2,1 


1 


2,2r= 4 


27-1 1, 2r 


with ‘a truncation error of the order h. ‘ Observe 
that the order of truncation error increases by 2 at 
each new extrapolation step. 


Programming Considerations: 


The subroutine uses the scheme shown in Figure 1 


for computation of T values and generates the 
upward diagonal in the one-dimensional storage 


array AUX, using the general formula: 


T . a 7 . 
T _T n k-1,j+1 ~k-1,j 


; ; pee a ee (5) 
k,j  k-1,j+1 . g7k_y | | 


(k+j =i, j=i-1, i-2,..., 2,1,0) 
and storing: 
Ty ; into AUX (i+1) 


aa into AUX (i) 


T,, 9 into AUX (1) 
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oth’) O(h*) o(h?) O(he)... 


step length | 
h 2 Nic. aves 


-a 1a 


Truncation error 






o- 


a pe : 
2 | Oo; | 

b-a 
: a 

b-a i 
8 G 10,3 


Figure 1. Computation of T-values (QATR) 


The procedure stops if the difference between two 
successive values of AUX (1) is less than a given 
tolerance, or if the values of AUX (1) start oscillat- 
ing, thus showing the influence of rounding errors. 


QG2.. 
FELT I IST TT STICT TPT SCLOCVOOS CSV ICC OCOCCOSSOOOCL ISLC SI CO EOS SEES CLT eS LS SS LS Paley, 


/* 
/* 
/* 
/* 


INTEGRATIGN CF GIVEN FUNCTICN BY 2—-POINT GAUSSIAN 


CUADRATURE FORMULA 


® Subroutine QGn (n= 2, 4, 8, 16, 24, 32, 48) 


QG2 


*/QG2 
*/QG2 
*/QG2 
*/QG2 


Jf PEEHRRE ERR ARER EERE ADEE SHEER EEE ERRAEEER ECHR ESE E EERE RARE RE EERE EK EK ER/ QG 2 
PROCEDURE (XL sXUsFCTs Vy. 
CECLARE 


/* 


CG4 


ee 


(XL eXUrsY;A,B) 

BINARY FLOAT, 

BINARY FLOAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT),. 
(BINARY FLOAT (53)) 6 
=0.5*(XUtXL) 1. 
=XU-XLee 


=2.886751345948128E-O1*Bs.- 
=0.5¥*B*(FCT(AtY) +FCT(A~Y) Do. 


/*SINGLE 
/*DOUBLE 


/*SINGLE 
/*DOUBLE 


/*END OF 


PRECISION 
PRECISION 


PRECISION 
PRECISION 


PROCEDURE 


VERSION 
VERSION 


VERSION 
VERSION 


QG2 

QG2 

QG2 
/*S*/QG2 
/*D*/QG2 
QG2 
/*S*/QG2 
/*0*/QG2 
QG2 

QG2 

QG2 

QG2 
*/QG2 


QG4 


SPEAKERS KKERKSERHSKE FERS EKEEAESERSERKAEKEEKEEK EEK ERE EKERKEEREKEKEK/QG4 


INTEGRATICN GF A GIVEN FUNCTION BY 4-POINT GAUSSIAN 


QUADRATURE FORMULA 


*/QG4 
*/QG4 
*/QG4 
*/QG4 


[RRERAEREREREEE SE HOEEERERALES OE ASE TEARE CREE OEE E EE OT EKER EES EE EREEE/QG 4 
PROCEDURE (XLeXUsFCToY)y. 
CECLARE 


/* 


QG8 


(XLaXUsVxA,8»C) 
BINARY FLOAT, 

BINARY FLCAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT) ¢~ 
(BINARY FLOAT (53) ) 96 
=0.54#(XU+XL) 9. 

=XU-XL 9 


=4.3C568L557S71C263E-O1*B ye. 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


=1.729274225 €87269E-OL* (FCT (A+C) FCT (A-C) De. 


=1.699905217924281E-O1*B-s. 
=B*(¥+3.260725771431L2731E-OL4(F 


CT(A+C)+FCT(A-C)))5~ 
/*END CF PROCEDURE QG64 


QG4 

QG4 

QG4 
1*S*/0G4 
/*0*/QG4 
QG4 
/*S*/QG4 
/*0*/QG4 
QG4 

QG4 

QG4 

QG4 

QG4 

QG4 
*/QG4 





QG8 


LESERGREESEEERERAR REESE ER ORRAK SEEGER ESSE EEK E EEE KE HRERG OK ES EEE KEK EKER ER/ OG SH 


/* 


/* 


/* 


INTEGRATION GF A GIVEN FUNCTION BY 8-PCINT GAUSSIAN 


CUADRATURE FCRMULA 


(XL aXUs¥sAyBeC) 
BINARY FLOAT, 

BINARY FLCAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53)), 
LY BINARY FLGAT (£3), 


-/*FSINGLE 


/*DOUBLE 


PRECISION VERSION 
PRECISION VERSION 


/*SINGLE PRECISION VERSION 
PRECISION VERSION 


/*0QUBLE 


X( @) BINARY FLOAT (53) STATIC INITIAL 


*/QG8 
*/QG8 
*/QG8 
*/QG8 


[ARBRADREEERRARE KE CERES REESE EK SEE EES EE RAE E AGREE EE AS ERERK EEE EER EKER /QGB 


PROCECURELXL »XUyFCTrY) 56 
CECLARE 


QGé 
QGe 
QG8 
/*S*/QG8 
/*0*/QGE8 
QG8 
/*S4*/QGE 
/*D*/QG8 
QG& 
QG8 


5 .061426814518813E-02, QG8 
1.111905172266872E-Ol, QGée 
1.568533229389436E-01, QG8 
1.813418916891810E-01);,. QG8 


(4.801449282487681E-Cl > 
3.983332387068134E-Cl, 
2-€2 7166204958 1E45E-Cly 
G.1717321247824SCE-02; 


ENOs. 


QG1é.. 
J ARERESERSEEEERAK SKE GEREEHKE DH EK SER THERE ERERK AHS ER ERE EEE RERERKREEEKEK/OG LO - 


/* 
/%* 
/* 
/* 


J PERERA KEK EEE ERK HER EAR ERE ERR EKK EEE EEEAKEKREEEK 


/* 


PROCE 
CECLA 


=0.5%(XU+XL)_- 
=XU-XL9e 

=O9e 

CO I[=1 TO 7 BY 2,7. 
C =X(1)¥*B,. 


LY SLY+XCI+1)#CFCTCA+C)+FCT(A-C)),- 


END;. 
=LY¥Bee 


/*END CF PROCEDURE QG8 


INTEGRATICN CF A GIVEN FUNCTICN BY LE-PCINT GAUSSIAN 


QUADRATURE FORMULA 


DURE(XL +XUsFCTsY) »~ 
RE 

(XL yXUsV¥sAyB eC) 
BINARY FLOAT, 

BINARY FLOAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53)), 
LY BINARY FLCAT (53), 


/*SINGLE 
/*DOUBLE 


/*SINGLE 
/*DQUBLE 


PRECISION VERSION 
PRECISION VERSION 


PRECISION VERSION 
PRECISION VERSION 


QG8 
QG8 
QGe 
QG8 
QG8 
QG8 
QG& 
QGE 
*/QG8 





QG 16 


*/QG16 
*/QG16- 
*/QG16 
*/0G6 16 


HEKEKREKEKKELSOGIO | 


QG616 © 
QG616 
QG616 
/*S*/QG16E 
/*0*/QG616 
QG616 
/*S*/QG16 
/*D*/QG16 
QG16— 


X(16) BINARY FLOAT (53) STATIC INITIAL QG16 


(42947004674S5825CE-Ol, 
4.722875115366163E-O01, 
4.32815601193S15SE-Ol, 
3777022041 775G15E-Cl 
3.C8938122201321SE-0l+ 
2-290C8388828E1LZ7E-Cl, 
1.4080177538S6295E-Cl1, 
4.17150625491881872E~C2, 
=0.5*(XUtXL) 96 


_=XU=XL oe 


=Oee 
DO [=1 TO 15 BY 2. 
Cc =X(1)*B,. 


1.3576225 70587 705E-02, 
3.112€76196532395E-02, 
4.757925584124639E-0O2,5 
6 «2314485627 16654E-02, 
764797994408 28837E-02, 
8e457825969T5012TE-02, 
9eLZ0L7TO7TS22461 79E-02, 
9-472530522753425E-02) 9. 


LY = - SLY#XCI 41) ® (FCT AHCI +FCTCA-C) Dye 


ENDy. 
=LY*Bae 


7*END CF PROCEDURE QG16 


QG16 
0G 16 
QG 16 
QG16 
QG16 
QG16 
QG16 
QG16 
QG16 
QG16 
QG16 . 
QG16 
QG16_ 
QG16 
QG16 
QG16 
#/QG16 
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QG24.. 
J RERAAERERERE SER TERE GAGES SAREE SEALERS ERE 


/* 


INTEGRATIGN CF A GIVEN FUACTICN BY 24-PCIAT GAUSSIAN 


CUADRATURE FGRMULA 


QG24 


HEREGHS SRE RERAERE RE RH EK EE EERES/ OG 24 


*/QG24 
*/QG2Z4 
*/QG24 
*/QG24 


J ERERASEEREARKERK ERK SHREK EEE KEARSE EKER HSE REE REG RE EES KKE EKER EEKERAERER/ OG 24 
PROCECURE(XL eXUsFCT+V) 96 
CECLARE 


QG32.. 


OXL se XUsV¥e2AyBeC) 
BINARY FLCAT, 

BINARY FLCAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT {53)), 
LY BINARY FLCAT (53), 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*D0O0UBLE PRECISICN VERSIGN 


X(24) BINARY FLCAT (53) STATIC INITIAL 


(4.975S36CS9S85107E-Ol, 
48736427 7S 85E547E-Cl1l, 
4.6913727600136E4E-Cl 
46432077635C220C5E-Cl » 
4210000992986S515E-O1, 
2.700620957892772E-Cl,y 
3.2404682596E487GE—-Cl, 
26727107356S441S8E-Cl;s 
2-16896753812C226E-Cl,y 
1.57521339848CE17E-Oly 
525555433 7368C8L5E—-02, 
3.20284464313C281E-C2, 
=e 5%(XU4XL) 5. 

=XU-XL, ° 

=0,9. 

CG {=1 TO 23 BY 2:9. 

Cc =X(1I)*B,. 


6-170614899993600E-03, 


1.426569431446683E-92, 
2-213871940870990E-02, 
2-964929245771839E-02, 
3.6673240T0554C15SE-02, 
4230950807659 7664E-02, 
4 28809326052056S4E-02;, 
5 .372213505798282E-02, 
5 «775283402686280E-02, 
6.083523 6463901 70E-02, 
6.291872817341415E-02, 


639690976733 7608E-02),. 


LY HSLY+XC14+1)% (FCT CAC) +FCTCA-C) Dy. 


END». 
=LY*By. 


/*END CF PROCEDURE QG624 


QG24 

CG24 

QG 24 
/*S*/0G24 
/*D*#/QG624 
0624 
/*S*/QG24 
7*D*/0G624 
QG 24 

QG624 

QG24 

QG24 

QG624 

QG24 

QG 24 

QG24 
QG24 
0624 

QG624 

0624 

QG624 

QG24 

QG24 

QGz4 

QG24 

QG624 

QG24 

QG24 
0624 
0624 
*/0624 





QG32 


SREEEAKKREREREEEEKEAEKESRSRSSESE RARE KERESHKHAKEKAKKSEKEKAAESEHEKEREKEAKKKKKKKE/QG 32 


1% 
/* 
1% 
/%* 


INTEGRATION CF A GIVEN FUNCTION BY 32-PCINT GAUSSIAN 


QUADRATURE FORMULA 


*/QG 32 
*/QG32 
*/QG32 
*/QG22 


LPRERSRRERARR RE EE EEE EER RE ERR RER ERE AK ERM TAREE GRRE ERK RES EK EK RERE ERE J QG 392 
PROCEDURE (XL sXUsFCTvY)5~ 
DECLARE 


/* 


CG48..~ 


CXL XUs¥eAyByC) 
BINARY FLOAT, 

BINARY FLOAT (53), 
FCT ENTRY RETURNS 
(BINARY FLOAT)» 
(BINARY FLOAT (53)), 
LY BINARY FLOAT (53), 


/*SINGLE PRECISION 
/*DOUBLE PRECISION 


/*®SINGLE PRECISION 
/*D0UBLE PRECISION 


X(32) BINARY FLGAT (53) STATIC INITIAL 


(4.9863193092474C8E-01, 
4.52805 7557726342E-Cly 
4.823811277937532E-Ol» 
4e6745303 796E86S8E-CL1y 
4.48160577883C261E-01ly 
4-246838068662850E-Cl + 
3.97241 E9S7TIB3S7TLZE-Oly» 
3-660910593701448E-Cly 
32315221334651C76E-01, 
2-93ESTET862C381L2E—-Cl; 
2-534499544661147E-Ols 
2-lLO0ET5EXSBO6S5ILTTE—-Cl> 
1.65934301141C638E-0Ol, 
1.19643681126CEE5E-Cl, 
7-22359807913S825E-C24 
264153832843 EESI6E-C2, 
=C.5¥*(XL+XL) 9. 
=XU-XLee 

=Oye 

OO [=1 TO 31 BY 29. 

c =X(1)*B,. 


3~509305004735048E-03, 


8.1371973€5452835E-03, 
1. 269603265463103E-02, 
1.713693145651L072E-O2,y 
2-141794901111334E-02, 
2-549902963118809E-02, 
2 -9342046739267TTE-02¢ 
3-e291111138818092E-02, 
30617289 705442425E-02% 
3.909694 789353515E-02, 
42165596211347338E-02, 
42382604650220191E-02; 
4.55869393478B81S94E-02, 
4 -692219954040228E-02y 
4-781936003963743E-02, 


VERSION 
VERSION 


VERSION 
VERSION 


4-827004425736390E-02),5. 


LY SLY+X(14+1)*(FCTCA+C) +FCT(A-C)),. 


ENDyo 
=LY*By. 


/*END CF PROCEDURE 


QG32 


QG32 
QG32 
QG322 
1*S*/QG22 
/*D*/QG32 
QG 322 
/*S*/QG32 


/*D*/QG32 | 


QG22 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG 32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG32 
QG22 
QG322 
QG32 
QG32 
QG32 
QG22 


*/QG32, 


QG48 


LESRR REE KRHRE RRR ERKEERRREKEE RAKES KARE RRR ERR AREER EA EEE EE EKER KEK/QG 4B 


/* 
44 
/* 
/* 


INTEGRATION CF A GIVEN FUNCTICN BY 48-PCINT GAUSSIAN 


CUADRATURE FCRMULA 


*/QG648 
*/QG648 
“*/QG648 
*/QG48 


LKR RRR BR REE RR ERR RRR EE ERE RE REMAKE EEE EERE KEKE RRR ERE EKA HEKKKEE/ OG SS 
PROCEDURE({XLyXUsFCTsY)9~ 
CECLARE | : 


/* 


1* 


(XLsXUyV¥2AeB5C) 

BINARY FLCAT, 

BINARY FLOAT (53), 

FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53)),; 
LY BINARY FLCAT (&3),. 


CECLARE 


X(24) BINARY FLOAT(S3) 
4.993855036262131E-Cl; 
4.920622518614134E-Cl,y 
42764938515802154E-Cl» 

«§253956E3577848E-Cly 
42217941308121SE8E-Cl, 
3-8357951625787C2E-Cl,y 
3.23893€18981E332CE-Cl, 
2288612363041S864E-01, 
2¢3345145237547S2E-O1, 
1.7437794314EC8C4E-Cl1l, 
1.123818951973445E&-Ol, 


°4.850234960473135E-C2, 


CECLARE 


100 


W(24) BINARY FLCAT(53) 
1.5766730261L52S519E-03, 
Fe TIBG6LIZEGELTIZTICE-C3 
G.8080802286771TE64E-C3 9. 
1.3713254€5417847E—-C2, 
1.73886112823E522E-C2y 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SENGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


STATIC INITIAL ¢ 


4.967650861331754E-01, 
4.852957962731236E-Ol» 
44656533453532772E-Ols 
4.38286C10137123SE-Ols 


' 4.035331020147213E-Ol, 


3.620170654619073E-01, 
3.144336983882568E-Ols 
2-6158048736EL1L1L6E5E-Ol se 
26043432405S53584E-Olr 
1.43681243€777278E-Ol, 
8.0611178034445 86E-025 
1.61900 8548143468E-02) 


STATIC INITIAL ( 

3-663776950638131E—-03, 
T.789657861471924E-03% 
1.178538041S566219E-02, 
1.558361391639904E-02, 
1.912067553291535E-02, 


QG648 
QG48 
QG48 
7*S*/QG648 
/*0*/QG648 


QG648. 


7*S*/0G648 
/*D*/QG48 
QG48 
QG48 
QG48 
QG648 
QG48 
QG48 
QG48 


QG48" 


QG48 
QG48 
QG648 
QG48 
QG48 
QG48 
QG48 
QG648 
QG48 
QG48 
QG48 
QG48 
QG648 
QG48 





2.077254147173237E-C2, 
2-380832924624524E-C2, 
226445054 74255683E-C2, 
2-8638646C502C161E-02,5 
3.0352219582546S4E-C2, 
321557096143127C1E-C2, 
2222330E2217975C4E-02,y 
=0.5%(XU+XL) 2. 


CG t=1 TO 24;. 
Cc =X(1)*B,. 


2 -233728042834714E-O2, 
2517951 7776S2724E-02, 
2-759975184999208E-02, 
26955741984919782E-02, 
321C1971157994633E-02, 
3219621192923 24C9E-02, 


3-236884840634196E-02)y.~ 


LY =LY#w(l)*(FCTCA+C) +FCT(A-C)),. 


END: 


=LY*Bye 


Purpose: 


/*END CF PRECECURE G48 


QG648 
QG48 
QG648 
QG48 
QG648 
QG48 
QG648 
QG48 
QG48 
QG48 
QG648 
QG48 
QG48 
QG48 
QG48 


*/QG648 





XU 


QGn computes the integral value Y f FCT(X) dX 


XL 
for a given function FCT (X) defined in the 
closed interval [| XL, XU], using Gaussian 


quadrature formulas. 


Usage: 


CALL QGn (XL, XU, FCT, Y); 


XL - 

XU - 

FCT - ENTRY 
by the user. 
Usage: 
FCT(X) 
X — 

Y- 

Remarks: 


BINARY FLOAT [(53)] 
Given lower bound of the integral. 
BINARY FLOAT [(53)] 
Given upper bound of the integral. 


Given procedure for the computation of 
the function values, which must be supplied 


FCT(X) - BINARY FLOAT [(53)] 


BINARY FLOAT [(53)] 
Resultant integral value. 


Resultant function value. 
BINARY FLOAT [ (53)] 
Given argument value. 


The number n within the procedure name QGn 
indicates the number of nodes used for calculation 


of Y. 


Method: 


Gaussian quadrature formulas are used for the 
evaluation of the integral values. 


For reference see: 


V. I. Krylow, Approximate Calculation of Integrals, 
Macmillan, New York-London, 1962, pp. 100-111 
and 337-340. 
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Mathematical Background: 


Set: 
x, = lower bound of integral 
X, = upper bound of integral 
n = number of nodes used for the evaluation 


of the integral value. 
By means of the linear transformation 


= + 
xX ty t,t 


eS x 
with to = 5 and t, = 5 








the argument range = Sxs x is mapped onto 
-l<tst+l 


and the integral 
x 
f () dx 


x 
1 


y = 


is reduced to standard form 
+1 


f 


-1 


ve cp (t) dt 


with @ (t) = t, f (ty + t,t). 


Gaussian quadrature formulas are used to compute 


(3). 


The integral value y is approximated by a weighted 


sum of function values: 


(n) 
A 
(n) _ =) ok 
Jy a at. > 


(2) 
+t, t*’) 
cal 7 


Mog ty 


The value y) is exact whenever f(x) is a poly- 
nomial of Beene? less than or equal to 2n-1. 


The weights A{n) and nodes fn ) are symmetric 
with respect to the origin t = 0: 


(a) 
‘k 


(n) 
- -k+1 ’ 


(a) _ 
AK es 


_) 
n-k+1 


(1) 


(2) 


(3) 


® Subroutine QLn (n =2, 4, 8, 12, 16, 24) 


QL2.. 


ale 


7233007 RG ROI ROO ao ogo toi aaa a QL, 


/* 


*/QL2 


INTEGRATION OF A GIVEN FUNCTION BY 2-POINT GAUSSIAN-LAGUERRE */QL2 


QUADRATURE FORMULA 


*/QL2 
#/QL2 


(DIR ROR RIOR ROI OR ko 20 ao OR SOON aE Re ROR a Rea OR A OR EE REI QL 2 
PROCEDURE (FCT sY} 9. 
DECLARE 


1* 


QL4. e 


FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53))9 
(X,Y) 

BINARY FLOAT;. 
BINARY FLOAT (53)%. 


=3 6414213562373 095E+00,. 


/*SINGLE 
/*00UBLE 


7 *STNGLE 
/*DOUBLE 


PRECISION 
PRECISION 


PRECISION 
PRECISION 


=1.464466094067262E-O1 #FCT(X) 56 


=5.85786437626905CE-01,. 


=Y¥+8.535533905932 73 8E-O1*FCT(X) 5. 


/*END OF PROCEDURE 


VERSION 
VERSION 


VERSION 
VERSION 


QL2 

QL2 

QL2 
/*S*/QL2 
/*DE/QL2 
QL2 
/*S*/QL2 
/*D*/QL2 
QL2 

QL2 

QL2 

QL2 
*/QL2 


QL4 


[RRRRERE IKE EREK EE EEE ERE REE RE EEE EERE ERE OES EERESESS SE SSEEEE TEES EEEREEE/ OLS 


/* 


*/QL4 


INTEGRATION OF A GIVEN FUNCTION BY 4-POINT GAUSSIAN-LAGUERRE */QL4 


QUADRATURE FORMULA 


*/QL4 
*/QL4 


[REREREEEEERARE AEE ERE EEEREE ESSERE SEREES HERES HEE SEERE ORE AEEEAKEERERRSS SHE /QL 4 


PROCEOURE (FCTeY)s.~ 
DECLARE 


QLS.. 


m<x<x<x <x 


FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53)), 
(X,Y) 

BINARY FLOAT,. 
BINARY FLOAT (53) 4. 


=9.395070912301133E+00,. 


7*SINGLE PRECISION VERSION 
/7*D00QUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


=5.3929470556132 75E-O4*FOT(X) 56 


=4.536620296921128E+00e. 


=Y+3.8887 9085150053 8E-O02 *FCT(X) 9~ 


=1. 745761 LOLL58347E+00y. 


=Y+3 65741869243 7799 7TE-OL*FCTIX) 90 


®3.225476896193923E-O1,. 


=Y4+6.031541043416336E-OL*FCT(X) 5. 
./*END OF PROCEOURE QL4 


QL4 

QL% 

QL4 
/*S*/QL4 
/*D*/QL4 
QU4 
1*S*/QL4 
7*D0*/QL4 
QL4 

QL4 

QL4 

QL4 

QL4 

QL4 

QL4 

QL4 
*/QL4 


QL8 


eevrreretrrrtretrrttittic ti tt iirc tioeroreo oro Se SSP te Lye) 


4% 
/* 
/* 
1* 


*/QL38 


INTEGRATION OF A GIVEN FUNCTION BY 8—POINT GAUSSIAN-LAGUERRE */QL8 


QUADRATURE FORMULA 


*/QL8 
*/QL8 


[RH EBERT A PO TA AE EIR ERA EERE KEE EERE ER EE EEE E EEE KERR ERE / QL G 


/* 


PROCEDURE (FCT?Y) »9.~ 


DECLARE 


QL12.. 


FCT ENTRY RETURNS 
(BINARY FLOAT), 

(BINARY FLOAT (53))>, 
(XX) . 
BINARY FLOAT» 

BINARY FLOAT (53) 

I BINARY FIXED, 

LY BINARY FLOAT (53)+% 
X€16) BINARY FLOAT (53) 
(2.286313173688926EtO1, 
1.574067864127800E+01» 
1.07585160LO0L8100E+01, 
7045905402393466E+00, 
4.2667001 702 87659E+00, 
2.2251086629866131E+009 
9.03701L 7767993 TIIE-Ol» 
1.702796323C51010E-Ol,» 
=O%. 

DO J=1 TO 15 BY 2s 

XX =X(1),. 


LY =LYtX(1+1) *FCT(XX) 2- 


END. 
=LY1- 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
‘/7*DDUBLE PRECISION VERSTON 


STATIC INITIAL 


1.04800117487151L0E-09,y 


8 -485746716272532E-07, 
9 .076508773358213E-05, 
2679 453623522567T3E-03,4 
34334349226121565E-02, 
1.757949866371718E-O1, 
4e187867808143430E-01, 
3.691885893416375E-01) 


/*END OF PROCEDURE QLS 


QL8 

QL& 

-QL8 
7*S*/QL8 
/*0*/QL8 
QL 
4*S*/QL8 
/*0*/QL 8 
Qs 

QL8 

QL8s 

Quis 

Qus 

Qus 

QLs 

QL8 

QL8 

QL8 

QL38 

QL8 

QL8 

QL8 

Qs 

QLs 

Qus 
*/QL8 


QL 12 


TRRRKERRRE KSEE RH ERK HER AHR AK RAKE KH HEE KE ERE HERRERA EEE / QL 12 


4* 


/* 
/* 
1* 


*/QL12 


INTEGRATION OF A GIVEN FUNCTION BY 1L2-POINT GAUSSTAN-LAGUERRE*/QL 12 


QUADRATURE FORMULA 


#/QL12 
*/QL12 


LR ERHRAR ARR ERE EAR MK REHEARSE EE ERE EE EE EEE /OL 12 
PROCEDURE (FCT+Y¥)>¢. 


DECLARE 


(XX,¥) 

BINARY FLOAT, 

BINARY FLOAT (53)+ 
FCT ENTRY RETURNS 
(BINARY FLOAT)» 
(BINARY FLOAT (53)), 
I BINARY FIXED; 

LY BINARY FLOAT (53), 


/*SINGLE PRECISION VERSION 
/*00UBLE PRECISION VERSION 


7*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


X(24) BINARY FLOAT (53) STATIC INITIAL 


(3.709912104446692E+01, 
2-848796725098400E#01, 
2.215109037T939701E+01 » 
1.711685518746226E+t01 » 
1.300605499330635E+01s 
9.621316842456867Et+00, 
6.844525453115177E+00, 
4259922763941 8348E+00, 
2.8337513377435C7E+00» 
125126102 69776419E+00, 
6.2117574845151307E-01- 
1.1572211735802C7E-Ol» 
=O. 

DO f=1 TO 23 BY 2s. 

XX =X(I)-- 


LY = =LY+X( 141) *FCTOUXX) >. 


END, . 
=LVe96 


8.148977467426242E-16,y 
3.C61601635035021E-12y 
1.342391030515004E-09, 
1.668 493% 76540910E-07, 
8.365055856819799E-06, 
2.032315926629994E-04,y 
2 -663973541865316E-03, 
20C1C238115463410E-02,% 
9 .044922221168093E-02, 
2-4408201131L98776E-0l, 
3.7775927587T31380E-O1,y 


226473137 10554432E-01)5~ 


/*END OF PROCEDURE QL12 


QL12 

QL12 

OL 12 
7*®S*/QL 12 
/*0*/QL 12 
OL 12 
/*S*/QL12 
/*0*/QL12 
OL12 

Qt12 

QL12 

QL 12 

QL 12 

QL12 

QL 12 

QL12 

OL 12 

QL12 
QL12 
QL12 

QL12 
Qtl2 
QL12 
QL12 

QL 12 

QL12 

OL 12 
Qu12 
Qt1l2 
*/OL12 
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QL16.. 


QL16 


Reet e ee eee eee ere eee ene ee men EME a Ne tn ar ekg ee se Cems 


*/QL16 


INTEGRATION OF A GIVEN FUNCTION BY 16-POINT GAUSS TAN~LAGUERRE#/QL 16 


' QUADRATURE FORMULA 


*/QL16. 


*/QL16 


FEA EIEIO TA ORE OS OE AE ICO I ISIC TOTO COR ROCA TAI SATA AA RI OL 16 
PROCEDURE (FCT+Y)>. 
DECLARE 


1* 


QL24..° 


FCT ENTRY RETURNS 
(BINARY FLOAT), 

(BINARY FLOAT (53)), 
(XX,Y) 

BINARY FLOAT, 

BINARY FLOAT (53) 9° 

I BINARY FIXED, 

LY BINARY FLOAT (53), 
X(32) BINARY FLOAT {53) 


' (5.170116033954332E+C1, 


4.194045264768833E+01, 
3.458339870228663E+01 , 
2¢857T8T29T4288214E+01 
2-35159C569399 1 IFLE+O1 
1.918015685675313E+01, 
1.54415273687 8162E+01, 
1.221422336886616E+01, 
9 .438314336391939E+00, 
7.070338535048234E+00, 
507801861454 S768E+00, 
34437086633 8932C7E+0C, 
2-129283645098381E+00, 
1.141057774831227E+00, 
4.626963289150808E-01, 
8.1764941047892784E-02 » 
=O, 

DO I=] TO 31 BY 2,. 

XX =X(I)_. 

LY =LY+X(1#1) *FCT (XX) 
END». 

=ZLYVy. 


7*STNGLE PRECISION VERSTON 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*O0QUBLE PRECISION VERSION 


STATIC INITIAL 
42161462370372855E-22, 
5 .050473700035513E-18, 
6-297967002517868E-15, 
2-127079033224103E-1l2, 
2 -862350242973882E-10, 
1.881024841079673E-08, 
6&.828319330871200E—-07, 
1.48445 8687398130E-05, 
2.042719153082785E-04,- 
1.849070943526311E-03, 
1.129990008033945E-02, 
4.732892869412522E-02, 
1.36296934296377T5E-Ols 
266579577 76442142E-O1 
3.310578549508842E-0O1, 
2-061517149578010E-01),. 


ve 


/*END OF PROCEDURE QL16 


QL16 
QL16 
GL16 
7*®S*/QL16 
/*0*/QL16 
QL16 
4*S*/QL 16 
PSDELOELG 
QL16 
QL16 
QL16 
OL16 
-QL16 
QL 16 
QL 16 
QL16 
QL16 
“QL16 
9L16 
QL16 
QOL16 
QL16 
QL16 
QL16 
OL 16 
QL16 


QL16. 


OL16 
QL16 
QL16 
QL16 
QL16 
QL16 
*/QL16 


QL 24 


(Peete tee ini toi te bi tet Aa Aa I IOI AC IO AAI ATE AAI A AAA IE AI QL 2G 


(* 


*/QL 24 


INTEGRATION OF A GIVEN FUNCTION BY 24-POINT GAUSS I AN-LAGUERRE*/QL 24 


QUADRATURE FORMULA 


*/OL 24 
~*/QL 24 


J OLEECERESY CESEUR DEERE ESE YEELUE SENS TENS ONE RSEEES ESS CAS EET REPS ECEROS/OL 26 
PROCEOURE (FCT+sY)_. 
DECLARE 


/* 


/* 


(XXr¥) 
BINARY FLOAT, 
BINARY FLOAT (53)1 


- FCT ENTRY RETURNS 
BINARY FLOAT), 


(BINARY FLOAT (53)),% 
I BINARY FIXED, 
LY BINARY FLOAT (53) ,0— 


DECLARE 


X(24) BINARY FLOAT(53) 
8 «1498279233 94889E+01, 
6-6105853144721876E+01 » 
467153106445 15632E+01, 


326358405 80165162E+01, 


2.763593717433272E+01, 
2049146008261 642E+01, 
1.464273228959667E+01 
9.91209801L5077706E+00, 
6.181535118736765E+00, 
323707742 64208998E+00, 
1.425597590803613E+00, 
3.112391461984837E-Ol, 


DECLARE 


W(24) BINARY FLOAT(53) 
55753457883 28357E-35, 
224518188458 78403E-26, 
200105174645 55503E+20,4 
7-819800382459448E-16, 
3.91 7736515058451E-12, 
4.07285898 755 0000E-09, 
1.151315812737280E-06, 
1.0446121465S52752E-04, 
3. 3693490584 78304E-03,, 
4.973247815140865E-02, 
1.833226889777780E-O1, 
2-5877410751 74239E-Ol, 
=09- 

DO Y=1 TO 2446 

XX =X(1),. 

LY =LYtwW( 1) *FCT(XX) +. 
END,. 

=LYy.e 


| Purpose: 


QLn computes ie integral value Y= Se Kj FCT(X)dX 
for a given function FCT(&), by Gaussian-Laguerre 


quadrature formulas. 
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/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


STATIC INITIAL ( 
6 .996224003510503E+01, 
5.360857454469507E#01, 
4.145172048487077E+01, 
32177604135237472E+01 » 
2.388732984816973E+01, 
1.741799264650898E+01, 
1.214610271172977E+01, 
729275392471 72152E+00, - 
4-665083703467171E+00, - 
22292562058632190E+00, 
7-660969055459366E-01 
5.9C1985218150798E-02);5. 


STATIC INITIAL ( 
4.0883.01593680658E-30, 
3260576586455 2959E~23 
5-350188813010038E-18, 
6 -894181052958086E—-14, 
1.50 7008226292585E-10,» 
7.960812959133630E-08, 
1.254472197799333E-05, 
6-72162564093547T9E~-04,% 
1.322601940512016E-02, 
9-816627262991889E-02, 
2 -588067072728698E-Ol » 
1.428119733347819E-01)-.~ 


/*END OF PROCEDURE QL24 


QL 24 
QL 24 
QL 24 
7*S*/QL 24 
7*D*/QL 24 
OL 24 
7*S*/QL 24 
/*D*/QL 24 
QL 24 
QL 24 
QL24 
QL 24 
QL24 
QL24 
QL 24 
QL 24 
QL 24 
QL 24 
QL 24 
QL 24 
QL24 
QL24 
QL 24 
QL24 
QL 24 
QL 24 
QL 24 
OL 24 
QL24 
QL 24 
QL 24 
QL24 
QL 24 
OL 24 
QL 24 
QL24 
OL 24 
QL 24 
QL 24 
QL 24 
QL 24 
QL 24 


QL24- 


QL24 
*/QL 24 





Usage: 


CALL QLn (FCT, Y); 


FCT - 


ENTRY 
Given procedure for the computation of 


the function values. 


Remarks: 


This procedure must be supplied by the 
user. 


Usage: 
FCT(X) 
FCT(X) - BINARY FLOAT [(53)] 

7 Resultant function value. 
X- BINARY FLOAT [(53)] 

Given argument value. 

BINARY FLOAT [(53)] 
Resultant integral value. 


The n in the name QLn indicates the number of nodes 
used for the calculation of Y. 


Method: 


Quadrature formulas of Gauss-Laguerre are used 
for the evaluation cf the integral values. 


For reference see: 


H, E. Salzer, R. Zucker, "Table of Zeros and 
Weight Factors of the First Fifteen Laguerre 
Polynomials", Bul. Amer. Math, Soc., vol. 55 


(1949), pp. 1004-1012. 


V. I. Krylow, Approximate Calculation of Integrals, 
Macmillan, New York- London, 1962, pp 130- 132 and 


347-352. 


Shao, Chen, Frank, 'Tables of Zeros and Gaussian 
Weights of Certain Associated Laguerre Polynomials 
and the Related Generalized Hermite Polynomials", 
IBM Technical Report TR 00. Ene March 1964, 

pp. 24-25. 


Mathematical Background: 


Formulas of Gauss- Laguerre are used to compute 


y 


oe) 


j 


0 


* f(x) dx 
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Let n denote the number of nodes used for the 
calculation of the integral value y. The value y 
is approximated by a weighted sum of function 
values: | 


n 
(n) _ (0). (n) 
yo" = yi [A,. F(x") 1 


The value y"") is exact whenever f(x) is a poly- 
nomial of degree less than or equal to 2n-1, The 
nodes x) are the roots of the Laguerre poly- 
nomials L,,(x) of degree n. 


@ Subroutine QHn (n =2, 4, 8, 16, 24, 32, 48) 


QH2.. 


QH2 


(DRO OG REI IO GI IOI aor gota tot ola Robi tot laa iitoi i iolaii tat kit iiete ii tote / OH 2 


‘INTEGRATICN OF A GIVEN FUNCTION BY-2—-POINT GAUSSIAN-HERMITE 
QUADFATURE FORMULA 


*/QH2 
*/QH2 
*/QH2 
*/QH2 


TR RR RR RR FOR OR RRO ROK SIC kk te ta da Rk a Ro a a a i ee ea a tO ee RRR KEK /QH? 


PFOCEDUPE (FCT eV) e- 
DECLARE 
FCT ENTRY RETURNS » 
. (BINARY FLOAT)» 
(BINARY FLOAT (53)), 
(Xe¥9Z) 
BINARY FLOAT;,. 
BINARY FLOAT(53) ¢- 
=7.071067811865475E-0O1,. 
=—-Xoe0 
=8 6862269 2545275 80E—-OL*(FCT(X)+FCT(Z)),5. 
/*END OF PROCEDURE QH2 


/*SINGLE PRECISION VERSION 
/*DQUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


QH4..° 


QH2 

QH2 

QH2 
7*S*/QH2 
/*0*/QH2 
QH2 
/*S#/QH2 
/*0*/QH2 
QH2 

QH2 

QH2 
*/QH2 





QHS 


(JRO OR RIC OR II RI IGG 2k RGIGICIO GI gi OiaIGiCatioiaiai te: tak aki doiog gercgciog tok ie ido 7 OH G 


1* 


/* INTEGRATION OF A GIVEN FUNCTION BY 4-POINT GAUSS IAN-HERMITE 


/* QUADRATURE FORMULA 
1* 


*/QH4 
*/QH4 
*/OH4 
*/QHS 


788K ERO RRO FO IOI Roi i Rok OR RO io dete teak toto 8 J QH 4 


PROCEOURE (FCT»Y)+.~ 
OECLARE 
FCT ENTRY RETUFNS 
(BINARY FLOAT)» 
/* (BINARY FLOAT (53)), 
W BINARY FLOAT(53), 
(XeV9Z) 
BINARY FLOAT». 
BINARY FLOAT(53);. 
=1.650680123885785E+00,. 
=—-X, e 
=8 .13128354472451 BE-O2*(FCTUX)+FCT(IZ))¢ 
=5.246476232752903E-01;. 
=—-Xee 
=W+ 8.0491 40900055128E-O1*(FCT(XI+FCT(Z) 74. 
/*END OF PROCEDURE QH4 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DQUBLE PRECISION VERSION 


QH8.. 


QH4 
QH4 
QH4 


1*S%/QHS4 


/*D*/QH4 
OH4 

QH4 
f*S*/QH4S 
/*D*/OH4 
QH4 

QH4 

QH4 

QHS 

QH4 

OH4 
*JQH4 





QH8 


GRR HR KH RR Ba KE KH ea RC ee ak i fe ae oe a a ae RR ea ee a a a a a he ok KE KK K/QHB 


1% 


1* INTEGRATION OF A GIVEN FUNCTION BY 8-POINT GAUSS IAN-HERMITE 


QUADRATUFE FORMULA 
/* 


PROCEDURE (FCT+Y) 9. 
DECLARE 

FCT ENTRY RETURNS 
(BINARY FLOAT), 

/* (BINARY FLOAT (53)), 
(XX) 
BINARY FLOAT, 
BINARY FLOAT (53), 
I BINARY FIXED, 
LY BINARY FLOAT (53), 
X€ 8) BINARY FLOAT (53) STATIC INITIAL( 
22930637420257244E+0C, 1 .996040722113676E-04, 
1.981656756695843E+00, 1.707798300741348E-02, 
1.157193712446780Et00, 2-078023258148919E-Ol, 
3.811869902073221E-01, 6-611470125582413E-01),. 
=O. 
DO I=1 TO 7T BY 2s. 
XX =X(I),. 
LY SLY+XCE+1L) XC FCTUXX) +FCT(-XX)) 9. 
END. 
=LY>. 


_/*SINGLE PRECISION VERSION 
/*O0QUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*O0GUBLE PRECISION VERSION 


/*END OF PROCEDURE QH8 


QH16.. 


*/QH8 
*/QHB 
*/QHB 
*/QH8 


J RRR RAR RK RE KEE RK REE RK RAK EK AKA A RK RRR EK EEE ERKE REE OHB 


QH8 

QH8 

-QHB 
/*5*/QH8 
/*D*/QH8 
QH8 
/*S*/QHB 
/*D*/QH8 
QHB 

QH8 

QH8 

QH8 

QH8 

QH8 

.QHB 

QH8 

QH8 

QH8 

QH8 

QHB 

QH8B 
*/QHB 


QH16 


L RRR RRR ER ERK HK KR ER RK RK REE KKKHEREAERKEKEKREKEKKEKEREE EEE /QHIG 


/* 


*/QH16 


/* INTEGRATION OF A GIVEN FUNCTION BY 16—POINT GAUSSIAN-HERMITE */QH16 


/* QUADRATURE FORMULA 
/*- 


*/QH16 
*/QH16 


[RRR MAE RR RR FOR ROR RR PR I HK TOR ERE RRS EE EAE KER ARERR ER EES QH 1G 


PROCEDURE (FCT sY),_. 
DECLARE 
FCT ENTRY RETURNS 
(BINARY FLOAT), 
se, (BINARY FLOAT (53)), 
(XX,Y) 
BINARY FLOAT, 
BINARY FLOAT (53), 
I BINARY FIXED, 
LY BINARY FLOAT (53), 
X(16) BINARY FLOAT (53) STATIC INITIAL 
4-68873893930581 BE+00, 2-654807474011182E-10, 
3.869447904860123E+00, 22320980844865211E-07, 
3-176999161979956E+00» 2.711860092537882E-05, 
2254620215784 7481 E+00,» 9 -322840086241805E-O4% 
1.95178 79909 1L6254E+00, 1.288031153550997E-02, 
1.38C02585391L98881Et+00, 8 .381004139898583E-02, 
8.22951 4491446559E-Ol, 2 «806474585 285337E-01s 
2-734810461381525E-01» 5 .079294790166137E-01),. 
=O9. 
DO I=1 TO 15 BY 2». 
XX =ZX(L)oe 
LY SLY¢X(1+1) *CFCT(XX) FCT(—-XX))>. 
ENDee 
=LY». 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*END OF PROCEDURE QHI16 


QH16 
QH16 
QH16 
/*S*/QH16 
/*D*/QH16 
QH16 
/*S$*/QH16 
/*0*/QH16 
QH16 

QH16 
QH16 

QH16 
QH16 

QH16 

QH16 
QH16 

QH16 
QH16 
QH16 

QH16 
QH16 
QH16 

QH16 
QH16 
QH16 
*/QH16 
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QH24.6 : QH24 
(DUET IO IOI ORO itr 2 of rg iii i OIG ila ia iui i aa ia a tok $i / OH 24 
/* */QH24 
INTEGRATION OF A GIVEN FUNCTION BY. 24-POINT GAUSSTAN-HERMITE */QH24 
QUADRATURE FORMULA */QH24 

*/QH24 

ORK He Me Re Re eR Re ee ee a ee te a ae ae ae a ae hc Re te ak fe fe te ake a ae ae a ae a ak aie ae a ae ak eK a KE KK RHEE KEK, OH ZG 
PROCEDURE (FCT,Y),y. QH24 
DECLAFE ‘ : QH24 
FCT ENTRY RETURNS. . QH24 

' . (BINARY FLOAT), /7*SINGLE PRECISION VERSION /*S*/QH24 

/* (BINAFY FLOAT (537), /*DOUBLE PRECISION VERSION /*D*/QH24 
(XX) QH24 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/QH24 

BINARY FLOAT (53), /*DOUBLE PRECISION VERSION /*0*/QH24 

I BINARY FIXED: : QH24 

“LY BINARY FLOAT (53), QH24 

X(24) BINARY FLOAT (53) STATIC INITIALC QH24 
66015925561425740E+00, 1.664368496489109E-16, QH24 


72930467495165382E-10,% 


2-4686589936697T50E-0T» 
2+528599027748489E~05, 
9.563923198194153E-04, 
1.444496157498110E-02, 
9.1822297C792851 8E-02, 
2053961542664 7T591E-Ols 
=O9. 

OO {[=1 TO 24,. 

XX =X(1)>. 


1.622514135895770E-08, 
2 -84725869173484B8E-06, 
1. 751504318011728E-04, 
4.1530C4911977552E-03, 


' 4.047967698460385E-02, 
°1.692044719456411E-01, 
3.110010303779631E-01),. 


LY =LY+WCT)*CFOTOXX)+FCTI-XX) D9. 


END). 
=LY, ° 


/*END OF PROCEDURE QH48 


QH48 
QH48 
QH48 
QH48 
QH48 
QH4B8 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 


*/QH48 





5 «25938292 7T668044E+00, 
4.625662756423787E+00, 
4.05 36644024481 50E+00, 
3.520006813034525E+00, 
3.012546137565565E+00, 
2.523881017011427E+00, 
22149003573661699E+00, 
1.584250010961694E+00, 
1.12676C817611245E+00, 
6.741711070372122E-Ols 


6 +584620243078170E-13, 
3-C046254269987564E-10, 


4.C18971174941430E-08, 


2-158245704902334E-06, 


5.688691636404380E-05,: 


8.236924826884175E-04, 
7.048355810072671E-03, 
3-744547050323075E-02, 
1.277396217845592E-01, 
2861795 35 3464430E-01+ 


QH24 
QH24 
QH24 
QH24 
QH24 
QH24 
QH24 
QH24 
QH24 
QH24 


262441454 74725156E-Oly 4.269311638686992E-01),. QH24 


QH32.. 
(IR IE RII ROR IR RIG I IO iI RR aI ICR RR tii a tokio to 7H 3 2 


/* 
/* 
/* 
1% 


=Cre 
00 I=1 TO 23 BY 2». 
XX =X(1)y. 


LY SLY+X(1T+1L)* (FCT (XX) tFCT(~XX)) 5. 


END». 
=LYVqe 


/*END OF PROCEDURE QH24 


QH24 
QH24 
QH24 
QH24 
QH24 
QH24 
*/QH24 


QH32. 


*/QH32 


INTEGRATION OF A GIVEN FUNCTION BY 32-POINT GAUSSTAN-HERMITE */QH32 


QUADRATURE FORMULA 


*/QH32 
*/QH32 


Je ESO IO Rom tok toate dat i took date aati $k i i 2k aR raga a a Re RRR axe ak ok eR HH HH / OH 32 
PROCEDURE (FCTyY)y. 
DECLARE 


/* 


QH4 


SRREERERE EE KR KE HK KK 


1% 
1* 
/* 
/* 


FCT ENTRY RETURNS 
(BINARY FLOAT), 
(BINARY FLOAT (53)), 
(XX,Y) 

BINARY FLOAT, 

BINARY FLOAT (53), 

I BINARY FIXED, 

LY BINARY FLOAT (53)', 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


X32) BINARY FLOAT (53) STATIC INITIAL( 


7.125813909830728E+00, 
6.409498149269660E+00, 
5 .812225949515914E+00, 
5.27555C986515880E+00, 
4.777164503502596E+00, 
4230554795 3351198E+00, 
3.853755485471445E+00, 
3641716749281 8571E+00, 
2.9924908250C2374E+00, 
2.57724953773231 7TE+00, 
2.169499183606112E+00; 
1.76 7654109463202E+00, 
1.370376410952872E+00, 
9.765004635896828E-01 » 
5.84978 7654359324E-01,, 


. 1.94840 7415693993E-01, 


Bee 


PROCE 
DECLA 


=O. 
00 [=!1 TO 31 BY 29. 
XX =X(1),. 


72310676427384162E-23; 
9 .231736536518292E-19, 
1.197344017092849E-15, 


' 4.215C10211326448E-13, 


5 .933291463396639E-11, 
4.€98832164770897E-09;, 
1.574167792545594E-07,5 
3 «6505851295623 76E-06, 
52416584061819983E-05, 
§ 2362683655279 T20E-04, 
3.65489032665442B8E-03, 
1.755342883157343E-02, 
6 .645813095591261E-02, 
1.512697 340 766425E-O1, 
2.774581423025299E-01, 


3.752383525928024E-01),.~ 


LY SLY+X(141) *( FCTUXXI#FCT(-XX)) 9. 


END, . 
=LVy. 


INTEGRATION OF A GIVEN FUNCTICN BY 48-POINT GAUSSIAN-HERMITE */QH48 | 


QUADRATURE FORMULA 


DURE (FCT »Y),. 
RE 
FCT ENTRY RETURNS 


/*END OF PROCEDURE QH32 


QH32 

QH32 

QH32 
4*S*/QH32 
7*0*/QH32 
QH32 
1*S*/0H32 
1*0*/QH32 
QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

CH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 

QH32 
*/GH32 





QH48 


RCI RACK kot Re Rokk kk tok tea a a aK ee KE RK KK KKK REKIQH GR 


*/QH48 


*/QH48 
*/0H48 


LRM KER BM RH RH RH RR RK Ha EH RO HR RK KEE ERE KEKE RK REE KEKE EE KE KKK KEK /QHGS 


QH48 
QH48 
QH48 


(BINARY FLOAT), 

/* {BINARY FLOAT (53)), 
(XX,Y) 
BINARY FLOAT, 

se BINARY FLOAT (53), 


/*SINGLE PRECISION VERSION /*S*/0QH43 
/*D0UBLE PRECISION VERSION /*0*/QH48 

QH48 
7*SINGLE PRECISION VERSION /*S*/QH48 


DECLA 


I BINARY FIXED, | 

LY BINARY FLOAT (53),. 
RE 

X(24) BINARY FLOAT(53) 
8.97531 508193168TE+00, 
72759295519 7657 T5E#00» 
6-8 LOCE457TECT4141E4CO, 
5 .971072225013545E+00, 
5 .196287718792365E+00, 
4 6464014546934459E+00, 
3.761726490228358E+00, 
3.0812489886451L06E+00, 
22416 760904873216E+00, 


.1.76381757989530CE+00, 
_ 1.11881215240215 7E+00, 


DECLA 


427864633 75944961E-O1, 
RE 

W(24) BINARY FLOAT(53) 
7.935551460773997TE~36, 
3.6850 3608015C67CE-27% 
3.188387323505138E-21, 
1.315159622658409E~-1L6, 
72046932581 545889E-13, 


/*D0UBLE PRECISION VERSION /*0*/QH48 


STATIC INITIAL (¢ 


8.310752190704784E+00, 
7.2€6646554164350E+00, 


6.3805 64096 186411E+00, 


5577316981223 729E+00;, 
4.825757228133209E+00, 
4.109704603560590E+00, 


| 344191659 69363885E+00, 


20 147308624822383E+00, 
2 -€89C 866609442T76E+00, © 
1.440525220137565E+00, 
7-983046277785622E-Ol, 
1.554929358488625E-OL) 


STATIC INITIAL ( 


5 -984612693313878E-31, 
5256457746890 2285E-24,% 
8.730159601186677E-19;, 
1.197589865479179E-14, 
22815296537838169E-11, 


. QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 : 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 
QH48 





Purpose: 


aoe es . 
| | : JS x 

@Hn computes the integral value Y= ¥.e FCT(X) dX 

for a given function FCT(X), using Gaussian-Hermite 

quadrature formulas, - 


Usage: 
CALL QHn (FCT, Y); 
FCT - 


ENTRY 


Given procedure for the computation of the 
function values, which must be supplied 
by the user. 


Usage 

FCT(X); 

FCT(X) - BINARY FLOAT [(58)] 
Resultant function value. 

xX - BINARY FLOAT [(58) ] 
Given argument value, 


Y - BINARY FLOAT [(53)] 
Resultant integral value. 


Remarks: 


The number n in the name QHn indicates the number 
of nodes used for the calculation of Y. 
In case of an even function f(x) = (x), f(x) may 
be changed by means of the transformation t = x2 into: 
-t 
e ot) » 


r*{ > 


This is a form suitable to subroutines QAn, the use 
of which saves approximately half of the computation 
time. 





Method: 


Quadrature formulas of Gauss-Hermite are used for 
the computation of the integral values. 


For reference see: 


H. E. Salzer, R. Zucker, R. Capuano, Table of 


Zeros and Weight Factors of the First Twenty 
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Hermite Polynomials, F. Res. Nat. Bur. Standards, 
vol. 48 (1952), pp. 111-116, 


V. I. Krylow, Approximate Calculation of Integrals, 
Macmillan, New York-London, 1962, pp. 129-130 
and 343-346, | 


© Subroutine QAn (n = 2, 4, 8, 12, 16, 24) 


QA2e~ 


QA2 


SREEKEEAKRRKARERAK REE KEKE KEKE ERE RK EK ERK EK SK KEKHERAKEBKERKE KK EKKEREKERK/QAZ 


1* 
/* 
1* 
/* 


INTEGRATION OF A GIVEN FUNCTION BY ASSOCIATED 2-POINT 
GAUSSTAN-LAGUERRE QUADRATURE FORMULA 


*/QA2 
*/QA2 
*/QA2 
*/QA2 


TR RR AOR A RO ROR RR RR RI RR RI ROR IE EE HOE ER EE ERE EE EEK EERE EHH QA 2 
PROCEDURE (FCTsY)>5. 
DECLARE 


QA2 
QA2 


FCT ENTRY RETURNS QA2 
(BINARY FLOAT)+ 7*SINGLE PRECISION VERSION /*S*/QA2 
/% (BINARY FLGAT (53)), /*DQURLE PRECISION VERSION /*D*#/QA2 
(Xs) QA2 
BINARY FLOAT,. /*SINGLE PRECISION VERSION /*S*/QA2 
BINARY FLOAT (53) 5. /*DOUBLE PRECISION VERSION . /*D*/QA2 


Mathematical Background: 


. =267241744871391589E+00)« QA2 

Quadrature formulas of Gauss- Hermite are used to =1.626256708944903E-O1#FCT(X) 96 QA2 

=2.752551286084109E-Ol1y. QA2 

=Y+1 260982818 00L1026E#00*FCT(X) 9. QA2 

compute /*END OF PROCEDURE QA2 #/QA2 
co 2 

—xX QA4 

VY = e £(x) dx PERTTI OTOSICOLSTOCLOOSOOSSOOCSCOCCLOCLOS CLES OS POP TET Pes ts ee Te SS eS St See yea e 

/* */QA4 

—CO /* INTEGRATION OF A GIVEN FUNCTION BY ASSOCIATED 4-POINT */QA4 


Let n denote the number of nodes used for the 
calculation of the integral value y. The value y is 
approximated by a weighted sum of function values: 


n 
yo) _ » a) ie, 


k=1 


The value yt) is exact whenever f(x) is a polynomial 
of degree less than or equal to 2n-1. 

The nodes x, (9) are the roots of the Hermite 
polynomials H,,(x) of degree n. 

The weights A, and the nodes x) are 
symmetric with respect to the origin x=0: 


(n) _ (a) (ny) _ — _(n) 
ae ~ ee ee 


n-k+1 


1* 
1* 


GAUSSTAN-LAGUERRE QUADRATURE FORMULA 


*/QA4 
*/QAS 


PRR RRO OR BO RRR RR BRR RO ROR ROR BR ROR A a I OR A RC A A RC A He IE IE QA 4 
PROCEDURE (FCT+Y)9.~ 
DECLARE 


QA4 
QA4S 


FCT ENTRY FETUPNS. QA4 
(BINARY FLOAT), /*SINGLE PRECISION VERSION /*S#*/QA4 

/* (BINARY FLOAT (53)),% /*DOUBLE .PRECISION VERSION /*D*/0A4 
(X,Y) QA4S 
BINARY FLOAT,. /*SINGLE PRECISION VERSION /*S*/QA4% 
BINARY FLOAT (53) 9. /*DOUBLE PRECISION VERSION /*D*/QA4 
=8.588635689012034E+00,. QA4 
=3.992081444227352E-04*FCT(X) »- QA4 
=3.9269635C1L358287E+00,. QA4 
=Y+3.415596601482695E-O02*FCT(X) 4 QA4 
=1.339097288126361E+00,. QA4S 
=¥+4.156046516297838E—-O1*FCT(X) >. QA4 
=1.453035215033171E-Ol;y. QA4 
=V¥+1.322294025116483E+O0*FCT(X)y- QA4S 
/*END OF PROCEDURE QA4 */QA4 


m<«x%<*«* <x <x 


QAB.. QA8 
[J RRRRRE RR EARL REE KEK ERR AR EGR RE REE REESE REAR ER EAR RE RAKE QA B 
*/OA8 

INTEGRATION OF A’GIVEN FUNCTION BY ASSOCIATED 8-PDINT */QA8B 
GAUSSTAN-LAGUERRE QUADRATURE FORMULA */QA8 

* */QA8 
PARR ROR HR A ROR BK RO ER RO RE RRR RR RR I RE RO IO ROE EE RE HARARE OA B 
PROCEDURE (FCT+Y)+.~ QA8 
DECLARE QA8 
FCT ENTRY RETURNS QA8 

(BINARY FLGAT), /*SINGLE PRECISION VERSION /*S*/0AB 

/* (BINARY FLOAT (53)), /*DOUBLE PRECISION VERSION /*D*/QA8 
(XX) QA8 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/QA8 

BINARY FLOAT (53), /*DOUBLE PRECISION VERSION /*D*/QA8 

LY BINARY FLOAT (53), QA8 

I BINARY FIXED, QA8 

X(L6) BINARY FLOAT (53) STATIC E{NITIAL OAB 


(2.198427284096265E+01, 
1.497 262708842639E+0} y 
1.009332367522134E+01; 
6 -483145428627T1LTOEtO0, 
38094763 6148490 7E+ 00% 
1.965 11363503142 8E+00, 
66772490876492892E-Ols 


5 «3096 14948022364E-1C, 
4 .641961689730421E-07, 
5423720185075 763E-C5,5 
1. 864568017248361E-03;, 
2-576062307T101995E-02, 
1.6762008279T971L7E-Cls 
526129491 70570674E-Ol, 


QA8 
QA8 
QA8 
QA8 
QAB 
QA8 
QAB 


7.479188259681827E-02, 1.015858958033227E+00),. QAB 
=O,;. ; QA8 
DO I=1 TO 15 BY 29. ; QA8 
XX =X(1I),. QAB 
LY = =LY+XC 141) ¥*FCT(XX) 9. ; QA8 
END; .- : QAB 
=LYr. QA8 

/*END OF PROCEDURE QA8 


QAl2.. , QA 12 
73 2 fia RI a I i ROR Ga OR a aa dm gogo de ii aa ok 7 QA 12 
*/QA12 
*/QA12 
*/QA12 
*/QAL2 
73 Gia tO aOR ono ok dk eK RK / OA 12 
PROCEOURE (FCT+Y)+. QAlL2 
DECLARE QA1L2 
FCT ENTRY RETURNS , QAL2 

(BINARY FLOAT), /*SINGLE PRECISION VERSION /*S*/QA12 

/* (BENARY FLOAT (53)), /*DOUBLE PRECISION VERSION /*D*/QA12 
(XX,Y) QAl12 

BINARY FLOAT: /*SINGLE PRECISION VERSION /*S*/QA12 

-BINARY FLOAT (53), /*DOUBLE PRECISION VERSION /*0*/O0A12 

LY BINARY FLOAT (53), QA12 

I BINARY FIXED, QOAl12 

X(24) BINARY FLOAT (53) STATIC INITIAL QA12 


INTEGRATION OF A GIVEN FUNCTION BY ASSOCIATED 12-PO0INT 
GAUSSTAN-LAGUERRE QUADRATURE FORMULA 


*/O0AB 


(3.619136C3606156CE+01, 
2-T6611C08779846C9E+O1, 
221396755 93616611E+01, 
1.643219508767531E+01, 
1.239044796380947E+01 + 
9 -075434230961203E+00, 
6236997 5388030635E+00, 
4.198415644878413E+00, 
2. 509848097232128E+00, 
1.2695899401C3961E+00, 
4.545066815637803E-Ol» 
5.036188911729395E-02, 
=05.6 

00 I=1 TO 23 BY 2+¢. 

XX =X(I)». 


LY =LY+X(I+1)*FCT(XX) >. 


END,. 
=LYee 


3.328736992978218E-16, 
1.316924048615634E-1l2, 
6 -092508539975128E-10,¢ 
8.037942349882859E-08,% 
4.3164914098C4667E-06, 
1.137738327280876E-04, 
1.647384965376835E-03, 
1.409671162014534E-02, 
7+489094100646149E-02, 
22554792435691183E-Ol, 
5.723590706928860E-O ls 


8.538623277373985E-Ol) >. 


7*END OF PROCEDURE QA12 


QAl2 
, QAL12 
OA12 
QAl12 
QA12 
QA12 
QAl2 
QAl2 
QA12 
QAl2 
OA12 
QA12 
QA12 
QOA12 
DA12 
QA12 
QA12 
QA12 
¥*/OA12 
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QA16.. QA16 10 
AOE ORO ER EE EAHA OA 16 20 
1% */QA1L6 30 
/* INTEGRATION OF A GIVEN FUNCTION BY ASSOCIATED -16-POINT */QA16 40 
7% ’ GAUSSITAN-LAGUERRE QUADRATURE FORMULA */QA16 50 
+s */QA16 60 
[RRR RRE LAER EAA EERE REALE AEE AE EEE AERA I AER AR GATE EE AEE EE ERE EERE EEE / OA LG 70 
PROCEDURE (FCT+Y)_. QA16 80 
DECLARE QA16 90 
FCT ENTRY RETURNS QA16 100 


(BINARY FLOAT), /*SINGLE PRECISION VERSION /*S*/0A16 110 


4% (BINARY FLOAT (53)), /*DOUBLE PRECISION VERSION /*D*/QA16 120 
- OUXX,Y) * QAI16 130 
BINARY FLOAT, /*SINGLE. PRECISION VERSION /*S*/QA16 140 

1* BINARY FLGAT (53), /*DOUBLE PRECISION VERSION . /*D*¥/QA16 150 
LY BINARY FLOAT (53), QA16 160 

I BINARY FIXED; QA16 170 
X(32) BINARY FLOAT (53) STATIC INITIAL _ QAL6 180 
(5-0777223877537 C8E+01s 1.462135285476832E-22, QA16 190 
4.10816665254912CE+01y 1.846347307303658E-18, QA16 200 
3.37819 704882261 7E+01, 2 -394688034185697E-15, QA16 210 
26783143821132868E+01 » | 8 -430020422652895E-13, QA16 220 
26282130069352521E+01y 1-186658292679328E-10, QA16 230 
1.85377431786C669E+01, 8.197664329541793E-09, QA16 240 
1.485143134180125E+01, 3-148335585091188E-07, QA16 250 
1.167703367397596E+01, 7.301170259124752E-06, QA16 260 
8.955001337723390E+00, 1.083316812363997E-04, QA16 270 
66642215179741444E+00; 1.072536731055944E-03, QA16 280 
4-T06T26707T667587E+06, 7.309780653308856E~03, QA16 290 
3124601050 702144E+00, 3.510685 766314686E-02, QA16 300 
1.87793 15C TE96074E+001 1.209162619118252E-01, QA16 310 
9.535531553908655E-Oly 3.025394681532850E~-01l, QA16 320 
34422001560109477E-01, 5» 549162846050598E-01, QA16 330 
36796291457531345E-025 7-504767051856048E-Ol) 46 © QA16 340 

LY =0>. QA16 350 
0O I=1l FO 31 BY 29. QA16 360 

' XX =X(I)y. QA16 370 

LY =LY+XCI +1) *FCTIXX) 2. QA16 380 
END». QA16 390 

Y =LY9- “QA16 400 
END+. /*END OF PROCEDURE QA16 */QA16 410 


QA24.. QA24 
REE AHI III RII III II II I IIE IDI III IOI OI Aa IO AAR III ATA AIO QA 24 
1% */QA24 
/* INTEGRATION OF A GIVEN FUNCTION BY. ASSOCIATED 24~-POINT “*/QA24 
/* GAUSSTAN-LAGUEFPE QUADRATURE FORMULA -*/QA24 
/* */QA24 
De OI OI IO i RII II OIC IR I IOI a RR aig OA tar FORGO HOR AR IR ROCHE QA 2 4 
PROCEDUPE (FCTsV)_. QA24 
DECLARE QA24 
FCT ENTRY RETUFNS- QA24 

(BINARY FLOAT), 1*S*/QA24 

. 1% (BINARY FLOAT (53))4 /¥*D*/QA24 
(XX,Y) QA24 

BINARY FLOAT, 1*S*/QA24 

/* BINARY FLOAT (53), 1*0*/QA24 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


/*SINGLE PRECISION VERSION 
/*DOUBLE PRECISION VERSION 


ODECLA 


DECLA 


LY BINARY FLOAT (53), 
I BINARY FIXEDs. 
RE 


X(24) BINARY FLOAT(53) STATIC INITIAL ( 


8.9055628081995C41E+01 y 
6-020666696305722E+01 
4.637697955754013E+01 
3-565370351632821E+01, 
207001406C5647236E+01» 
1699274258 7524246E+01» 
1.415058618728576E+01, 
9+49409 5330026488E+00, 
5 «840733271323608E+00, 
32111652455147713E+00, 
1.251740632362746E+0Cy 
2-6 291023164926243E-01, 
PE 

W(24) BINARY FLOAT(53) 
16587110292154799E-35, 


~7-6370072166301340E-27,% 


63 TETT4E4TOLO2TTE—21,4 
2-630319245316817E-16, 
1-4C93865163 09178E-1L2, 


1.5€6093499C 33076E-09;, . 
-4e937317T9873395C1E-O7y 


5.057198C55496978E-05,% 
169127846 329638831E-03, 
2-888992314996220E-021 
128364459415 85704E-01 + 
5.079230853295182E-0ls 
=O. 

DO I=1 TO 24,. 

XX =X(I)_6 

LY =LYtwW(1) *FCT(XX) 9. 
ENDy. ; 
=LY9. 


Purpose: 


QAn computes the integral value Y fe 


6.906860197530437E+01, 
5 0279543252728363Et01, 
420711598 18554311E+Ol, 
3.110646470904657E+401, 
2-328793282487992Et01, 
1.68896719285271 LEtO1,» 
1.169069592605607E+01, 
725477046 80023454E+00, 


 4.364283076935306E+00, 


2-975112909852381E+00, 
6.372902787326688E-Oly 
2-543799658568936E-02 ) 


“STATIC INITIAL ( 


1.196922538662776E—-30, 


1L.112915493780457E-23,y 


1.746031920237335E-18, 
22395179730958359E-14,% 
56305930 75676338E~-L1L, 
3-245028271791540E—-08, 
5 -694517383469696E-06, 
35030086 3602345 7E-04, 


. 863060098 23955105E-03, 


8.09593 5396920770E-02% 
3.384089438912822E-Ol 


~6.220020607559262E-C1)y. 


/*END OF PROCEDURE QA24 


QA24 
QA24 
QA24 
QA24 
QA24 
QA24 
‘QA 24 
QA24 
QA24 
QA24 
QA24 
QA24 
QA 24 
QA24 


QA24. 


OA24 
QA24 
QA 24 
QA24 
QA 24 
QA24 
QA24 
QA24 


QA24 


QA24 
QA24 
QA 24 
QA24 
QA24 
QA24 
QA24 
QA24 
QA24 
QA24 
QA24 

_ QA24 
© ®/QK24 





for a given function FCT(X), using associated | 


Gaussian-Laguerre quadrature formulas. 
Usage: 
“CALL QAn (FCT, Y); 


FCT - 
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* 


ENTRY 


Given procedure : for the sorputslion of the 


function values. This procedure must be 
supplied by the user. 


Usage © 

FCT(X); 

FCT(X) - BINARY FLOAT [(53)] 
Resultant function value. 
BINARY FLOAT [(53) ] 
Given argument value. 


x - 


BINARY FLOAT ((53)] 
Resultant integral value. 


Remarks: 


The n in the name QAn indicates the number of nodes 
used for the calculation of Y. 


Method: 


Quadrature formulas of Gauss-.Laguerre are used 
for the evaluation of the integral value. 


For reference see: 
one Cassatt, )_Jaehnig, aL "Tables for the 


Evaluation of f oe e * £(x) dx by Gauss- Laguerre 
Quadrature, MTAC, vol. 17, No. 83 (19638), pp 245- 
256. 


Shao, Chen, Frank, "Tables of Zeros and Gaussian 
Weights of Certain Associated Laguerre Poly- 
nomials and the Related Generalized Hermite 
Polynomials", IBM Technical Report TR 00.1100, 
March 1964, pp. 15-16, 


-Mathematical Background: 


Formulas of Gauss-Laguerre are used to compute 


; e* f(x) dx 
0 Vx 


Let n denote the number of nodes used for the 
calculation of the integral value y. 
The value y is approximated by a weighted sum of 


function sar 


-> A eG ed. 


The value yo) is exact whenever f(x) is a poly- 
nomial of degree less than or equal to 2n-1. 
The nodes x), (0) are the roots of the associated 


: Laguerre polynomials LV 2) (x) of degree n. 
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Numerical Differentiation 
Differentiation of Tabulated Functions 


® Subroutine DGT3 


OGT3.. DGT3 
© Y RRR AR RM MRK a a a a RO RRO OR ROK ROR EK a RK FOR ak toto ak ae kok oka eK SD GTA 
/* ; */DGT3 
/%* DIFFERENTIATE A TABLED FUNCTION USING LAGRANGIAN */O0GT3 
1% INTERPOLATION FORMULA, DEGREE 2 *x/DGT3 
/* */D0GT3 
TRAM MH HH BAH HH HE A ee ae ee he eh Ok 2 a ak ke kek tek ge kok ae tok teak doko do Kook gkko eK ID GTZ 
PROCEDURE( XsVxZyDOIM) ye DGT3 
OECLARE DGT3 
CX0%) eVC%) e ZU *) pXAeXBeXCy OGT3 
XBA,XCByVArYB,YC »QBA,QCB) ; DGT3 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/DGT3 

BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/DGT3 

(OIM,T BINARY FIXED, CGT3 

LERR CHARACTER(1)¢ 0GT3 

ERROR EXTERNAL CHARACTER(1),. DGT3 

IF DIM GE 3 “*TEST SPECIFIED DIMENSION */0GT3 
THEN OO;. OGT3 
LERR ="G',. S*INIT. LOCAL ERFOR INDICATOR */DGT3 

XB =X(3)9- OGT3 

=Y(3),. ; OGT3 

=X(1l)eo-6 OGT3 

=V(1)_. ; OGT3 

=XB-XC, OGT3 

IF XCB8=0 /*TEST MONOTONY OF ARGUMENTS x/O0GT3 

THEN OO;. OGT3 

LERR ='1',. : /*NON-MONOTONIC ARGUMENTS  */0GT3 

XCB =LE-30,. /*CHANGE XCB TO 10**(-30) */DGT3 

END;. D0GT3 
=(YB-YC)/XCB,. /*COMPUTE OIVIDED DIFFERENCE */DGT3 

DO I =2 TO DIM,. 0GT3 

QBA =QCB,. /*SAVE DIVIDED DIFFERENCE */0G6T3 

XBA =XCB,. /*REPLACE XBA BY X(I-1L)—-X(1-2) */0GT3 

=XBo. /*REPLACE XA BY X(I~2) */D0GT3 

=XCoe /*REPLACE XB BY X(I-1) */DGT3 

=X(IT) ye J*SET xC TO X(T) */DGT3 

=YBo. /*REPLACE YA BY Y(I-2) */DGT3 

=YO>. “7*REPLACE YB BY Y(I-1) */DGT3 

HV(I)s. /¥*SET yc BY Y(T) */O0G6T3 

XCB =XC—XBy. /*REPLACE XCB BY XC T)—XC(I-1) */0G6T3 

IF XCB*XBA LE O OGT3 

THEN LERR ='1',. /*MARK NON-MONOTONIC ARGUMENTS */0GT3 

IF xCB=0 0GT3 

' J*CHANGE XCB TO 16**(-30) */O0GT3 
/*COMPUTE DIVIDED DIFFERENCE */DGT3 
/*REPLACE XA BY X(1I)—X(1I-1) */D0GT3 
OGT3 

/*CHANGE XA TO 10**(-3C) */0GT3 
/*COMPUTE DIVIDED DIFFERENCE */OGT3 
/*STORE DERIVATIVE VALUE Z(1-1)*/DGT3 
a: OGT3 

/*STORE DERIVATIVE VALUE Z{(DIM)*#/DGT3 


THEN XCB =1E-3Cs. 
QCB =(YC-YB)/XCB;. 


=1E-309. 
YA  -=4YC~YA)/XAy. 
ZUI-1)=QBA-YAtQCBy 


END;. 
Z(DIM)=QCB-QBA+YA,. 
END, . OGT3 


ELSE LERR ="2',. /*ERROR IN SPECIFIED DIMENSION */0GT3 
ERROR=LERRy. OGT3 
END. /*END OF PROCEDURE OGT3 */0GT3 





Purpose: 


DGT3 computes a vector Z = (Z1, »++s Zp) of 
derivative values, when vectors X = (xq, ee Xp) 
of argument values and Y = (yy, Yo, »+*sY¥py) OF 
corresponding function values are given. . 


Usage: 
CALL DGT3 (X, Y, Z, DIM); 


X(DIM) - BINARY FLOAT [(53)] | 
_ Given vector of argument values. — 

Y(DIM) - BINARY FLOAT [(53)] _ 

Given vector of function values. 
Z(DIM) - BINARY FLOAT [(53)] 

Resultant vector of derivative values. 
DIM - BINARY FIXED | 7 

Given dimension of vectors X, Y and Z. 


Remarks: 


If no errors are detected in the processing of data, 
the data indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions 
that may be detected: 


ERROR='1' means non-monotonic argument values; 
that is, for some i, (xj-Xj_4)° (Kj4.4-%) is 
less than or equal to zero. 

ERROR='2' means DIM is less than three. 


Vectors Z and Y may be identically allocated, 
which means that the given function values are re- 
placed by the resultant derivative values. 


Method: 


The resultant value Zs is calculated as the derivative 
of the Lagrangian interpolation polynomial passing 
through points i-1, i, it 1, at argument Xie 


el aed a cs Od 


1 xX,-xX, x. -xX. X. - xX 
1 i-l i+1 i 


es as 
for i= 2, 3, ..., DIM-1, and corresponding formu- 
las for z 


1? “DIM” 
For reference see: 
F. B. Hildebrand, Introduction to Numerical 


Analysis. McGraw-Hill, New York-Toronto- 
London, 1956, pp. 64-68. 


Mathematical background: 


For i=1,..., n-2 we must find a;, b;, and c; 
such that 


| 2 
Vy = + + 
y; (x) aX bx Cc. 


passes through (xX, y,)> (x and (x, 


iva? Yin)? 2° 
Jig)? 


The desired derivative values Zi. are given by: 


= 7 + ifi<=r 
yi &) 2a 5X) b, ifi=l 
— ! — 1 | — ge =] 
Z. Yi) 2a. 4%: + bea if i= 2, ,n 


I] 
5 


t _ fe 
yn-2%,) 2a _oXy + b,-2 if i 
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An easy computation yields: 


ey, See. Tey 
“2 A Bi. Fee 


Youd Vue yp Mie MG 
ZC ——— $F$ ——————— _ - ————_ if i=2,...,n-l 


ho eye: Re (ee aed 
YY 4 VV 4g Ya 
— 1 . a 2 _ a = 2 ‘fi=n (1) 
“no on-l on n-2 n-1 n-2 


Assuming that the vectors X and Y represent a por- 
tion of a three-times-differentiable function, Zz. in- 
volves a truncation error T; where: 


5 (x, -¥ Mee (E,) i= 2 


Te go x _)&, ay (E) if i=2,.0<, 0-1 
ce tr bah | 
6 Bn Sno) Sy Sy-yY—(E,) tf ten 


and €. is in the closed interval determined by the 
three argument values used in computing Zi i= 
Levees 


Programming Considerations: 


The given table should represent a single-valued 
function. Non-monotonic arguments may cause du- 
bious derivative values. If any difference (x;-xj-1), 


(i447 


X;), (Xj41-%j-1) is zero, it is replaced by 10730, 


® Subroutine DET3 


DET3.-« DET3 10 


(eR RECO ROR StI OR to Rok Boi IIR a i tok ie oii i oii oii iat toto sk tok tok tok eke /OET3S 20 
/% */DET3 30 
(* DIFFERENTIATE AN EQUIDISTANTLY TABLED FUNCTION USING */DET3 40 
(% LAGRANGIAN INTERPOLATION FORMULA, DEGREE 2 */O0ET3 50 
/% */DET3 ‘60 
(DRG ROIOIOR CR IGG ROR RGR RIO CRO IIR RO RR RR ROR BOR AOR RR IE I AOR ER HOR KR EERE OETZ = 70 
PROCEODURE(HsY¥sZeDIM)y. DET3 80 
DECLARE © DET3 90 
CH, Y(*) 520%) s¥AyYByYCyHH) DET3 100 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/DET3 110 


/* BINARY FLOAT(53) , /*DOUBLE PRECISION VERSION /*D*/DET3 120 
(DIM, 1) BINARY FIXED, DET3 130 
ERFOR EXTERNAL CHARACTER(L) >». DET3 140 | 

IF DIM GE 3 /*TEST SPECIFIED DIMENSION */DET3 150 
THEN DO,. DET3 160 
IF H NE O /*TEST SPECIFIED INCREMENT */DET3 170 

THEN DOs. DET3 180 

HH  =<HtHy. DET3 190 

YC =YCL) 9. DET3 200 

YA =YC-¥(2)9. | DET3 210 

YB  =Y¥(3)+YA+YAtYAy. /*MODIFICATION YB = YLO) #/OET3 220 

DO I =2 TO DIMy. DET3 230 

YA =YBye /*REPLACE YA BY Y(I-2) */DET3 240 

YB =YCye /*REPLACE YB BY Y(I-1) */DET3 250 

YC -=YV(L) 96 /*SET YC TO YCT) */DET3 260 
Z¢1-1)=(YC~YA)/HHy. /¥*SET ZCI-1) TO (Y(1)-YCI-2)/2H*®/DET3 270 

ENO». DET3 280 

=YC-YBy DET3 290 

7OIM)= (YA-YB+¥C /*ZCDIM)=(Y(DIM-2)-4*¥(DIM-1) */DET3 300 

+YC+YC) /HHy. /*+3*Y (01M) ) 28H */DET3 310 

ERRMR="0',. /*SUCCESSFUL OPERATION */DET3 320 

END). DET3 330 
ELSE ERROR='1"y. 7*ERROR IN SPECIFIED INCREMENT */DET3 340. 
END».  DET3 350 

ELSE ERRGR='2'y. /*ERROR IN SPECIFIED DIMENSION */DET3 360 
ENDy. /*END OF PROCEDURE DET3 */DET3 370 


Purpose: 


DET3 computes a vector Z = (Z., Zo, woes Z ) of 
DIM 
derivative values, given a vector Y = (Y,> Yoo eves 
Yom) of function values whose components y; cor- 
respond to DIM equidistantly spaced argument 
values x. with X-X, 4 = hfori=2,..., DIM. 


Usage: 
CALL DETS3 (H, Y, Z, DIM); 


H - BINARY FLOAT [(58)] 

Given increment of argument values. 
Y(DIM) - BINARY FLOAT [(53) ] 

Given vector of function values. 
Z(DIM) - BINARY FLOAT [(53)] 

| Resultant vector of derivative values. 

DIM - BINARY FIXED 

Given dimension of vector Y and Z. 


Remarks: 


If no errors are detected in the processing of data, 
the data indicator, ERROR, is set to zero. The 
following constitutes the possible error concious 
that may be detected: 


means DIM is less than three. 
means H is equal to zero. 


ERROR='1' 
ERROR=!2! 


Storage allocation for the vectors Z and Y may be 
identical, which means that the given function values 
are replaced by the resultant derivative values. 
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Method: 


The resultant value Zz, is calculated as the derivative 
of the Lagrangian interpolation polynomial passing 
through the points i-1, i, itl at argument x;. 


1 _ 
z= on (Yo4 7 ¥y-y) for i= 2, 3, ..., DIM-1 


and corresponding formulas for Z49 Zone" 


For reference see: 


F. B. Hildebrand, Introduction to Numerical 
Analysis, McGraw-Hill, New York-Toronto-London, 
1956, pp. 82-84. 


Mathematical Background: 


The procedure is described under subroutine DGT3, 


but here we have the additional relation x. - x, yb 
a constant, for i= 2, ..., n. This leads to the 


following expression for Z.: 


1 ihe 
oh (“Yo + 4Y, - 3y,) if i=1 


Zz. = ifi=2,...,n-1 (1) 


i . 
in) on Vind 7 Yi-d) 
+ (gy -4 + if i=n 
2h Vn Vn-1 Vn-2) 


Assuming that the vector Y represents the 
function values of a portion of a three-times- 
differentiable function, 2; involves a truncation 
error T; where: — 


h? 
Spit) | re 


2 
af Sh ae a 
fl N y (E.)s é. € Lx, 4 x41: if i=2, : oe 1D 1 


6 
ne | | | 
noi Seitecs 
3 Y (&),6 € Lx 9 x4 if i=n 


In addition to these truncation errors, roundoff 
errors may be of considerable magnitude. Supposing 
that each of the ordinates y; can be in error by + ¢; 


e>0, the magnitude | R; | of the corresponding error 
Ry in the calculation of Zz, can be as large as: 








4€ ae 
— ifi=1,n 
[h| 
R.| = 
i 
~ € 
= ifi=2,...,n-l 
|| 


Since small truncation errors generally require 
small} h} , while small roundoff errors generally 
require large |h|, it is reasonable to choose h so 
that| T;| ~|R,| . | 

If M = sup y''! (é), where € € [x,, x,], andif . 
we regard only the inner points X5,...,Xp-1, we 
find that 


h_. w+1.8 34 f e/M 
optimum 


and the magnitude | E, | of the total possible error 
E. in Zi is given by: | 


3.3 3 feu if i=1,n 
dire oA ont 


| 


if i=2,...,n-l 
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® Subroutine DETS5 


DET5. DETS 
HEGRE SII EAU OCI CID IEC CI OCI ISHII IO oii i ok aceite / DETS 
*/DETS 

DIFFERENTIATE AN EQUIDISTANTLY TABLED FUNCTION USING | */DETS 
LAGRANGIAN INTERPOLATION FORMULA, DEGREE 4 */DETS 

*/DETS 

JDC CII ICO I I aC aI or i igioi moi toiciok tek took ok dub fof dai iotaiokaicioi tolok ited tetott JOE TS 
PROCEDURE(H,Yy2,DIM)9- DETS 
DECLARE DETS 
(Hy Y(%*),20%) yYAx YB: Y¥CeYOe YE, HH) DETS 

BINARY FLUAT, /*SINGLE PRECISION VERSION /*S¥*/DETS 

BINARY FLOAT(53),% /*O0OUBLE PRECISION VERSION /*D*/DET5 
(DIM,TIBINARY FIXED, DETS 

EPFOR EXTERNAL CHARACTER(1),. : NETS 

IF DIM GE.5 /*TEST SPECIFIED DIMENSION */OETS 


THEN DO,. DETS 
_ IF H NE O , /*TEST SPECIFIED INCREMENT */DETS 
THEN DOy. DETS5 
=12*H,. OETS 

=Y(1)y. DETS 


=Y(2),. DETS 
=Y(3)-YE,s. DETS 

=Y(4)96 DETS 

=¥(5) /*MODIFICATION YC Y¥(0) */DETS | 
+5%(YD-YB+YA+YA) ». DETS 
=5%*(YC-YD+YE-YD-YA) /*MODIFICATION YB Y(-1) */DETS 

+YBy. ‘DETS5 

pC I =3 TO DIM,. DETS 

YA | =YBy. /*®REPLACE YA BY Y(I-4) */DET5 

YB =YCy. /*REPLACE YB BY Y(I-3) */DETS 

YC =YD,. /*REPLACE YC BY Y(I-2) */DETS 

YG =YEq. /*®REPLACE YD BY YC(I-1) */DETS 

YE =HV(I) 9. /*SET YE TO YC(T) */DETS 

Z(1-2) =(YA-YE+ /¥*Z(1-2)=(¥(1-4)-¥( 1) + */DET5 
(YD-Y8)*8)/HH, ./*#8*(Y (I-1)-Y(I-3) )/12H */DETS 

END,. DETS 

YA =YA-6*(YB-YC DETS 
+YD-YC+YO-YC) +. DETS 
Z(DIM-1)=CYE-YO+YE-YD /*COMPUTE LAST TWO DERIVATIVE */DETS5 

; +YE=-YA)/HH,. /*VALUES */DETS 
Z(DIM)=(YAtYA4YAFYBtY3B. a? DETS 
+YE-6*YC+H1L2*( YE DETS: 
-YO+YE-YC) )/HH». , DET5 
ERPOR="0O',,. /*SUCCESSFUL OPERATION - */DETS 
ENDy. DETS 

ELSE ERPOR="1l',. /*ERROR IN SPECIFIED INCREMENT */DETS 
END,. ; DETS 
ELSE ERROR="2',, /*ERROR IN SPECIFIED DIMENSION */DETS 
END?. /*END OF PROCEDURE DETS */DETS 





Purpose: 


DET5 computes a vector Z = (z Zio Zoreres ZDIM) of 
derivative values, given Y = (y, » Voseees YpIm) of 
function values whose ompenents correspond to 
DIM equidistantly spaced argument values xX with 
X.-X, 4 = h. 


Usage: 
CALL DET5 (H, Y, Z, DIM);: 


BINARY FLOAT [(53) ] 


H = 

Given increment for argument values. 
Y(DIM)- BINARY FLOAT [(53)] 

Given vector of function values. 
Z(DIM)- BINARY FLOAT [(53)] 

Resultant vector of derivative values. 
DIM - BINARY FIXED 

| Given dimension of vectors Y and Z. 

Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 

following constitutes the possible error conditions 
that may be detected: 


ERROR='1' means H is equal to zero. 
ERROR='2' means DIM is less than five. 


Storage allocation for vectors Z and Y may be 
identical, which means that the given function 

values are replaced by the resultant derivative 
values. 


Method: 


The resultant value Zs is calculated as the deriva- 
tive of the Lagrangian interpolation polynomial 
passing through the points i-2, i-1, i, i+1, i+2 at 
argument Xie | 


1 
Zz. op Wg 7 ye. ,) tori= 35 4, see, DIM-2 


ae corresponding formulas 10 Za2 Zs Zon? 
DIM 


For reference see: 


F. B. Hildebrand, Introduction to Numerical 
Analysis, McGraw-Hill, New York-Toronto- 
London, 1956, pp. 82-84. 


Mathematical Background: | 


FOREST cea n-4. we must find a. b. ? c., d,, and 
: ii 
e. such that 


y.(x) = ae a + ao + a +dx+te, 
i i- i i i i 


passes through (X,,)., Yj4j) for k = 0,..+,4. 
The desired derivative values z, are given by: 


= 3 2 
' = 4- 
y,&,) 4a,X, + 3b, x, + 20,%, d, 
ifi=1, 2 


3 2 
q = + +. 
Si yt 9 (x,) = 4a. ok: + 8b. 2%} 20; OX; dis 


if i=3,. ee ,n-2 
3 


x + 3b. S08 x +d 


ale. Ge ee | 
Yn-4 ) #44 i n-4°i n-4 i ~~ n-4 


if i=n-1, n 
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Using the fact that ae 
i=2,...,n, we get: 


1 
12h (-25y, + 48Y,, - 36y,, + loy, - 395) 


1 
— (-3y, - - + 
ton 8Y, ~ Wy, + 18yg - SY, + Y5) 


— 


ton Vq-2 ~ 894-1 + 8¥i 7 Vivo) 


i 


i-1l 


if i=l 


if i=2 


if 1=3,...,n-2 


- | - +1 + 3 
12h ( Vn-4 . Vass Pov a5 Pana y,)) 


if i=n-1 


a, 


Assuming that the vector Y represents the func- 


_ - + 25y. 
12h BY 4 16y,,-3 * 38Y 9 487.4 >Y,,) 


if i=n 


=h, aconstant, for 


Since small truncation errors generally require 
small |h|, while small roundoff errors generally 
require large | h|, it is reasonable to choose h so 


if M = sup y (é) 
é elx,,x] 


and if we regard only the inner points X9,..., Xpy-23 
we find that 


(1) hh. 22.1 ?ale/M 
optimum 


and the magnitude | Ej | of the total possible error Ej 
in z; is given by: ; 


9 Ol eM 


ifi=l1,n 


ie 2.5 Oat eM ifi=2,n-1 
1.4 > 4/eAM ifi=3,..., n-2 


tion values of a portion of a five-times-differentiable 
function, Zi. involves a truncation error T, where: 


no 


i 4 


ager (é,), 


i 


1 


4. 


V 
“BY (Ey) 


E, <lx x4 


ES cLx, >, 


ifi=l 


ifi=2 


j i= @oe# -2 
g.elx, 52X51 if i1=3,.65.n 


hiv | ae 
20 7 (Ey)? Sa SE a ae 


4. 


hv | ee 
= y(E&), € elx, yx J ifien 


In addition to the truncation errors, roundoff | 
errors may be of considerable magnitude. Supposing 
that the ordinates y, can be in error by+¢, €>0, _ 
the magnitude | R,| of the corresponding error R, in 
the computation of Zz. can be as large as: 











ifigli,n 


if i=2,n-1 


if i=3, eee n-2 
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Differentiation of Nontabulated Functions 


@ Subroutine DFEC 


OFEC. OFEC 

HEROS IADR IAEA CERO IIIA OE He he ote ae 2 fc ee ate ate ae te ic a aie ae a oe aie ae ake at ok a ae eae ok ke / OE EC 

*/DFEC 

COMPUTE DERIVATIVE VALUE OF A FUNCTION USING EXTRAPOLATION */DFEC 

METHOD ON CENTRAL DIVIDED OILFFERENCES */OFEC 

*xIDFEC 

TRA HR He a Re fe tee Re ae a fe a ake fc ke ke ke ie at ae af ak ake ake ak ai Xe ak a ae ake fe ate age ake ae ate atc ak af ae ae ak abe te ake abe ae ake at akc ak ae ac ok ak ok a oe te cok ak 7 OF EC 

PROCEDURE(UXysHyOPTyFCT »Z),_.~ OF EC 

DECLARE OFEC 

OX,Z He HHeHK epVelZsHly OFEC 

DA,DB»DZ,AUX{(5)) DFEC 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/OFEC 

BINARY FLOAT(53), /*DQOUBLE PRECISION VERSION /*D*/DFEC 

(KyM) BINARY FIXED, OFEC 

FCT ENTRY DFEC 

(BINARY FLOAT) /*SINGLE PRECISION VERSION /*S*/OFEC 

/*DOUBLE PRECISION VERSION /*D*/0F EC 

RETURNS(BINARY FLOAT), 7*SINGLE PRECISION VERSION /*S*/DFEC 

RETURNS( BINARY FLOAT(53))> /*DOUBLE PRECISION VERSION /*D*/DFEC 

(ERROR EXTERNAL» OPT)CHARACTER(1)». OFEC 

NE O 7*TEST SPECIFIED INTERVAL ; */DFEC 

DO>. DFEC 

HK yHL=ABS(H)». /7*SET Hl TO ABS(H) */OFEC 

IF OPT NE #G! 7*SHOULD OPTIMUM STEPSIZE Hl *xJDFEC 

THEN OO,;. /*BE GENERATED */DFEC 

; Vv =SE-l». 7*SINGLE PRECISION VERSION /*S*/DFEC 
V =5E-3,. 7*OQUBLE PRECISION VERSION /*D*/DFEC 2 

IF HK GT V : OF EC 

THEN HK =Vee . /*SET HK =MIN(V,ABS(H)) ¥/DFEC 

OB =ly. DFEC 

OA =ABS(FCT( X+HK) OFEC 

—FCT(UX-HK) )/2 96 DFEC 


(BINARY FLOAT(53)) 


IF DA GT HK DFEC 
THEN DB =DA/HK,y. TO MAX(1,ABS(T)) */ DF EC 
IF OA LT 1 DF EC 
THEN DA =ly. TO MAX(1,ABS(Y) */DFEC 3 
HK  =V*DA/DBy. DFEC 
If HK LT H1 , DFEC 
THEN HL = =HKy. TO MIN(V*DA/DB,ABS(H) )*/DFEC 
END,. DFEC 
=5e6 DFEC 
00 K =1 TO 54. DFEC 
HK = =(V/5) #HL ge HK TO H1L*®(6-K1/5 */DFEC 
LZ AUX (K) =( FCT (X+HK)- AUX(K) TO T(0sK) */DEEC 
FCT (X=HK))/ (HK+HK) 9 DFEC 
HH = 1/Vy. DFEC 
HK =Qy. DFEC 
DA =1630%. - DFEC 
DO M =K-1 TO 1 BY -1,. DFEC 
DB =DAy. OF EC 
HK  ‘=HK#tHHy. DF EC 
DZ  =(LZ-AUX(M))/  /*SET OZ TO: INCREMENT */DFEC 


(HK*C24HK)) >. DFEC 

DA =ABS(02Z),. DFEC 

IF DB LT DA /*TEST FOR DECR. INCREMENTS */DFEC 

THEN GOTO NEWK;. DFEC 
LZyAUX(M)=LZ+DZ>. “*SET ZyAUXCM) TO T(K-M 4M) */DFEC § 

END,. DFEC 

- DFEC 

V EV—-1ly. DFEC 

END,. DFEC 


Zz HLZy- DFEC 


ERROR="0',. /*SUCCESSFUL OPERATION */DFEC 
ENDy. OF EC 
ELSE ERRGR="1',. /*ERROR IN SPECIFIED INTERVAL */DFEC 
END». /*END OF PROCEDURE DFEC */DFEC 





Purpose: 


Given the argument X and the function FCT(X), 
defined in the closed interval [X-|H| , X+|HI ]. 


DFEC computes an approximation Z to the derivative | 


of the function FCT(X). 
Usage: 
CALL DFEC (X, H, OPT, FCT, Z); 


X- BINARY FLOAT [(53)] 
Given argument value. 
H- BINARY FLOAT [(53) ] 
Given radius of closed interval about X. 
OPT - CHARACTER (1) 
Given option for calculation of the stepsize. 
FCT - ENTRY 
Given procedure for calculating of function 
values, which must be supplied by the user. 


Usage: | 
FCT(T) 
FCT(T) - BINARY FLOAT C63)7 
Resultant function value. 
T- —S BINARY FLOAT [(53)] 
: Given argument value. 


Z- BINARY FLOAT [(53)] 
Resultant vee toa FCT(X). 


Remarks: 


OPT = '0' means maximum stepsize is set equal to 
H; otherwise, it will be calculated within procedure 
DFEC (for details see '' Mathematical Background"), 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitutes the possible error condi- 
tion that may be detected: 

ERROR = '1' means given H is equal to zero. 


Method: 


The approximation Z of the derivative is obtained by 
applying Richardson's and Romberg's extrapolation 
method to successively computed central divided 
differences, using function values in the closed 
interval [X-|H|, X+| al). 


For reference see: 


S. Fillipi and H. Engels, "Altes und Neues zur 
numerischen Differentiation", Elektronische 
Datenverarbeitung, iss. 2 (1966), pp. 57 - 65. 


Mathematical Background: 


Suppose, first, that y = y(t) is analytic at x; that is, 
y has a Taylor series expansion about the point x 
with radius of convergence R> 0. Let h be such 
that 0 <|h|<R. For each positive integer n 

a step size hj with 0 < h, <|h| is computed as de- 
scribed below, and a sequence hy of increments is 
generated, where 


b= seth for k=2,..., 0 





From the sequence (x-h;,, x+hy) of point pairs 
(k=1,..., n), the sequence of central divided 
differences 


oer ~y&~b,) for k=1,...,n (1) 


0,k 2h. 


£ 


is computed, which forms the first column of the 
triangular Romberg scheme. The central divided 
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differences T0,k represent the slopes of the secants 
S; in Figure 2. 





Figure 2, A sequence of secants for a given function y=y(t) and 
a given argument t=x for the case n=5,h > 0 


From the Taylor series expansions of y(x+hy,) 
and y(x-hy,) it follows that. 


a 4. 


k V 
Ton YOtS Vy @tEry &t ... 
for k=1,...,n 


so that, as an approximation to y'(x), To,k involves 
a truncation error of order hj- ; 

Knowing the two divided differences To,k and 
To,k+1» we are able to generate the extrapolated 
value 


se 4, a vo,kt1 1 0,k 
» Pee Sguieey —l 
1,k 
where (2) 
- Lg 
Ak G a n-k? 


T1k is a better approximation to y'(x) since 


| 1 1 4 vy 
a Fe en 
Ty pV) Br a ae yo 
. : . 1k | 
1 1 1 6 vii 
Tag te a (x) - 2... 
aie “HT 


which involves a truncation error of order he i 





If we also know To, k+2, We can generate 
Ty k+1 using equation (2), and further, we can com- 
pute the extrapolated value 


—— Pee Ae 


2,k 1,k+1 al 
2,k 
where 
Z 2 
46 ik sa es n-(k¥1)) 


which involves a truncation error of order no é 
Generally, the order of the truncation error is 

increased by 2 with each new extrapolation step; 

in particular, T; j will involve a truncation error of 

order : 


2it 2 
j 


h gp k= OF song aby Jody. ieeog te 


Figure 3 shows the arrangement of the T values 
in the triangular Romberg scheme. The T values 
are computed following the upward diagonals, using 
the general formula: 


eine eden 


ean ( a ey) 
(4) 


ae k-m_ Pet k-m+1 - 


for m=1,..., k-1 for fixed k, k=2, ...,n 


Truncation 
error 


omy) Om) | OM) | Oy) | Oy) 


Figure 3. The triangular Romberg scheme of T-values for the 


case n=5 
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Numerical experience shows that the accuracy 
of the results depends heavily on roundoff errors in 
the central divided differences To, ke Therefore, 
the choice of the absolutely smallest step size, hy> 
is based on 1 the following considerations. 


Let: 
1 in single-precision computation 
3 in double-precision computation 
ho = min (ne 10, | h|) | 
Set: 


1. | 
Y = @ (y&rh)) + y(x-h)) ) 
and 
moe (xth,) - y(x-h /h, 
a 0 y 0)? 


Y and T are approximations to y(x) and y'(x), 
respectively. | 
Assuming that the errors in the function values 


y(t) fort. [x- In|, x+|h J are bounded by 
aig. if|y|>1 
€ = 
fig if |y|<1 


formula (1) shows that the roundoff error in the com- 
_ putation of To,» is bounded by 


D 


e410 t[y|> a 
P n 
R(T, .)=—-= 
ve oe 10°P it|y| < 
h 
Nn. 


where D is the number of significant digits in the 
floating-point representation of numbers. Suppose, 
also, that we are willing to tolerate a roundoff error 


T1090 >°Y if|T|>1 
R'i(T, _) = 

0,n , | 
10 if|T| <1 


Then we must have R(To, n) SRUTo, n)» Which is 
satisfied when 


_ max(l, ly |) -V | ae 

n max(l, | TI ) ce | — ?) 
Finally we set 

h, = min(n-h, lhl) : (6) 


guaranteeing that the evaluation of the function 
y = y(t) is restricted to the closed interval 


Programming Considerations: 


Numerical experience shows that, because of in- 
creasing roundoff errors, it is generally fruitless | 
to perform more than five extrapolations. Thus, 
the subroutine uses n = 5, and it is therefore 
necessary only that y = y(t) be eleven-times dif- 
ferentiable, rather than analytic. It is easy to see 
that in the case n= 5, y = y(t) must be evaluated at 
twelve points in the closed interval [x-|h]|, x+ |h] ]. 
As previously explained, the computation of the 
T values is performed along the upward diagonals 
of the triangular Romberg scheme. Therefore, 
only a one-dimensional internal storage vector, 
named AUX, with five storage locations is necessary. 
Figure 4 shows the storage administration and the 
sequence of computations (numbers in parentheses). 





Figure 4. Storage administration and order of computation 


Each extrapolation loop, the computation of the 
elements on an upward diagonal, is terminated as 
soon as the absolute values of the differences be- 
tween adjacent diagonal elements stop decreasing, 
showing the influence of roundoff errors. The com- — 
puted T value that differs least in absolute value 
from its immediately preceding diagonal neighbor is 
the desired value Z. 
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-@ Subroutine DFEO 


OFEO.. OFEO 
7 FOR ROR RO tO a RO Ro kok ok ok takki ga actor i ak teatato goto tei iti i tek ka te te keto ek kk J DF EO 
/* */DFEO 
COMPUTE DERIVATIVE VALUE OF A FUNCTION USING EXTRAPOLATION */OFEO 

METHOD CN CNE-SIDED DIVIDED OITFFERENCES */DFEO 

*/DFEO 

TER RRR HR RB Re RC eR RR RR a RR a a ee eR eR a OR RO oe eK EK KK / DF ED 
PROCEDURE(XsH,OPT FCT 2) 9. DFEO 
DECLARE . DFEO 
(XeZeHs HK eHHe Ve YeH1, DFEO 
DA10BsDZ,AUX(10)) DFEO 

BINARY FLOAT, /¥*SINGLE PRECISION VERSION /#*S*/DFEO 

BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/DFEO 

(KeM) BINARY FIXED, OFEO 

FCT ENTRY DFEO 

(BINARY FLOAT) /*SINGLE PRECISION VERSION /*S*/DFEO 
/*DOUBLE PRECISION VERSION /*D*/OFEO 
RETURNS(BINARY FLOAT), /*SINGLE PRECISION VERSION /*S*/DFEO 
FETURNS(BINARY FLOAT(53)), /*DOUBLE PRECISION VERSION /*D*/DFEO 
(ERROR EXTERNAL »yOPT)ICHARACTER(1),.~ OFEO 
NE 0 /*TEST SPECIFIED INTERVAL . */DFEQ 


(BINARY FLOAT(53)) 


00;. DFEO 
Hi =H». OFEO 
Y =FCT(X) 9. 
IF OPT NE 'C! 
THEN DOy. 
Vv =5E-le. 
Vv =5E-3,. 


: DFEQ 
/*SHOULD OPTIMUM STEPSIZE HL */OFEO 
7*BE GENERATED */DFEO 
/*SINGLE PRECISION VERSION /*S*/DFEG 
/*DOUBLE PRECISION VERSION /*0*/DFEQ 
IF H1 LT C DFEQ 
THEN V =-Vee DFEO 
IF ABS(V) GT ABS(HL) OFEO 
THEN HH HHL. /*SET HH=SIGNCH) *MIN(V,ABS(H)) */DFEO 
ELSE HH =Vee OFEO 
DB =ABSUCFCT(X+HH) DFEO 
-Y)/HH),. OFEQ 
IF 0B LT l OFEO 
THEN DB =Hly. ; DB TO MAX(1,ABS(T)) */DFEO 
HK =(V+V)/DB,. DFEQ 
IF ABS(Y) GT 1 DFEO 
THEN HK =HK*ABSUY) 2. HK=2*V*MAX(1,ABS(Y))/D0B */OFEO 
IF ABSC(CHK) LT ABS(H1) DFEO 
THEN H1 =HKo. H1=SIGN(H) *MINCHK, ABS(H) )*/DFEO 
END;. DFEO 
=10+9. OFEO 4 
DO K =1 TQ 10,. OFEO 
HK =(V/10)*H1,. HK TO H1*(11-K)/10 */DFEO 
ZyAUX(K)=CFCTOX+HK)-Y) AUX(K) TO T(0+K) */DFEO 
/HK ye DFEG 
HH =1/Vs. DFEO 
’ HK =Coe : : , DFEO 
DA =1E3C,. OFEO 
DO M =K-1 TO 1 BY ~-l>. DFEO 
HK =HK+HHy « DFEO 
OZ =(Z-AUX(M)) OFEO 
JHKae /*SET OZ TO INCREMENT */OFEO 
DOB =DAy. DFEG 
DA =ABS(DZ)+. DFEO 
IF OB LT DA /*TEST FOR DECREASING INCREMENT*/DFEQ 
THEN GOTO NEWK,. DFEOG 
ZyAUX(M)=2+0Z>. /¥*SET Z,AUX(M) TO T(K-MyM) */DFEO 
END». OFEC 
OFEO 
V =V-1lye. DFEO 
END». DFEC 
EFFOS="C',, /*SUCCESSFUL OPERATION | */DFEO 
END,. . DFEC 
ELSE ERROR="1',, 7*ERROR IN SPECIFIED INTERVAL */DFEO 
END,. /*END OF PROCEDURE DFEO */DFEO 





Purpose: 

Given argument X and function FCT(X), defined in the 
one-sided interval [X,X+H], DFEO computes an 
approximation Z to the derivative. 


Usage: 


CALL DFEO (X, H, OPT, FCT, Z); 


X- BINARY FLOAT [(53)] 
Given argument value. 
H- BINARY FLOAT [(53)] 


Given length of interval. 
OPT - CHARACTER (1) | 
Given option for calculation of the stepsize. 
FCT - ENTRY 
Given procedure for calculation of function 
values, which must be supplied by the user. 


Usage: 
FCT(T) 
FCT(T) - BINARY FLOAT [(53) ] 
Resultant function value. 
T - BINARY FLOAT [ (53) ] 
Given argument value. 
Z- BINARY FLOAT [(53)]] 
Resultant approximation to ax FCT(X). 


Remarks: 


OPT = '0' means maximum stepsize is set equal to 
H; otherwise, it will be calculated within procedure 
DFEO (for details see ''Mathematical Background''). 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitutes the possible error condition 
that may be detected: 


ERROR = '1' means H is equal to zero. 


Method: 


The approximation Z of the derivative is obtained by 
applying Richardson's and Romberg's extrapolation 
method to successively computed one-sided divided 
differences, using function values in the closed 
interval [X, X+H]. 


For reference see: 


S. Fillipi and Engels, ''Altes und Neues zur 
numerischen Differentiation", Elektronische 
Datenverarbeitung, iss. 2 (1966), pp. 57-65. 


Mathematical, Background: 


Suppose, first, that y=y(t) is analytic at x; that is, 
y has a Taylor series expansion about the point x 
with radius of convergence R> 0. Let h be such 
that 0<|h| <R. For each positive integer n, 

a stepsize h, with 0 <|h,|<|h| is computed as de- 
scribed below, and a sequence hy; of increments is 
generated, where | 


n-k+ 1 


er n Ay 


for k= 2, ...,; N. 

From the sequence (x,xthj,) of point pairs 
(k=1,...,n), the sequence of one-sided divided 
differences 


y(xth,) - y(s) 


T fork=1,...,n (1) 
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is computed, which forms the first column of the 
triangular Romberg scheme. These one-sided 
divided differences To, k represent the slopes of the 
secants s, in Figure 5 in the case h> 0. 





tangent 


Figure 5. 


A sequence of secants for a given function y=y(t) and 
a given argument t=x for the case n=10,h > 0 


From the Taylor series expansion of y(x+hy,) it 
follows that 


h ae 
— xy! + —y!l! + yt! a 
TOOK y'(x) a (x) a1) (x) + 


for k=1, eee tl 


so that, as an approximation to y'(x), To, involves 
a truncation error of order hy. Knowing the two 
divided differences T0,k and T9,k+1, we are able 
to generate the extrapolated value 


Tot 
Bas 0,k+1 10,k | 
— os 9 9 

Pte MOL = A 


“1k 


where 


a ear ) 
1k n-k 


T1k is a better approximation to y'(x) since 








1 £ 2 
nat et en ae tt 
Tie 2 ge a ee 
a. 
ijk 
: | 
Mx) = 
t 
4 i, k <e k 


which involves a truncation error of order he ‘ 

If we also know To 1.19, we can generate 
T1,k+1 using equation (2), and further, we can com- 
pute the extrapolated value 





eT : Titel Sisk 
2,k  ~1,k+1 iS 
2,k 
where 
2 
404k aa n-(k+ iy) 


which involves a truncation error of order hp _ 
Generally, the order of the truncation error is 
increased by 1 with each new extrapolation step; in 
particular, Tj,j; will involve a truncation error of 
order 
hee, i=0,..., n-1,j=1,..., 0 


Figure 6 shows the arrangement of the T values 


in the triangular Romberg scheme. The T values 


are computed following the upward diagonals, using 
the general formula 


i ~T 
, _. nA m-1,k-m+1 ~“m-1,k-m 


m,k-m ~“m-1,k-m+1 m 
n-k+ 1 


(3) 
for m=1, ..., k-1 for fixed k, k=2, ...,n 


Tr 
: i 








Figure 6, 


The triangular Romberg scheme of T values for the 
case n=10 


Numerical experience shows that the accuracy 
of the results depends heavily on roundoff errors in 
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the one-sided divided differences To, k: Therefore, 
the choice of the absolutely smallest step size, h,, 
is based on the following considerations. 

Let: 


1 in single-precision computation 


Vo 
3 in double-precision computation 
Set: 
do = sgn(h) min (> 10’, |n|) 


T = (y(xthp) - y(s))/h, 


T is an approximation to y'(x). 
Assuming that the errors in the function values 
y(t) for t, [x,x+h] are bounded by 
-D : 
| y(x)| + 10 if |y()| > 1 
10°? if | yxy | <1 


equation (1) shows that the roundoff error in the 
computation of Tg » is bounded by 


aly(x)| 107” ifly@| > 1 
| 


Pees 
Pn 


2 
R(T) ‘ 4, ~ 


if | y(s) | <1 


where D is the number of significant digits in the 
floating-point representation of numbers. If we are 
also willing to tolerate a roundoff error 


oT 10 DT it) 


RUT, |) 
0,n 
| 2-10 PY |r| <1 


we must have R(To, n) <R'(To, n), which is 
satisfied when 


n = max(l, ly@l) , 49-¥ 


n max (1, |T]) (4) 
Finally, we set 


h ~ sgn(h)- min(n: |h, |, |h]) (5) 


guaranteeing that the evaluation of the function 
y = y(t) is restricted to the closed interval [x,x+h]. 


Programming Considerations: 


Numerical experience shows that, because of in- 
creasing roundoff errors, it is generally fruitless 
to perform more than ten extrapolations. Thus, the 
subroutine uses n = 10, and it is therefore 
necessary only that y = y(t) be eleven-times differ- 
entiable, rather than analytic. It is easy to see that — 
in the case n= 10, y = y(t) must be evaluated at 
twelve points in the closed interval [x,x+h]. 

As previously explained, the computation of the 
T values is performed along the upward diagonals 
of the triangular Romberg scheme. Therefore, 
only a one-dimensional internal storage vector, 
named AUX, with ten storage locations is neces- 
sary. Figure 7 shows the storage administration 
and the sequence of computations (numbers in 
parentheses). 


| AUx@) | Ty 937) T, (47) 
rem [0m [09] 
re [09 [0 [ 
me [rst [sO 
i 
Ed 
eae Pas [a fe 
altel 


Figure 7. Storage administration and sequence of calculations 


























Each extrapolation loop, the computation of the 
elements on an upward diagonal, is terminated as 
soon as the absolute values of the differences be- 
tween adjacent diagonal elements stop decreasing, 
showing the influence of roundoff errors. The com- 
puted T value that differs least in absolute value 
from its immediately preceding diagonal neighbor 
is the desired value Z. 
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Interpolation of Tabulated Functions. Wes 5 ane ee ee Ce a ee 1170 


ERROR="1'4. 1180 

ae . . a, GO TO IDENTLy. oe es | , 1190 

° IDENT.s. 1200 

@ Subroutine ALIM/ALIE ERROR='3'y. 1210 
So ee IDENT1.. : o - 1220 

I =I-lee 1230 


GO TO RETURN,. 1240 
STOP.. 1250 
ERROR="C'y. 1260 
KETURN.. 1270 
YVAL =VAL(T),. . 1280 
END?. 7*END OF PROCEDURE ALI 1290 


ALIM.. ALI 
ES CEPEE RT ERT ee Ue Oe RE Re Re TNS eC te Ohne TS aE? OTe NY KRRRKRRK/VAL T 
*/ALI 
ALTKEN SCHEME FOR INTERPOLATION OF FUNCTION VALUE . *JALI 
FROM GIVEN MONCTONIC TABLE */ALI ~ 
*/ALI 
PAR RR RAR RRR A A a A HE RA RH A a a A a aR AC I A aE EE He KZ AL T , 
PROCEDURE (X1Yy DIM, ORDER, EPS, XVAL +YVAL) 9 ALI 
DECLARE ALI Purpose: 
(DIM, IySoKoNo ITI pdb yJRyJdL og JIRy DIMS ORDER) : ALI 
BINARY FIXED). all 
(X08) V0) ARG CMINODIM, ORDER) ) »VAL(MIN(DIMy ORDER) ),XVALy ALI 


eee reece Rroe SL CECT arUrereohsy Be ee ALIM interpolates the function value YVAL for a 
’ x % e e e 
BINARY FLOAT (53), 7*DDUBLE PRECISION VERSION 7#D¥/ALi given argument value XVAL using a given table 
(ERROR EXTERNAL, SW) ‘ AL! ' ‘é 
CHARACTE® (15. | | | ALI (X, Y) of argument and function values. 
= ve /*MONOTONIC ARGUMENTS */ALI . 
ALI 





- ALI 

1 TO OIMy. /*COMPUTE “STARTING SUBSCRIPT J */AUT 
=ABS{XVAL-X(1)) 9. ¥ ALI Usage: 

IF DO LE D an ALI 

THEN 00,. ALT 

ALT 


ALT 270 CALL ALIM (X, Y, DIM, ORDER, EPS, XVAL, 


2 : . ALI 

ENDy. ALI YV 
AsARG(LI=XIS) 9. ” ALI AL); 
GO TO COM,. ALI n 


ALIE.. ALI 
SS HIOIS aii II SIGIO falolatliaiioiatoiol iol tal iiaioit taint taduetotetok saldek ick t del tolliakiiok alata tay AL | 


war ae} =X = BINARY FLOAT [(53)] 


ALTKEN SCHEME FOR INTERPOLATION OF FUNCTION VALUE */ALTI 


RSS coven p ae Peper , */ALT 360 Given vector of menotonic argument values. 


(BRR RSI RI 2a Oa tai tok doiciok i tokio lok do toi iota tok go took talk a tok doit tok / ALT 
ENTFY (XSTyDXeV,OIMeORDER,EPSyXVAL + YVAL)». ALI Y = BINARY FLOAT L(53) | 
Sw ="Et,. ALI 


ae eae LOE OUTCAST ANT RAGUCENTS e/AL 410 Given vector of table-function values. 
sane teries Ae 5 DIM a BINARY FIXED 


THEN co. FureONos ae Given dimension of vector X and Y. 


J =MAX(1e(XVAL—-Z1)/Z2+1.5),. C*COMPUTE STARTING SUBSCRIPT J */ALI 
Jo =MIN(DIMy J) 9. ALI ORDER - BINARY FIXED 


A, ARG(1)=Z1+FLOAT(J—-1) #22). ALT 


ALI 500 Given number of points to be selected 


ERROR="2',. ; _ ALT 


XS -=XVALy. ice | out of the given table (X, Y) 


DIMS =DIM,. ALI 


none | a EPS- BINARY FLOAT [(53)] 

’ = ye AL! : ; : 
Pact ea | ALT Given constant used as upper bound for 
oe ABS( FACT) ¢. ALI 

=MAXINs 1) 96 ALI the absolute error. 


OO I =2 TO Ny. /*TABLE SELECTION ite 

JJR =JStJRy.e /*TEST TF SUBSCRIPT IS GREATER */AL = 

IF JJR GE DIMS ' /*®THAN OIM OR LESS THAN ONE ee XVAL BINARY FLOAT [(53) J 

THEN GO TO LAB2,. : AL e ° 

We sous ALT Given argument to be interpolated. 
IF JJL LE 1 ALI 


eee LAB3,. as : YVAL = BINARY FLOAT L(53) | 
' =- 2296 “7 *A=(ARG(I-1L)—XVAL ) *DX */ALT i ‘ 
ELSE A =ASSIX(JJRCLI-XS) tf Resultant interpolated function value. 
~ABS (XC IIL—-1)-XS) 9.6 ALI 
IF A LE © /*TEST IF THE NEXT STEP IS TO */ ALI 
THEN GO TO LAB3>,. /*THE RIGHT OR TO THE LEFT */ALT 
7*STEP TO THE LEFT #/ALT Purpose: 
i =JL+1,. ALI 
3 sJ-JLy. — ve | | 
se TO CONTy. : 
Se. aap: Gere ge ee sae ALIE interpolates the function value YVAL for a 
oo , - = aur soc| given argument value XVAL using XST, the starting 
IF SW= ‘get Atl ° 
THEN A =Z14FLOAT(K-1)#22 4. . ALT value of the arguments, DX, the increment of the 
ELSE A =X(K) 96 ALI ee , 
foe ee | , ee argument values, and the vector Y of function values. 
IF SW='M ALI 3 
THEN DO,. ALI , 
DIST =ABS(FACT),. yo ’ : ALI 
If OIST LT OLSTL : ALI 
THEN GO TO IDENT,. /¥*ARGUMENTS NOT MONOTONIC */ALI Usage: 
DISTL=O1IST,. ALI 
END,. . ALI 
ARG(T)=Ay.e : ALI 


ODO TL. =L TO I-ly. — /#COMPUTE VAL) watt a0} CALL ALIE (XST, DX, Y, DIM, ORDER, EPS, 
Sa , ALI XVAL, YVAL); 


IF H =0 ALI 
THEN GO TC IDENT,. ALI 
VALI =(VAL(TI) *FACT-VALI ALI 


Sg tener ROL ae ace): XS Ts BINARY FLOAT [(53) ] 
VALID :VALUTD=VALT se AUT Given starting value of arguments. 
IF I GT 2 ALI : 


THEN DOs. | ALI DX - BINARY FLOAT [(58) | 


‘IF DELT2 LE EPS /*TEST ON ACCURACY */ALI 


THEN GO TO STOP,. . ALI 
IF I GE 5 ’ /7*SINGLE PRECISION VERSION /*S*/ALI - Given increment of argument values. 
IF I GE 8 /*DOUBLE PRECISION VERSION /*D*/ALI 

THEN IF DELT2 GE DELTL /*TEST ON OSCILLATION . JALIL 2 BINARY FLOAT [ (53) J 

THEN GO TO OSCIL,. ALI 


END». ae | Given vector of table-function values. 
OELTL=DELT2,. ALI 


END». | REND OF AITKEN-LOOP | #/ALI DIM - BINARY FIXED 


T- =Nye ALI : : 
Ae mS Atl Given dimension of vector X and Y. 
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ORDER - BINARY FIXED 
Given number of points to be selected out 
of the given table (X, Y). 


EPS- BINARY FLOAT [(53)] 
Given constant used as upper bound for the 
absolute error. 
XVAL - BINARY FLOAT [(53) ] 
Given argument to be interpolated. 
YVAL.- BINARY FLOAT [(53) ] 
Resultant interpolated function value. 
Remarks: 


ERROR='0' - means required accuracy could be 
| reached. 

ERROR='1' - means required accuracy could not 
be reached because of rounding 
errors. 

ERROR='2' - means accuracy could not be checked 

"because MIN (DIM; ORDER) is less 

than 2, or the required accuracy 
could not be reached by means of 
the given table (X,Y). ORDER 
should be increased. 

ERROR='3' - means two arguments in the argu- 
ment vector X are identical, or the 
arguments are not monotonic. 


In case ERROR="'0! and ERROR="2' the last inter- 
polated value for YVAL is returned. In case 
ERROR='1' and ERROR='3! the value prior to the 
last interpolated value for YVAL is returned. [ff, 
by a user error, ORDER is greater than DIM, the 
procedure selects only a maximum table of DIM 
points. In order to avoid errors, the user should 
check the correspondence between the selected 
table and its dimension by comparison of DIM and 
ORDER. 


Method: 


Interpolation is done by means of Aitken's scheme of 
Lagrange interpolation. 


For reference see: 


F.B. Hildebrand, Introduction to Numerical Analysis, 
McGraw-Hill, New York-Toronto-London, 1956, 
pp. 49-50. | 


Mathematical Background: 


Before starting Lagrange interpolation, a table 
(ARG, VAL) must be selected out of the given mono- 
tonic or equidistant table. This selection is done in 
two parts. In the first part, the subscript J of the 


argument next to the search argument XVAL is 
computed, using the following formulas: 


In case of equidistant table - 


-X 
Subscript J = integer part of va 


+ e 
Dx 1. 5) 


In case of monotonic table - _ 
Subscript J is searched for such that 


XVAL - X(J) |s|XVAL z xD |, 1 <I <DIM 


At each of the N = MIN (DIM, ORDER) interpola- 
tion steps, the procedure decides by comparison of 
distances whether the next step has to go to the right 
or to the left within the dimension of the given table. 

It is assumed that | X() - XVAL|>|X(J) - XVAL| 
for allI>J. Otherwise, ERROR='3' is returned. 

y; means VAL(i); x; means ARG(i). 

Using the formulas 


- y; (x - XVAL) - vi. (x, - XVAL) 


isn x. ie 
‘ n 1 


Y4,2,...,m,n= 1,2,...,m (x, -XVAL) 


~%1,2,...,m-1,n (x_-XVAL) 
i . Xn) 


it is possible to generate, by row, the following 
triangular Aitken scheme: 


414 


*9 %2 41,2 


*3 43 41,3 71,2,3 


*4.V4.%1,4%1,2,471,2,3,4 


e e 


“nn %1,n%1,2,n°1,2,3,n’ °° * 71,2,3,. 2.50 
All resultant values of row I are stored in VAL(i): 


VAL(i) = VAL(ii) ° (XVAL ~ ARG(i)) 


- VAL(i) (XVAL - ARG(ii)) /(ARG(ii) - ARG(i)) 
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(ii=1,2,..., i-1) fori=2, 3, ..., MIN(DIM, 
ORDER). : | 


Programming Considerations: 


The procedure stops under the following conditions: 
1, If the difference | (VAL(i-1) - VAL (i))|, with 
i 23, of two successive values is less then a given 
tolerance EPS, ERROR='0' is returned. | 
2. If the absolute value of this difference stops 
diminishing, thus showing the influence of rounding 
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errors, ERROR="1' is returned. (Test starts at 
step i= 5 for single precision, step i = 8 for double 


_ precision. ) . 


3, If the procedure has worked through the whole 
triangular Aitken scheme, ERROR="'2' is returned. 

4, If the procedure discovers that the arguments 
are not monotonic or that two arguments are identi- 
cal, ERROR='3' is returned. 


PROCEDURE ALIM USES AI TKEN*S SCHEME FOR TATERPOLAT ION IN GIVEN MONOTONIC TABLE 
ENTRY ALIE UNTERFOLATES IN EQUIDISTANT TABLE 


3. 


AS *, 
REKEALEKEREKERE KEKBAD BHAEEEKERE Pa! a, 
* * * e YES .* WAS me 
*PROCEDURE ALIM * * ENTRY ALIE * O66:0 Jee 0.0 6 vce ae wae Ve ENTRY VIA o *X wee 
* * * * . * ALIM o* ° 
SEKKKREKKKSKEKKKE PRES RE RESCEELEE S & | e oe 5° ° 
‘ ° ° * NO e 
e e x e 2 
x X aXe xX * 
REKKKH LKEKEEKEEKKE EKKSAIH? SHRSKSKISK . B4 x, RREKIYS ERAKKHAKKS é 
*MARK ENTRY ALIM® * * IS NEW *, *  STORE_NEW €* 2 
* SEAKCH FIRST * *MARK ENTRY ALIE* o% POINT *,. NO * ARGUMENT AND * e 
* TABLE ENTRY * “CALCULATE FIRST*® e CLOSFR TO o*®eeevseeeeX*® CORRFSPONNING *. . 
*® (LINEAR SCAN) * * TABLE ENTRY * *. GIVEN .*® *FUNCTION VALUE * ° 
* * * x *.XVAL .* * * = 
REEKEKEKSEKKEKKEKEKE SHEEKPIRHEKHKESERE rie ga ee SEERA E GC HKER ; 
e e Y e eo 
e e e X e 
x xX x . %, ° 
KEKEKC KRESS EKKEK SHKEKVCD RESKSE KSEE ai pe inanans fh taay _ 
* * * * e e ° 
®SAVE INDEX J OF* *SAVE INDEX J OF* * SET ERROR="3¢ *& YFS .* ARF TWO ¥*. ° 
* TABLE ENTRY * * TABLE ENTRY * ecceee*®( ARGUMENTS NOT BXeevcce se Me ARGUMENTS .*# ° 
* x * * e * MONOTONIC) *. IDENTICAL. *# ° 
* * * * ‘ a : *, * =e 
KRESSEKEKEEKEKEEREE 4HHESIISSHHGSEEREX ‘ weTtiTITTTirt ttt. aN ee 
x xX - x e 
SEKESL) LEKKEKKEKEEK ad ac dec ab ‘ SAHRA S RHKAK KKK ‘ 
* * * a * COMPUTE AND #*  . 
*FETCH AND STORE* * CALCULATE AND * ° * STORE NEW ROW * e 
* CLOSEST * * STQRE CLOSEST * e * OF AITKEN * ° 
: ARGUMENT : : ARG UME NT * : SCHEME : e 
REKEKEKESEKEEECEKE 4STKGHIGIEESEGHHES é lk a i ‘ 
> Orrerrrerrerrrrerrrerrrerrrrrn e e eo 
xX e X ° 
KREKKKE LSRKKKEKESE SRRAAE D OHEKSEKSESEKE ‘3 SHaesES SheeReees é 
* * COMPUTE JJR_ THE® « CALCULATE ° 
* PRESET * * INOEX OF NEXT * e : NIFFERENCFE OF # ° 
* ERROR=* 28 * eonecX*® RIGHT HAND TX ccccanseecensnesasenssesses e eeee en eseeono 06 S UCCE SSIVE * e 
* * ° * TABLE VALUE e e ; INTERPOLATICN # ° 
* * e * ° . * VALUES * e 
SEEKEKKSKSK SEKEEKE 5 RERKEKSPEAKEROVSKKK . é REKKEKEKKEKREK SKKAS . 
s eo X e se YES Xx e 
xX oe o ¥e : e ot, o * e 
creer eee eene eee ~ F2 *, < F4 *, F5S *, ~ 
* ° -*1S JJR *. ° * ARE *, »* AT *, ° 
* COMPUTE MAXIMAL ° e* WITHIN #, NC « NO .*® FURTHER *. NO .*LEAST THREE*. ° 
* DIMENSION OF e *, SUBSCRIPT 6s ee ere 16 016.6616) 6 0.6/.0500we eoeXec®s POINTS 8X ecccccee Be POI NTS o* e 
* AITKEN SCHEME + . e RANGE . . ° * ,AVAILABLE.* *. USED * e 
* * oe a. * °° e x, o* x, * e 
SEKKKEKKEKEKKKEEE o %  * a a *, .* *, * ‘ 
° ° * YES * . * * YES ° 
s e e e es x e e 
e e J e eo es NO xX e 
xX e xX e s Po o *, e 
SEEKER GL EERKEEKKEE pa RHKESUG? CHKAKSEREK ‘: py G4 x, 42° x, ‘< 
* INITIALIZE JL * e *COMPUTE JJL_ THE* ° e e* DOES *, WAS *, e 
* AND JR (LEFT * ° * INDEX OF XT * ° ° o*0 SC ILLATION*®,. NO . OTFFERENCE *, . 
*AND RIGHT _INDEX* e *LEFT HAND TABLE* e ° *. INDICATE ao ¥Xeeacccce He SMALL o * ° 
*STEPS IN TABLE) * e * VALUE ° ° *. ROUND- * *. ENOUGH .* ° 
* * . *x *. ° ° *, OFF .% *, e ° 
ESSERE EK EKEKSEKERK ; SKCKEEAIEAHKGEREE ES 3 * x, 4 *x .* és 
e se e @ e & YES * YES a 
X eo 5 @ e x e es 
SRHEEKEHLEKEKEEKERSK se H2 *, é } arr e Ps s 
* INSERT FIRST * ° -*1S JJL *. e Py * ° ° 
Ma VALUE * ° NO . WI THIN ° ° . ; SET ERROR="18 * e e 
IN AITKEN ® 2 ce we ¥ SUBSCRIPT .* ° ° * (ROUND OFF * . . 
* SCHEME : ee oer RANGE ae ° ° Pa FRRORS) ; e ° 
SEKKEEKSKEKEKHKEKEEK o-@ e oe # : . MEEK KKH KEKE S s ° 
@ es 8 * YES e 2 e a e 
x os : iS : x x : 
SEEKS LKEKKKEKKEKE es J2 *, RHREKK JZREKKKK KKK 2 REE GREEK KKEKK REE K IS RAKE KKK SE * 
* * 2 . 0% . * UPDATE INDEX *® ° * * * * ° 
* COMPUTE * Paar ' «* SHOULD *, NC *STEP JL AND SET* e * RFTURN * * SET FRROR=!0* & ° 
* DIFFERENCE OF * oe * STEP BE TO ae ceeveeeX* UP INDEX OF *& ee eX® INTERPOLATED *Xecceeeee *® (SUCCESSFUL *% ° 
S ARGUMENTS FACT : Pa Me THE RIGR TA ; NEAT toes: : : VALUE YVAL * EENTERF OUST TEN : ° 
SEEKEKESKEKEKKEKSE oe *, * ves . SHEER EREKE ERK EKE HERE KEKREKE RRS MEREKKEKKKKEE EEK K é 
s s e * Y e e s 
xX ess xX x e = 
ERESCEK LRKEEKEKKEKK o> es. REKKKK? KSRRESRERE CEKKEKAKKKEKKRKEK xX REKREKS REKKEKEKEKS . 
* INITIALIZE os * UPDATE INDEX # * FETCH * KRREK Qk RTE RH * * 4 
Maer id aeeeet OF ba ee *STEP JR AND SET* * RESPECTIVELY *& * END OF * x CALCULATE * ° 
UCCESSIVE eoe co eX*® UP INDEX OF *e ceenceeX *CALCULAT E NEXT © *PRICEDURE ALIM * * ARGUMENT Freee 
> ABPRO X IRAN TS -" * NEXT YABLE + * ARGUMENT USED * * * DIFFERENCE FACT 
* * VALUE * _® x RAE RK KEKKEKEE * * 
cau ceases seieace KESKEHISKKEEKEEEKEE RRS EK RK KAKKKE KEKE 


SRK KE SG EREE 
e X 
oe : e 
OOOO HOSE EE SoSH CE SEOTES OE SO SEES SESE EEO CESE TELE SECTORS 
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® Subroutine AHIM/ AHIE 


AHIM.. 


AHI 


DE OIG Oa ISIE OIE IDO iota i toi took alain tok toi loi ioiiek i iaeia toticacty AHT 


/* 

s* AITKEN HERMITE SCHEME FOR INTERPOLATION OF FUNCTION VALUE 
/* FROM GIVEN MONOTONIC TABLE 

/* 


*7AHI 
*/AHI 
*/AHI 
*/AHI 


(EGET TEES TEER ERE OOES TSE TS PACS RELY S FEREERSCESEDETOAESSSOREORE CANT 


PROCEOURE (XeV¥sDY¥sDIM,ORDERyEPSyXVAL sYVAL Dy 

DECLARE 
COIMsDIMS eT eT Lyd edUJL ye JIR ep JL ep IRe Ke Ny ORDER) 
BINARY FIXED, 
CX0*) ,YC#) DY (%) sARG(MIN( DIM, ORDER) ) pVALC2*MIN(DIM,ORDER) }y 
EPS,XVAL,YVAL + XSTyOX1A¢0,DD,DELT1 »DELT2,01ST,DIST1yHye 
HlyH2,VALT,yVALI1LsVALJeVALJ1 ey XSeVL VS 221,22) 


AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 


BINARY FLOAT, : /*SINGLE PRECISION VERSION /*S*/AHI 
BENARY FLOAT (53), /*DOUBLE PRECISION VERSION /*D*/AHI 


CERPOF EXTERNAL, SW) 

CHARACTER(1) +. 

= "Mty. /*MONOTONIC ARGUMENTS 
=le. 


=lLET5>4.~ 


AHI 
AHI 
*/AHT 
AHI 
AHI 


00 § = L TO DIM. /*COMPUTE STARTING SUBSCRIPT J */AHI 


00 =ABS(XVAL—X(T) ) 96 
IF OD LE D 
THEN DO,. 


END?» 
ARG(1)=X(J),. 
GO TO COM,. 
AHTE.. 


AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 


AHI © 


(ROO TO IOI OI IO I IO OI I iO ia I ion ao i io kai ei toekiiotiok J AHT 


/* ' 

/* AITKEN HERMITE SCHEME FOR INTERPOLATION OF FUNCTION VALUE 
/* FROM GIVEN EQUIDISTANT TABLE 

(* 


*/AHI 
*/AHT 
*/ AHI 
*/ AHI 


DC CGE OO IG ICICI I ROR TAI GIS IOI GI GIS IOI O Ea IOI E EI RODE IOI toi toaok / AH] 


ENTRY (XSTs0XxVsDY sDIMyORDER pEPSs XVAL sYVAL) +o 

SW =tEt,, 

21 =XSTy- /*EQUIDISTANT ARGUMENTS 
22 =D0X». 

J =ly. 

ARG(1)=2Z1,. 

IF Z2= 0 

THEN GO TO COM;. 


AHI 
AHI 
*/ AHI 
AHI 
AHI 
AHI 
AHI 
AHI 


J =MAX( 1, (XVAL-213/Z224+1.5)5. /*COMPUTE STARTING SUBSCRIPT J */AHI 


J =MIN(DIMsJ) 96 
ARG(1)= ZL+FLOAT( J- L)#Z2y. 
COM.. 
ERROR='2',. 
XS =XVALee 
YS =YVAL ys. 
DIMS =DIM,. 
N =MIN(DIMS» ORDER) 9 
JL,JR=0;. 
VALI,VAL(1)=Y(UJ)>. 
VALJ,VAL(2)=DY(J)-. 
H2 =XS-ARG(1)-- 
OISTI=ABS(H2),. 
IF N LE 1 
THEN O00,. 
IF N=l 
THEN VALOC1L)=VAL(CI)4VAL( J) *H2,. 
ELSE VAL(1L)=YS,. 
GO TO RETURN,. 
END,. 
oC I =2 TO Ny. /*TABLE SELECTION 
JJR =JtJR,. 
IF JJR GE OIMS 
THEN GO TO LAB2;. 
JJL =J-JLbLy. 
IF JJL LE 1 
THEN GO TO LAB3;. 
IF SwW= *E! i 
THEN A =(ARG(T—-L)—-XS)*Z2,. /*A=(ARGCI-LI-—XVAL ) *0X 
ELSE A =ABSUX(JIR+1)-XS) 
~ABS(XCJJL— ~1)~ XS)96 
IF A LE C 
THEN GO TO LA83,. 


JL =JL+1,. /*STEP TO THE LEFT 
K =J-JLy. we 
GO TO CONT,. 


JR =JR+1,. 7*STEP TO THE RIGHT 
K =J+JRo. 


IF Sw= 'E* 

THEN A =Z1LtFLOAT(K-1)*Z2,. 

ELSE O0,. 

A =X(K)o5 

DIST =ABS(XS—A),. 

IF OIST LT DIST 

THEN GO TO IDENT?. 7*® ARGUMENTS NOT MONOTONIC 
DIST1=DIST,. 

END». 

It. -sl4h;. 

“VALJ1=DY(K)». 7*VAL(2*1)=DY (UK) 

VALTL=Y(K)_. /*VAL(2*I-1LI=Y(K) 

_ARGCII=HA,. * «i ; 

VAL CII~3) =VALI+VALJ*H2,. 

H1 =H2,y. 

H2 =XS=Ay. 

H =H1-H2,. 

“IF H = 0 
’ THEN GO TO I[DENT,. /*TWO IDENTICAL ARGUMENTS 
VALCTI-2)=VALI4+(VALIL 
~VALI) #H1/H,. 

VALI =VALI1>. 

VALJ =VALJ1>. . 

END;. /*END OF TABLE SELECTION 
VALCO TI-L)=VALI+VALJ¥*H2,. : ‘n 
DELT2=0,. , /*PREPARE AITKEN-SCHEME 
Yl =VAL(1) +. , 

09 1 = 1 TO N+N-2;. ; /*START AITKEN-LOOP 

YS =Vloe 

OELTL=DELT2;. 

H1 =ARG((1+3)/2),. - 
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AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
*/ AHI 
AH] 
AHI 
AHI 
AHI 
AHI 
AHI 
AHI 
=/AHI 
AHI 
AHI 
AHI 
AHI 
AHI 


*/ AHI 


AHI 
AHI 
AHI 
x/AHT 
AHI 
AHI 
- AHT 
AHI 
AHI 
AHi 
AHI 
AHI 
*/AHI 


AHI | 


AH] 
AHI 
*/ AHI 
*/AHT 
AHI 
AHI 
AHI 


AHI 


AHI 
AHI 
*/ AHI 
AHI 
AHI 
AHT 
AHI 
*/ AHI 
AHI 


*/AHT 1 


AHI 
*/AHT 
AHI 
AHI 


AHI. 





=VAL(I+L)o. AH] 

DO K = I TO 1 BY ly. AHI 

H2 =ARGCUCKtL) /2) 96 AHI 

H =H2-H1l ye AHI 

IF H = 0 /7*COMPUTE DIAGONALS OF AITKEN- */AHI 

THEN GO TO IDENT,. ' J ESCHEME . */ AHI 

Yl, VAL (K)=CVAL(K)®(XS-HL ) _ AHI 
—Y1*(XS-H2))/H»- AHI 

END». ii AHI 
DELT2=ABS{(YS-Yl) >. /*TEST ON ACCURACY */ AHI 

IF DELT2 LE EPS AHI 

THEN GO TO STOP,. AHI 

IF I GE 5 /*SINGLE PRECISION VERSION /*S*/AHI 

IF I GE 8 /*DOUBLE PRECISION VERSION /*D*/AHI 

THEN IF DELT2 GE DELTL AHI 

THEN GO TO OSCIL,. AHI 

END,. a, /*END OF AITKEN-LOOP . */ AHI 

GO To RETURN?» AHI 
CSCIL.. : /*DELT2 STARTS OSCILLATING */ AHI 
ERROR= "ty. ; AHI 
VALU LIHYS».« AHT 
GO TO RETURN». AHI 
IDENT. AHI 
VALCL)=YS_9~ AHI 
ERROR="3',. AHI 
GO TO RETURN?¢. AHI 
STOP.. AHI 
ERROR="0'y. ; AHI 
RETURN... Ss AHI 
YVAL =VAL(1) 9. ; AHI 
END,. " /*END OF PROCEDURE AHI */ AHI 





Purpose: 


AHIM interpolates the function value YVAL for a 
given argument value XVAL using a given table 

(X, Y, DY) of argument values, function values, and 
their derivatives. 


Usage: 
CALL AHIM(X, Y, DY, DIM, ORDER, EPS, XVAL, 
YVAL); | 
x - BINARY FLOAT([(53)] 

Given vector of monotonic arguments. 
Y - BINARY FLOAT[(53)] — 

Given vector of table-function values. 
DY - BINARY FLOAT [(53) ] 


Given vector of derivative values. 

DIM - BINARY FIXED 
- Given dimension of vector X, y, DY. 

ORDER -- BINARY FIXED 

Given number of points to be selected 

out of the given table (X, Y, DY). 
EPS. - BINARY FLOAT ((53)] | 

Given constant used as upper bound 

for the absolute error. 


XVAL - BINARY FLOAT [(58) ] 
Given argument to be interpolated. 
YVAL - BINARY FLOAT [(53)] _ | 
Resultant interpolated function value. 
Purpose: 


AHIE interpolates the function value YVAL for a 
given argument value XVAL using XST, the start- 


ing value of the argument, DX, the increment of. 
‘the argument values, vector Y of the function 


values, and vector DY of the function derivative 
values, 


Usage: 


CALL AHIE (XST, DX, Y, DY, DIM, ORDER, EPS, 
XVAL, YVAL); 

XST - BINARY FLOAT [(53) ] 

Given starting value of the arguments. 


BINARY FLOAT [ (58) ] 
Given increment of the argument 
values. | 
BINARY FLOAT [(53)] 
Given vector of table-function values. 
BINARY FLOAT [(58) J 
Given vector of function derivative 
values. 
BINARY FIXED 
Given dimension of the vector X,Y, 
DY. 
BINARY FIXED 
Given number of points to be selected 
out of the given table (X, Y, DY). 
BINARY FLOAT [(53) ] 
Given constant used as the upper 

- bound for the absolute error. 
BINARY FLOAT [(53)] 
Given argument to be interpolated. 
BINARY FLOAT [(53) ] 
Resultant interpolated function value, — 


DX - 


DIM - 


ORDER 


EPS = 


XVAL 


YVAL 


Remarks: 
ERROR='0' means required accuracy could be 
reached, | 

means required accuracy could not be 
reached because of rounding errors. 
means accuracy could not be checked 
because MIN(DIM, ORDER) is less 
than 2, or the required accuracy 
could not be reached by means of the 


ERROR=F!1!' 


ERROR="2!' 


given table (X,Y, DY). ORDER should © 


be increased, 
means two arguments in argument 
vector X are identical or the arguments 
are not monotonic, 

In the case ERROR='0' and ERROR="2' the last 
interpolated value of YVAL is returned. The value 
prior to the last interpolated value for YVAL is 
returned, 

If, by a user error, ORDER is greater than DIM, 
the procedure selects only a maximum table of DIM 
points. In order to avoid errors, the user should 
check the correspondence between the selected 
table and its discussion by comparison of DIM and 

ORDER, 


ERROR='3! 


Method: 


Interpolation is done by means of Aitken's scheme 
of Hermite interpolation. . 


For reference see: 


F, B, Hildebrand, Introduction to Numerical Analy-_ 
sis, McGraw-Hill, New York-Toronto-London, ' 
1956, 11, 314-817. | 

Gershinsky and Levine, " Aitken-Hermite Inter- 
polation'' JACM, vol. 11, issue 3 (1964), pp. 352- 
356, 


Mathematical Background: 


Before starting Hermite interpolation, a table (ARG, 
VAL) must be selected out of the given monotonic or 
equidistant table. This selection is done in two 
parts. In the first part, the subscript J of the argu- 
ment next to the search argument XVAL is computed, 
using the following formulas: 

In case of the equidistant table - 


Subscript J = the integer part of 


( XVAL-XST + 1.5) 
DX 


In case of the monotonic table - 
Subscript J is searched for such that 
XVAL - X(J)| s | XVAL - x@)|, 1s1<DIM 


At each of the N= MIN(DIM, ORDER) selection 
steps, the procedure decides, by comparison of 
distances, whether the next step in vector X has to 
go to the right or to the left within the dimension of 
the given table, and replaces the components of 
vector VAL (that is, function and derivative values) 
by interpolation values Z; of the first order (see 
Figure 8, third column), This is done by the 
following formulas: 


VAL(i) =y, + VAL (i+ 1)+ Hi (1,3, ..., 2n-1) 





WI 
VAL(itl) = y;t (VAL(it+2) - y) - aT (153 34-6%,5 
2n-3) 

with 


n= MIN(DIM, ORDER), y, = VAL(i) 
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Hl = XVAL - ARG(j-1), H2 = XVAL - ARG(j) and H1 = ARG (m) 


and 2. ¢e | fori=1, 2, ... , 2n-2. 


. itl 
j= 7 + 1 
| | ARG(1) =x, | VAL(1) = y, VAL(1) = 2, 
Now it is possible to generate successively the | 
upward diagonals of the triangular Aitken scheme, 


using the following formulas: 


Z x, - XVAL 


| VAL(2) = yy | VAL(2) = Zp 


ARG(2) =x, | VAL(3) = y, VAL(8) = Z, 
1 


7, _~=s=e 
1.2 X ~ Xy Zo Xp XVAL 


=yt = 
VAL(4) = y', VAL(4) = z, 


- A 
Zo x, XV Lo 











1 
Z = -e 
2,3 Xe xy Ze Xo - XVAL 
avin | ARG(n) = x VAL(2n-1) = v5 VAL(2n-1) 
Z X,- 
Sie .| 2,2 1 VAL(2n) = y', ae 
~ x = XVAL 
1,2,3 X, xy Z5 3% VA 
Figure 8. Triangular scheme for Aitken-Hermite interpolation 
— 1 . Ze X, ~ XVAL- 
3,4 Xo-X, : Z 4 X, — XVAL 
Programming Considerations 
with | 
The procedure stops under the following conditions: | 
x, = ARG (i). | 1. If the absolute value of the difference between 
| | two successive interpolated values VAL(1) is 
All resultant values of an upward diagonal can be less than a given tolerance EPS, ERROR='0! 
stored in positions of vector VAL with decreasing is returned, : : 
subscripts: VAL(k) = 2. If the absolute value of this difference stops 
diminishing (thus showing the influence of 
VAL(k) © (XVAL - H1) - VAL(K+1) °° (XVAL -ARG()) rounding errors), ERROR="1' is returned, | 
— AR@)-HI (Test starts at step i= 5 for single precision, 
| | | i= 8 for double precision. ) 
for | | 3. If the procedure has worked through the whole 
| — a | | triangular scheme, ERROR='2' is returned 
j= ie ee | (see "Remarks", above). 
— 4, If the procedure discovers two table points 
where with identical arguments or the arguments are 


not monotonic, ERROR='3' is returned. 


k = i-jtl, m=[=* ] _ 


= [4] 
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PROCENURE AHIM USES AITKEN-HERMITE SCHEME FOR INF ERPOLATION IN GIVEN MONOTONIC FABLE 


ENTRY AHIE INTERPOCLATES IN EQUIDISTANT TABLE 


o* 
| eR tok A CR tok tok ote A4 *&, 
RR A | eto ee ee & KXRDAZ OOEHIKSTE * FETCH * . *, 
* * ee * * RESPECTIVELY # WAS *. NO 
*PRUCEDURE AHIM * * ENTRY AHIE #* *CALCULAT E NEXT *ecceccecX®s FNIRY VIA 8c ascccccccsccccece 
* * * * * ARGUMENT USED * *. AHIM . ; 
PTE TES eL LOO LS £2 PEC EECESSLEC ESF * * &, , 3 
e : 7 MRE AA RREK EK KEKE *, _& e 
e e x * YES ° 
e ) e xX e 
X x e * x 
RRR HK ES KK a KH Ke HREKSBH? HIRHKKAESKE . B4 &, RHEKGA HS SHKEKKKEEKS 
* MARK ENTRY *- * MARK ENTRY ° e*ITS NEW *. Sune eee * 
* AHIM, SEARCH * © ®WAHIE » CALCULATE* ° ~% POINT *. NO AND VALUES OF * 
* FIRST TABLE * * FIRST TABLE * ° *. CLOSER TO “tec ecene sX? FUNCTION AND # 
* ENTRY (LINEAR * * ENTRY * ° « GIVEN. * OEFRIVATIVE * 
SCAN ) * * * ° *.XVAL .* * * 
SEEKERS KEKE SREKGK GREE SHKEH SSS e x. .* SREEKKEKKARKAEKES & 
e e e * YES e 
X X ° ° X 
BEEK LK KKK KK SRHKESED SORKEOKESEK e FS REELS KHKKKRKEKSE 
* * * + ° ° * CALCULATE AND * 
*SAVE INDEX J OF* *SAVE [INDEX J OF* ° ° * STORE 
* TABLE ENTRY * * TABLE ENTRY *% ° ° * INTERPOLATICN * 
x. * * * * ° *VALUFS OF FIRST* 
* * * * e ° * ORDER 
RRM KKK KKK EKEKS SSH KKEESEK ° ‘ RKEEKKEKSKAEKEKKE 
x x : x 3 
BEEK HK) LKR KE ea et eee ane ° SKKK KY) AEEKKKEKEKE N5 *, 
* * * K & * x *, 
*FETCH AND STURE® * CALCULATE AND # : * SET ERROR=*3" & YES .* ARE TWO *, NO 
* CLOSEST * * STCRE CLOSEST * ° eo ee*® (ARGUMENTS NOT ®Xecccccee *% ARGUMENTS . ¥.4. 
: ARGUMENT . : ARG UME NT : ° e . MONOTONIC ) * *- IDENTICAL. # 
KEKEEKEEKKKEEKERE SEEKERS GHEKASKEKKEK Py ps SHAR EKKKEKEKKKAKKE * .* 
e eo °e e * 
eX ccevccececcccvecccceceeee e e 
a X » e ° NO 
x o ¥. e ° . *, 
EEK LRKKEKSEEKKS E2 +, ‘ 7 on ereee tao E5 *. 
* * 2* HAS *, ° e INITIALIZE * ~*: ARE #%, 
* PRESET ¢ e *TABLE STILL*. NC ° . CALCULATION OF * YES ~* ENOUGH *, 
* ERROR="2* 8 % eoeeeX*®. VALUES TO 2 ¥eeee ° ° * OTAGONALS IN Xevccsece e TABLE POINTS . #Xe~ 
* * ° *, RIGHT .* e e ° * AITKEN SCHEME * *. SELECTED .* 
* * . *, Pm Ps Py * * * *, Pa 
SRESEKERK EEE EKEKES SE . *, ~~ * ; é ‘ BREE EKEKEKEREKEKE *% ~¥ 
° e * YES ° * ° ° 
x e : e e e x 
Ctoe rene eee ne 7 F2 *, on . * MREKKE KEKE KEKEK BERETS KEKE GEEKRKS 
° e HAS *, e e e * * * : * 
*COMPUTE MAXIMAL ® ° NO .¥*TABLE STILL. « ° e * CALCULATE * * PRE PARE * 
* DIMENSION OF * o scce *e ALUES TO .* e * ° * CURR ENT ¥Xecccceee KCALCULATION OF * 
SAITKEN SCHEME Ne oe -. LEFT ao * ° ° : DIAGONAL : z NEXT DIAGONAL : 
KEARSE KEKSEKEKEKS e..* * .* Py : re EEEKKKEKRESE KK EKEKE REEKREKKES KE HEEKKE 
e ° * YES e ° ° ° x 
e ee x e e e e e NO 
x oe o *, e e ° x , e *. 
RRREK GL RRKKKKEK EK 66 G2 *, ° e } SHKERG AK EKER KKK 65 +, 
* INITIALIZE JL * ° 8 -* *. ° ° ° * CALCULATE * -* FULL * 
* AND-JR 7 ene ve eo « -* SHOULD *, NC. ° ° * DIFFERENCE OF * »* AITKEN *. YES 
*AND KIGHT_IND e-e *. STEP BE TO .*«Xe e ° * SUCCESSIVE * *, SCHE ME o Feae 
«STEPS IN TABLE}* ° *,. THE RIGHT. * ° * ° * INTERPOLATION * *.COMPUTED . 
* ar +, o* ° ° ° * VALUES * *, . * 
FRR RRRRKERE RE ERS a se 4% 48 ‘5 : © RR a ae dee ek ek * .* 
= 2 es * YES eo e * e * 
e ee 8 e e e e e X 
e eo e e- ° e ° X e NO 
xX ee X e e o o*, e *, 
RR KKK HL KEKE KKK Pa oo ona ce 6 Py 7 H4 *., H5 e, 
* INSERT FIRST * ee * DAT ° ° ° e* WAS *, -* DOES *%. 
* FUNCTION AND * ee * INDE XO STEP JR : ° ° ° @*DIFFERENCE *. NO « FOSCILLATI CN*, 
* DERIVATIVE * e e2eX* AND SET_UP * ° ° ° *. SMALL eo Xe cccceeeX*. INDICATE 7 * 
*VALUE IN AITKEN*® ° ZL NOE X OF TABLE * ° Py ° *. ENOUGH .* *.ROUND-OFF. * 
SCHEME * ° VALUE S$ * ° e ° 7 ®, o* *, -* 
REE EK EK KEKE KH . Saisas cath eeiiss . ‘6 ‘* =. 6% * . * 
e ° e ° ° e * YES * YES 
° e esvesneaeenvneve2ee 8 eeccccevewere e e a 
X . ; ° ° * X x 
REE KY LEEK ERE a KEKE IZ ERR KKEEE ° Se . RHEE KI GK EKKK SK RHEKRKK IS KEKE KKEGES 
* * * * UPDATE * ° ° ° * *. * * 
* COMPUTE * si Bana gat JL * ° ° ° * * * % 
* DIFFERENCE OF * ° AND SET_UP MX eee e ° * SET FRROR=!0¢ * * SET ERROR='1* *# 
* ARGUMENTS H2 * ° ST NDE X OF TABLE * . - * * * * 
x * « x VALLES * ° ‘< * ; * x * 
EERE SRE AEK SKRTERE e REEKS ISSR KKEKEKE* ‘* _ REE KEKE KEK KEKKE BRR KAKA K RAKE KRKEK K 
° e e@eoeevseesee ee eeeeeeeeveeceone ® weesecccevecre a Xoo scccccce 
hed e eXevcccccessccesesccececsseee 
X e ° 
eX 6 ° %, x 
KL *. ‘. K2 *, Me A HK KB KK KK KE RRR QKKKEK KEKE 
e* IS . *. * & * * FPTAKS SAS SSES ES 
o* DIMENSION Nf: YES. * IS *. YES * CALCULATE * * RETURN * * END OF * 
* eGREATER TH eene eee X*%e DIMENSION N 2 *%ewcee ev eeX*® ENTERPOLATEND *cecwceeeX® INTERPOLATED 2 cece e -X*® PROCENURE * 
%, ONE oes ° *.EQUAL ONE. * VALUE * * VAL UE * AH M/AHLE 
*, -  @® i. *. o* x % x seensenseesades 
=. .* ‘é % .* KK RR ake KR KK KEK HERR EK KEK KEK EEKE 
* NO ; * NO x 
Mathematics--Interpolation 


125 


® Subroutine ACFM/ACFE 





“THEN DO,. 


Il 
Ill 


=TI+1l,.° 


=I+IT,. 


IF III GT N 


/*INTERCHANGE ROW I WITH 
7*ROW I+IF 


ACFI1200' 
*/ACFI1210 
*/ACFI122C 

ACFI1230 


ACFMee “ACFI 
PEA ICSI TORI TCI RAO IR IA TOA RR RE LAR AO ALR IRA ACE 
*/ACFI 
CONTINUED FRACTION SCHEME FOR INTERPOLATION OF FUNCTION VALUE*/ACFI 
FROM GIVEN MONOTONIC TABLE */ACFI 
*/ACFI 
TPR RRR RK HHH HM Me RH I MK HE RAE AA KKKHEKAERK KEKE KK SACL] 
PROCEDURE (Xr eDIMsORDER EPS, XVAL yYVAL) 9 ACFI 
DECLARE ACFI 
(COIMs Tg JeKeNo lle II gJLy IRe JIL eJIReDIMS ,ORDER) ACFI 
BINARY FIXED, ACFI 
(XC#), ¥() s ARG(MIN( DIM, ORDER) ) 9 VAL (MIN(DIMy ORDER) ) »XVAL Aly ACFI 
YVAL + XSTeDXeEPS yXSeZ1_9Z29DyODe VALI sARGI eAyDISTyDISTLyHyDELT1L, ACFI 
DELT2,ARGJy PL yP2_9P3 yQlyQ27Q3e2SrVSeARGI Ls VALILVEPS1) ACFI 
BENARY FLOAT, 7*SINGLE PRECISION VERSION /*S*/ACFI . 
BINARY’ FLOAT (53), /*DOUBLE PRECISION VERSION /#*D*/ACFI 
(ERROR EXTERNAL, SW) ACFI 
CHARACTER (1)¢.- ACF1 
=tMt,, /*MONOTONIC ARGUMENTS */ACFI 
=1ly>. ACFI 
=lE75,. ACFI 
DO I = 1 TO DIM,. ACFI 
DO =ABS(XVAL-=XCT) doe: ACFI 
TF DO LE D ; ACFI 
THEN OO,. ACFI 
3) =DD¢. ACFI 
J _ =e. ; ACFI 
END). - ACFI 
END,. ACFI 
ARGIsARG(1LI=RXC I) oe ACFI 
GO TO COMy. ACFI 
ACFE... ACFI 
GRR RA RR a he oe Re ate te ea oe eat ai ae ete atte ae he ete te ok eo te ie aka eat Rota dete te ake tee ate ak ac a ete ek ak Ske etek a, AC FT 
/* */ACFI 
/* CONTINUED FRACTION SCHEME FOR INTERPOLATION OF FUNCTION VALUE*/ACFI 
/* FROM GIVEN EQUIDISTANT TABLE */ACFI 
1% */ACFI 
4 Je a IOS I SEIS SE aE ISSIR EE CIC OO Ga IR RAG SERA ICAO ARR EC ROR ROR fe AA ACFI 
ENTRY (XSTyDXy¥¢DIMyORDER sEP Sy XVAL sYVAL) 9 ACFI 
SH =tEt,. ACFI 
Zl =XSToe ‘ ACFI 
Z2 =DXo6 ACFI 
J =ly. ACFI 
ARGI,ARG(1)=Z1le6 ACFI 
IF Z2= 0 ACFI 
THEN GO TO COM,. : ACFI 
J =MAXC Ly (XVAL— 21) /22+1. 5) 76 /*COMPUTE STARTING SUBSCRIPT J */ACFI 
J =MINCDIMyJ)_- ACFI 
ARGI,ARG(1)=ZLt+FLOAT(J—-1)*Z2 56 ACFI 
COM.. | ACFI 
EPS1 =1lE—6,. /*SINGLE PRECISION VERSION /¥#S*/ACFI 
/*EPS1L =1E-13,. /*DOUBLE PRECISION VERSION /*D*/ACFI 
ERROR="2',. ACFI 
xs =XVAL 9». ACFI 
DIMS =DIMy. ACFI 550 
N =MIN(DIMS,ORDER)»- ACFI 560 
Q2,DELT2,JL,JR=0,.~ ACFI 570 
P3sYSeVAL(LIEAV( J) 96 ACFI 580 
P2,Q3=le. ACFI 590 
Al =XS—-ARGI,. ; ACFI 600 
DISTIL=ABS{Al1),. . ; ACFI 610 
00 I = 2 TO Ne. /*START TABLE SELECTION */ACFI 620 
JJR =J+tIRy. ; ACFI 630 
IF JJR GE DIMS /*TABLE SELECTION */ACFI 640 
THEN GO TO LAB2,. ACFI 650 
JJL  =J-Jby. ACFI 660 
IF JJL LE 1 ACFI 670 
THEN GO TO LAB3,. ACFI 680 
IF SW= ter ACFI 690 
THEN A =-A1*Z24. 7*A=( ARGC I~1)—XVAL ) #DX */ACFI 700 D4 —_ 
ELSE A =ABS(X(JIRF1) ACFI 710 
—XS)-ABS(EX( JL ACFI 720 
-L)-XS)9- ACFI 730 


THEN GO TO RETURN». 
VALI =VAL(IIT),. 
VALCITI) =VALI1L,. 
ARGI =ARG(III),. 
ARGCIII)=ARGIL,. ACFI1280 
GO TO INVERT,. ACFI1290 
END». ACFI1300 
VALI =LETS,. J*VALCL) = VAL(J)s J LT I-21 */ACFI1L310 
END». ; ACFI1320 
ELSE VALI =(ARGI /¥*¥VALOI) NE VAL(J) | */7ACFI1330 
~ARGJ)/Hy. ACFI1340 


ACFI1240 
ACFI1L256 
ACFI1260 
ACFIL270 


END». ts ACFI1350 
/*COMPUTE INVERTED DIFFERENCES */ACFI1360 
/*BY WALLIS-EULER SCHEME 

/*GENERATE NEW VAL(1),ARG(T) 


P3 =VALI*P2+AL*Pl yo 
Q3 =VALI*Q24+A1*Q1,. 
VAL(T)=VALI,. 
ARG(I)=ARGI,. 
Al =XS—ARGI 9. 
IF ‘Q3= 0 
THEN YS =LE75y. 
ELSE YS =P3/03,. 
DELT2=ABS(ZS-YS),. 
IF DELT2 LE EPS 
THEN GO TO STOP,. 
IF I GE 8 
IF I GE 10 ; 
THEN IF DELT2 GE OELTL © 
THEN GO TO GSCIL». 
END». /*END OF INTERPOLATION LOOP 
GO TO RETURN:. 
IDENT... 
ERROR="3*%,. 
GO TO RETURN:. 
OSCIL.. 
: YS =ZSe0 
ERROR=!1"*,. 
GO TO RETURNy,. 
STOP.. 
ERROR="0',. 
. RETURNe. 
YVAL =YS,. 
END». /*END OF PROCEDURE ACFI 


*/ACFI1370 
*/ACFI1380 
ACFI1390 
ACF11400 
ACFI1410 
*/ ACFI1420 
*/ACFI143C 
ACFI1440 
*/ACFI1450 
ACFI1460 
/*SINGLE PRECISION VERSION /*S*/ACFI1470 
/*DOUBLE PRECISION VERSION /*0*/ACFI1480 
. ACFI1490 

ACFI1L500 
*/ACFI1510 
ACFI1520 
*/ACFI1530 
ACFI1540 
ACFI1550 
*/ACFI1560 
ACFI1570 
ACFI1580 
ACFI1590. 
ACFI1600 
ACFI1610 
ACF1I1620 
ACFI1630 
*/ACFI1L640 


/*Q3 = 0 
/*Q3 NE O 


/*TEST ON ACCURACY 


/*ARG(I) = ARG(J) FOR I NE J 


/*DELT2 STARTS OSCILLATING 





Purpose: 

ACFM interpolates the function value YVAL for a 
given argument value XVAL using a given table (X, 
Y) of arguments and function values, 

Usage: 

CALL ACFM (X, Y, DIM, ORDER, EPS, XVAL, YVAL): 


BINARY FLOAT [(53)] 
Given vector of monotonic arguments, 


I ! 
THEN GO TO LAB3,. ACEI 750 Yy - BINARY FLOAT [ (53) ] | 
LAB2e- 7 : ACFI 760 A ‘ 
=JL¢19. *STEP TO */ACFI 770 ae ° 
Jt gota lee /*STEP TO THE LEFT peeet Ma Given vector table-function values 
GO TO CONT,. , ACFI 790 DIM = BINARY FIXED 
ACFI 800 : 
ee ea he CEE BG Given dimension of vector X and Y, 
ACFI 830 
IF SW= "E® ACFI 840 ORDER — BINARY FIXED 
THEN A =Z1+FLOAT(K~-1) *Z2,. ACFI 850 7 a 
ELSE A =KIK) 9. | ACEI 860 Given number of points to be selected 
trek‘o0p, | sel ee out of the given table (X,Y). 
0 -_ ge , 
eon cr orsh ici sio/ EPS - BINARY FLOAT[(53)] 
THEN GO TO IODENT,. /*ARGUMNENTS NOT MONOTONIC */ACFI 920 é 
DISTI=DISTy. . ACFI 930 Given constant used as upper bound 
ENDs. © ACFI 940 
ARGC IJ =Ay. ; ACFI 950 
POU eey ee VACEL S60 for the absolute error, 
END». “7*END OF TABLE SELECTIO */ACFI 970 
EXSCARG(L} ps ee . acer eu) WAL = BINARY FLOAT [(53) ] | 
00 I = 2 TO Nee /*START INTERPOLATION LOOP */ACFI 990 . : ° 
II =0y. . “ ACFI1000 Given argument to be interpolated. 
Pi =P2,. J®MOVE PARAMETERS P2,_P3,~Q2,Q3 My Ceri Gce YVAL BINARY FLOAT r 53 1 . eas a 
Ql. =Q2,. ~~ 
P2 =P3,. ACFI1030 oor (8 ) 
Q2 =Q3,. ACFI1040 | r | 
ee pees Resultant interpolated function value. 
‘DELTL=DELT2,. ACFI1060 
ARGI =ARG(T),. ACFI1070 
VALI =VAL(1I) >». ACFI1080 
INVERT... /*COMPUTE INVERTED DIFFERENCES */ACFI1090 Purpose: : 


ACFI1100 
ACFI1110 
ACFI1120 

_ ACFI1130 
ACFI1140 
ACFI1150 
ACFI1160 

‘#/ACFI1170 

-*/ACFI1180 

 ACFIL190 


ARGIL=ARGI>. 
VALIL=VALI) 
.00 J = 1 TO I-l,. 
ARGJ =ARGIJ)9- 
H =VALI-VAL(J),. 
IF ABSCH) LE ABS(VALI) #EPSL 
THEN O00,. 
IF ARGI= ARGJ 
THEN GO TO IDENT,. 
IF J GE I-1l 


. ACFE interpolates the function value YVAL for a 
given argument value XVAL using XST, the starting 
value of the arguments, DX, the increment of the 
argument values, and vector Y of function values. 


/*ERROR RETURNS, IF THO 
/*IDENTICAL ARGUMENTS EXIST 
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Usage: 


CALL ACFE (XST, DX, Y, DIM, ORDER, EPS, XVAL, 
YVAL); 


XST - BINARY FLOAT [(538)] 
Given the starting value of the argu- 
ments. 
DX  - BINARY FLOAT [(53) ] 
Given increment of the argument values, 
Y - BINARY FLOAT [(58) ] 
| Given vector of table-function values. 
DIM - BINARY FIXED 
Given dimension of vector X and Y,. 
ORDER - BINARY FIXED 
Given number of points to be selected 
out of the given table (X, Y). 
EPS - BINARY FLOAT [(53)] 
Given constant used as upper bound for 
the absolute error, 
XVAL - BINARY FLOAT [(53) ] 
Given argument to be interpolated, 
YVAL - — BINARY FLOAT [(53) ] | 
Resultant interpolated function value. 
Remarks: 


See AHIM/AHIE, ALIM, ALIE 
Method: 


Interpolation is done by a continued fraction and 
inverted differences scheme, 


For reference see: 


F, B. Hildebrand, Introduction to Numerical Analy- 
sis, McGraw-Hill, New York-Toronto-London, 
1956, pp. 395-406. 


Mathematical Background: 


Before starting continued fraction interpolation, a 
table (ARG, VAL) must be selected out of the given 
monotonic or equidistant table. This selection is 
done before the continued fraction interpolation in 
the same way as in ALIM/ALIE, © 

It is assumed that | x(i) - XVAL| >| xq) - 
XVAL | for all i> j ; otherwise, ERROR="'3' is 
returned, : 

Using the following formulas: 
y _ *n mis) 

1,n In = V4 


n m 


y Le | 
1,2,...,m,n Y4,2 


joes, M1, “Y4,2,...,m 


with x= ARG(i), y,= VAL(i) 


the triangular scheme of inverted differences shown 
in Figure 9 can be generated by row for the table 
(ARG, VAL), All resultant values of row i can be 
stored in VAL(i). Thus, it is possible to generate 
the downward diagonal of the inverted differences 
scheme in vector VAL: 


ARG(i) - ARG(j) 


vant) “VAL() = VALG) 


(j = L Avene lak) 


for i= 2,3,..., MIN(DIM, ORDER). 


If for j = i-1, VAL(i) is equal to the infinity ele- 
ment, table point ARG(i), VAL/(i) is interchanged 
with a table point ahead, 

Now, after computation of each new component 
VAL(i), continued fraction interpolation generates 
the following parameters using Wallis-Euler 
formula: 


P3 = VAL(i) - P2+(XVAL-ARG(i-1)) °. Pl 
Q3 = VAL(i) « Q2+(XVAL-ARG(i-1)) - Ql 
and YVAL = P3/Q3, | 


starting with Pl = 1, P2 = VAL(1), Ql = 0, Q2 
= 1. After each step,P1 = P2, P2 = P3, Ql 
= Q@2, Q2 = Q3 are set, 


ARG(1) =x, VAL(1) = y, 


ARG(2)=x, VAL(2)= yy 


41,2 


ARG(8) = X, VAL(8) = Yo Y13 Y1 2,3 


ARG(n) = x 


VALQ)=y¥, Yy 4 





Figure 9. Triangular scheme for fraction interpolation 
Programming Considerations: 
The procedure stops under the following conditions: 


1. If the absolute value of the difference between 
two successive values of YVAL is less than a given 
tolerance EPS, ERROR="'0' is returned. 

2. If the absolute value of this difference starts 
oscillating, ERROR="'1' is returned. (Test starts 
at step i = 8 for single precision, i = 10 for double 
precision. ) 
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3. If the number of interpolation steps has be- 
come MIN(DIM, ORDER), ERROR="'2' is returned. 
4, If the procedure discovers that two table 


points have identical argument values or that the 
arguments are not monotonic, ERROR="'3' is 
returned. 


PROCEDURE ACFM PERFORMS CONTINUED FRACTICN TAT ERPCLAT ION 
ENTRY ACFE INTERPCLATES IN AN EQUIDISTANT TABLE 


MEK A LER KKEKE EK TIES IWELCL LLL ES 


* * x * * PERFORM & 
*PRUCEDURE ACFM * * ENTRY ACFE * oeX# INTERPOLATION # 
* * * * . # Loop % * DIFFERENCE ; 
ESEKEEEKKKREKES SKRIV SHR AK GERKS ‘ * *& x PA 
‘ _ * MR KK KEKE Meme ek em ok ok ee KK é 
e Py REX e e e 
e e * * ° a e 
e e * A3 * e e ° 
e e *. * ° e e 
e ° % HK ° ° ° 
: x x : ae 
SEEK PKR AEKKEEE KREKVBH? SARK SREKK HK RK AB eK ke KK KKK Bete HEA Ate He he eke ke te eke gP2 x, 
* MARK ENTRY * «= MARK ENTRY * * INITIALIZE * * CALCULATE * * FULL *, 
* ACFM, SEARCH * *ACFE » CALCULATES *CALCULATION OF * & CURRENT = * * ROW « YES 
FIRST TABLE * * FIRST TABLE oeX* INVERTED eecce ce oX% IN VER TED * ae cM ree ULATED o Fe een 
© ENTRY (LINEAR * * ENTRY ° *O1FFERENCE ROW * DIFFERENCE IF * ° «* ° 
SCAN ) * * e * POSSIBLE * ° es  % ° 
REE KKKEKSES SRERPS TRO TRE RES SS . bsc basse caneeee. RRR EERE K KKK KKK KH * re J . 
x . ReKK é ° * . 
es es *x * es 2 x se 
e ° * BB & e e » ° 
e e * * s s es ‘J 
e oe KKK i » e J 
x x x e -@ ° 
RERRAC ]LKREKKEREKEK KKK D KEKKKEKE KK C4 x, oi BEERS S KARA KAKKEK ve 
* . * * * o* TS *, ° EMOOTE Y VALUE (CF# . 
*SAVE INDEX J OF® *SAVE INDEX J OF* e*NENOMINATOR*®. NO . INVERTED * ° 
* TABLE ENTRY * *_ TABLE ENTRY * *. INTOLERABLY .¥*%ecce we aX DIFFERENCE TQ * ° 
* * *. SMALL .¥* ° % INFINITY * . 
* * & ; * *, x - * x . 
REEEEKEKEKOKEKKKE KKKKORAAEKAEAKRKKE Ke 6k 6 RERKKEKK AK RA KKK EK a 
e ° * YES ° ° 
: x : 
RHEEKK DP LKR EKKKKKE REAKAH ZA SHSKASKKCRSS N4 x. é He He he Ref) He he ake he ake he a aK s 
* * * * o* ARE x, . * % ‘ 
*FETCH AND STORE* * CALCULATE AND * ND .*CORRE SPOND.*. . #8 EVALUATE % ° 
* CLOSEST * * STORE CLOSEST * eooe®e ARGUMENTS .* e * CONTINUED %Xeae 
* ARGUMENT * * ARG UME NT * ° * .NIFFERENT.*% ° % FRACTION * 
* * KEEK * x, o% e * * 
MEEKER KK PES SSELOCLI SS SLE eT * * * x, ,* ‘s MMe Hee HR HHH KK KKK & 
e ° * €3 * e * YES eo: e 
e e * * e e e e 
e e xeKK ° ° e ° 
oXecvcacvecccresceceecscorseos e e e es e 
° Xx e X ° X 
X o *. o%, e oe e . *, 
KEKKKE ])REKEKKEKSES ‘s €3 *, ° E4 &, . ES %. 
* PRESET * -* HAS *, o* HAS  *,. ° o* IS *, ° e* ARE ° 
. ERROR="2* SET : NO .~*TABLE STILL* YES .*TABLE STILL*. ° e*DIFFERENCE *. NO e - *SUCCESSIVE *. NO 
UP_ INTERNAL eoee*®. VALUES TO Keevecceet%e VALUFS TO .® ° *, LAST IN o Xe cc cee x, VALUES o Fee 
+TOLERANCE EPS1 * ° e ° *,. RIGHT .« ° *. ROW * * SUFFIC. .# ° 
* e e e x, . ° x, 0% *,. CLOSE. * ° 
seeeeeererseceess ° eo « * re 7 x. ah x, . * . 
° « * YES * NO ° * YES * YES ° 
e e X e e X e . 
X ° e *, X ° o®, x ° 
SERECKE KEKE EKEEE a F2 *. KHER EZRA ARK EK » F4 x. BRAKE 5S Re KK HARKS Py 
* COMPUTE MAXIMAL* e 7* ° * UPDATE INDEX & . e*INTER- *, * * ° 
*NUMBER OF TABLE* ° e* SHOULD *. NC *STEP JL AND SET# ° o*® CHANGE WIETH*. YES * SET ERROR="0* * ° 
* POINTS TO BE * e * STEP BE TO (2 ¥, eceeeneeX*® UP INDEX OF & ° * ALL REMAINING. Keowee Xecee * (SUCCESSFUL, * e 
* USED * ° *,. THE RIGHT. * * TABLE VALUE. * ° *. VALUES .* e *I NTERPOLATI CN) : * ° 
* * ° 4.  * ° *.TRIED.* * * ° 
RHR EK RE KEK KK ‘. x RRR AAR HK KKK KKK PS x, o* ‘ SRE ERKAEKEKKE KAKA E a 
. e * YES ° ° * NO ° ° 
REEREGLERREEKKE EK o pier tng Fd hci RREKKGFRK RAKES « Rete HK KG GK Hee KK KK ‘. G5 *. 
* INITIALIZE JL * ° * UPDATE INDEX * FET CH ° INTERCHANGE * ° «* DOES * 
* AND JR (LEFT * ° STEP JR AND SETH * RESPECTIVELY * e *LAST POINT USED* ° e FOSCILLATICN*. NO 
*ANO RIGHT INDEX* eee X*® UP INDEX OF *e ccc e ee eX ¥CALCULATE NEXT * ° *WITH REMAINING * e * INDICATE o Xe eee 
goles IN TABLE)® ; TABLE VALUE : ; ARGUMENT USED : ° id ONE ; e sa OUND Cee . 
axensececentessas SARKIS ERKKSKA EK RRKKKEKEKEKEKEK KEKE ‘* Here eK RR KKK eK EKA HK é * . & ‘ 
* ° * ° * YFS ° 
d tJ °° e eK a e e s 
e es oe es * * * s id 
e ° s oeX* BB & ° e ° 
e ° s * % 2 ° e 
° X e KEKE ° . ° ° 
x aXe « oe : ; xX ° 
RREKK HE K KEKE REK H3 Ke Py EERK KY GREE ERERES ° RRR S RAKE RK S ‘* 
* INSERT FIRST * *. « * * e * * ° 
*FUNCTION -VALUE * NO . WA « x * SET ERROR=*3" * ° * SET ERROR='1* % ° 
* IN TRIANGULAR * wevecccesccccvesee*e ENTY VIA o* oe eX*® (TABLE NOT * oXeoee * (ROUND OFF) * ° 
Pe SC HEM [ e e AC e . : MONOTONIC) | : . : : ° 
REKKKEKEKEEKEEKKK S Re, 9h PS RK RK RR KKK KK KEK Py RREKKKK EGR RK HAKKE K ‘; 
e e * YES ° ° e ‘ e 
2 Ld a e oh 6 6.00% eeeoe = 
e e xX e o xX ‘ ° 
. x eg x o*e e e  *, e 
REREK SY REESE aad ale J3 x, é RK KY GEEK KEKE re J5 *, . 
* * o*¥IS NEW *. ° * * ° Py ARE ¥%. ° 
* COMPUTE * STORE ARGUMENT * NO .* POINT *. YES . & RETURN * e NO STILL x, . 
* DIFFERENCE OF * * AND FUNCTION Xeccecene*®e CLOSER TN ok ecccee * INTERPOLATED * ec e ee yaLU ES TO BE .*Xe0~« 
* ARGUMENTS Al * * VE * » GIVEN. * VAL UE * USED ° 
* : * * * * XVAL .* *x * ae 7% 
REECE KEKE EKSE SHEEEBSSIHEKEEKAEKES ee | REE KEKE x .~* 
° ° * ° * YES 
RERKSK [RERREKER ER K2 *, RR RRK KS RK KKK ; xX RRR KKH RRKKEKAE KKK 
* * 7% ARE *& © y.. *  & SRK Ge to tok tek * PRE PARE x 
* INITIALIZE * NO .* ENOUGH *. YES * INITIALIZE * * END OF * *CALCULATION OF *# 
pes SELECTIONS. «4. Xe ee . POINTS oKeacceceeeX*® INTERPOLATION €.... * PROCEDURE * oe X. NE XT * 
L OOP *. SELECTED .*. * Loop *® le * ACFM/ACFE *. « .* INTERPOLATION * 
: é: *,. 2 * x x e HK aE KKKEKKEKKEK ‘a * x 
REEEKEKEEKKKEKEKE xX % | * RRR RAKE KKKEKKE xX : x RHR SKK KK GREK F 
HERE * KEEK ERK : 
x x * x * x 
* ER + * AZ € * A3 * 
x * * x * * 
eEKe KEKE. x*KKE 
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SR RKK AZ RR RK RK KK 
* * 


IN A GIVEN MONOTONIC TABLE 


KRHA GREK KEKE 
% PREP ARE x 
*CALCULATION OF * 

* NEXT INVER TED SARS Racine Wace Sas 58 


Approximation of Tabulated Functions Ma) 2 AAR-AW 1#1E-18, ©. 


ACJ+1)=( AAT+ABI) #1LE-1B¢. 








END). 
: AW  =A(1)y. 
e Subroutine FFT IF COPT= #2! /*PREPARE ACL)+AC2) FOR 
aren THEN DO, /*CALCULATION OF REAL FOURIER 
ACL) =CAW+A(N#L) 96 /*SERIES 
FFT... FFT A(2) =tAW-AUNt1))4. 
VET CSSCCSSOSOCTOSCSOCSLSOSCOCOSOCSOS SSL SPE ETS PS Te te eet PPPS eS Pe ttt ts a ee COPT = '3%,, /*CHANGE INTERNAL OPTION TERM 
*/FET GO TO INV,. 
FAST FOURIER TRANSFORM FOR ANY ONE-DIMENSIONAL ARRAY */FFT END). 
*/FET ACL) =(AWtA(2))*1E-1B,. 7*CALCULATE VALUES 
(DRO OR OR RIO RO IORI OG OIG a IG III IOI HORROR IO AGS I i IIR RY F FT A(N+1)=(AW-A(2))*LE-1B,. J¥EACL) yAC2) ,ACNtL) AC NE2) 
PPOCEDURE(A,M,OPT) >. FFT A(2) =0,. 
DECLARE FFT A(N+2)=0). 
ERROR EXTERNAL CHARACTER(1), /*EXTERNAL ERROR INDICATOR */FFT RETURN. 
(OPT,COPT) CHARACTER(L) + FFT END,. /*END OF PROCEDURE FFT 
(0A,08,DC,0HsD0S,RI) FFT 
BINARY FLOAT(53), FFT 121 
(AC) 9S(28*(M-2) 41) ,AARY FFT 
AAI, ABRyABI yAW,CO,SI) FFT Purpose: 
BINARY FLOAT; /*SINGLE PRECISION VERSION /*S*/FFT 
BINARY FLOAT(53), /*DOUBLE PRECISION VERSION /*D*/FFT 
(T,IO,INO,IR IST, FFT a ; ; . 
JyKy Li MaN NH NO) FeT FFT performs finite one-dimensional Fourier 
pe 
IF HLT 2 /*TEST SPECIFIED DIMENSION H = */FFT analysis and synthesis for a set of N=2M real data, 
THEN DO 9. FFT 
ERROR="P"y. /*P MEANS WRONG PARAMETER */FFT N. = 9M-1 
ea to RETGRN cs Fe or for a sequence of =- = 2 complex data. 
END». FF ‘ ; 
ERROR="C'y. /*PRESET ERROR INDICATOR #/FFT Depending on the character of the input parameter 
COPT =OPT,. FFT . ‘ 
N -=2*#My. /*INITIALIZE PARAMETERS */ERT OPT, the following transformations can be done: 
NH  =N/10By. 
NQ  =N/100B+2,. FFT 
Ls =NQ+1y. FFT 
RI =3.141592653589793E+00/NH,. /#*RI MEANS 2*PI/N */FFT — tat . 
DAyS(1)=04. /*SET SINE FOR O AND PI/2 */EFT OPT = ‘0 real analysis 
DByS(NQ-L)=1y. FFT : 
DS-S(2)=SINCRI Dy. FFT OPT = '1! complex analysis 
oc =COS(RI),. JERE EKE RE RK EREAREAEEKKERKEREE/S FET. rot 
DO I =3 TO N/1000BF Ly. /*CALCULATE SINE TERMS €/FET = i 
RI =DC*DBy. /*BETWEEN © AND PI/2 ®/FET OPT 2 real synthesis 
S(L-I},DH=RI-DA,. JTRS RRR TOR TOR EEE ee ES / EET — tot ° 
BAe cubes FFT OPT = '3 complex synthesis 
DB =RI+DHy /*CALCULATION IS DONE USING  */FFT 
S(I) =DB¥*DS,. /*DOUBLE PRECISION ARITHMETIC */FFT 
END». FFT 
IF COPT= '2° /*"2" MEANS CALCULATION OF */ FET Usage: 
THEN GO TO REAL». /*REAL FOURIER SERIES - RS FFT 
IF COPT= "3° /**3° MEANS CALCULATION OF */FFT 
THEN GO TO INVy. /*COMPLEX FOURIER SERIES &/EFT 
AW  =1/NHye FFT : 
DO I =1 TO Ny. /*PREPARE VECTOR A FOR FINITE */FFT CALL FFT (A, M, OPT); 
A(T) =ACT)#AWs. /*FOURIER TRANSFORM */FFT 
END,. JR RHR RM RK RRR KK KKK KEKE SER LS EET M M 
/*REORDER INITIAL TERMS ACI)  */FFT ; 
=ly. /*BY BIT REVERSAL TECHNIQUE  */FFT A(2 or 2 +2) - BINARY FLOAT [(53) ] 
De I =1 TON BY 2¢. GR Re Ke Me eR he Re ea a a eR OK to tek KZ FFT . . a 
IF J GTI 7*1S BIT REVERSAL GREATER THAN */FFT Given one-dimensional array 
THEN DO>. /*INIT. BINARY REPRESENTATION */FFT . 
AAR =A(J)y~ FET with length 
AAL =ACJ+1) 9. /*INTERCHANGE ACI) WITH ACJ) 9 */FFT . M 
ACJ) =ACT)y. 7*AND ACI#1) WITH A(J#l) #/EFT = 
ACJ+L)SAC1#1)9. FFT N=2 complex Fourier 
ACL) =AARy. FFT for 
ACI+1)=AATy. FFT ‘ 
ENDy« FFT M calculations. 
=NHy. FFT N+2=2° "+2 real 
DO WHILE (J GT K)y. /*UPDATE J AND K */FFT R igen i; al 
Jo Edo Kae FFT e€suLitant transtorm values are 
K  -=K/1CBy. | FET ; 
END». FFT 1 + 
J -=d¢Ke. /*COMPUTE NEW BIT REVERSAL */ FFT returned in the array A, replacing 
END, . FEI ; 
=296 FFT the input data. 
=NHy. (De RO OO ao ido Adler ct 4 J FET . 
/*COMPLEX FOURIER TRANSFORM */FFT The contents of the input and out- 
/*WITH N/2 ELEMENTS */ FFT 
=[+I). [RRR RE RRO RE EO KK EET put array A depend on the option 
=ly. FFT 
DO J =1 TOI BY 2y. FFT 
SI ==SC IND) +. /*STORE SINE VALUES IN SI */ FFT parameter OPT: 
IF COPT= 3! /*CHANGE SIGN IN CASE OF */FFT 
THEN SI ==SIq. /*FOURIER SERIES. */ FFT In cases OPT ='1' and OPT = 
CG =S{NOQ-IND),. /*STORE COSINE VALUES IN CO */FFT 
IF J GE IR FFT ro? 
THEN DO. /*MODIFY INDEX IND OF THE © #/EET | 3' the complex data are located by 
IND =IND-IDy. /*SINE VECTOR S */FET ‘ P . ; 2 
CO =-COy. /*COS(PI/2+B) = -SINCB) «/FFT : pairs in N immediately adjacent 
END». FFT | ; 
IND =IND#IDy. FFT : 
/*EXECUTE TRANSFORMATION-LOOP = */FFT storage locations. In the other 
DC K =J TON BY ISTy. FFT j 
‘cee ae FET cases the N function values are 
AAR =CO*A(L)-SI*A(L41) 5. FFT : : 
AAT =CO*A(L+1I+SI#A(L) 9 7 FFT stored in N successive storage 
ACL) =AC(K)-AARy. /*MODIFY AND RESTORE ELEMENTS */FFT 
ACL+1)=A(K41)-AAT +. FFT : * . a 
Th onan au locations, while the Fourier co 
ACK#L)=A(KHLIFAALS. FFT . . oa 
ENDs « FFT 7 efficients a(n), b(n) need N+2 
END). FFT : 
Ik =l#lse /*#UPTATE PARAMETERS */FFT locations and they are stored as 
I =IS Tes FFT ; 
1D =ID/1CBy. : : FFT. : e 
IF I LE NH FFT follows: 
THEN GO TB CPLXy. © /*END OF OUTER LOOP #/FFT 
IF COPT= ‘1! s**1¢° AND €39 MEAN COMPLEX */FFT a 
THEN GO TO RETURNe. /*FOURIER CALCULATIONS */FET 0 = 
IF copT= "3! | FFT ——,. D = 0,824 Dey. Bas Des 
THEN GO TO RETURN?. De og oR ao di Sotoii took a fo aa / FET . 2 0 1 1 y; 2 
REAL... /*REAL VALUES FROM (FOR) */FFT 
I Ble. /*COMPLEX FOURIER TRANSFORM = */FFT 2 
DO K =3 TO NH-1 BY 29. [RRR OR ROR OR Ro Rk dc tok ok kok gto & J FFT : , N . 
J =N-Kt+2 906 : FFT a b ‘aimee 
AAR =A(K) FAC J) y FFT ; . N N 2 
AAI =ACK41I-AC +1) 96 FFT =| | 
ABR =A(K+L)+A(J+1) 9 FFT eo 1? goo oes array 
ABI =A(J) -A(K)y. . FFT 2. 2 
I -=1#ly. FFT 
SI -=S(L) 9. /*STORE SINE AND COSINE “/FET 
CO =S{NQ-I) ye FFT bh 
AW = ABRSCOFABI¥SI,. FFT N 
ASI =-ABI*COFABR*SI,. FFT ——= 0 
ACK) = AAR#AW )*1LE-1By. FFT 9 
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M- | 7 BINARY FIXED | | 
Given integer that determines the 
size of vector A. 
The size of Ais 


M 
2 oe complex Fourier 
0M +9 weal calculations. 
OPT - CHARACTER(1) 
- Given option parameter for selec- 
tion of operation (see " Purpose"). . 


| Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is setto zero. The 
following constitutes the possible error condition 
that may be detected: 


ERROR='P' means error in specified parameter -- 
for example, M<2. Any value of OPT different 
from '1', '2', '3' is treated as if it were '0'. The 
integer N in the given formulas (see '' Purpose") 
must be a power of two: 


ves” 


FFT is restricted to one-dimensional Fourier 
transformations. 

Another procedure, called FF TM, is available 
in SSP-PL/I which operates on multidimensional 
arrays. 

For real and complex applications of FFT the 
following is true: A forward transform (Fourier 
analysis) followed by an inverse transform (Fourier 
synthesis) returns the original data (except for 
roundoff errors). 


Method: 


Calculations depending on the option parameter OPT 
are done using the Cooley-Tukey Fast Fourier 
Transform. 


For reference see: 


J. We Cooley, P, A. W. Lewis, P. D. Welch, "The 
Fast Fourier Transform Algorithm and its Applica- 
tions''", IBM Research, RC 1743, February 9, 1967, 
pp. 15-33. 


N. M. Brenner, 'Three Fortran Programs that 
Perform the Cooley- Tukey Fourier Transform", 
Lincoln Laboratory, Massachusetts Institute of 

_ Technology, Lexington, Technical Note ESD-TR-67- 
462, 1967. 
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J. W. Cooley and J. W. Tukey, "An Algorithm for | 
the Machine Calculation of Complex Fourier Series", 
Mathematics of Computations, vol. 19, 1965, pp. 


297-301. 
Mathematical Background: 


Complex Fourier calculations 


Let X(k), k=0, 1, 2,..., N-1, be a sequence of 
N=2M complex numbers. The finite Fourier 
transform of X(k) is defined as . 


A(a) = = e x(k)» wo 
Ne " 
n=0,1, woe, Noi : (1) 


where 


ae 27 i ey ae 
Wy = exp Gz) and i =,/ 1 


Similarly, X(k) can be expressed as the finite 
Fourier series of A(n) 


ae nk 
Xk) = 2, AM): Wy (2) 
 n=0 | 


Since N = 2™M we express X(k) as a function of the © 
M arguments ky,_4,; kyy-9 °***ky, Ko of the binary 
representation of k: } 


ge ae Kp gone 
hee fee ek peas (3) 
Analogously, if 
— Rvy-1 ia ae ee n° 2 
min, = Oorl, ay 


- then equation (2) can be written: 


XOy-a, Kyegeret? ye Xo) 


1 4 1 | 
: Fan x pag eae 
0 1° #£“M-1 | 


M-1 | Now we must reverse the order of the bits in the 


des | no) Wn Ky A binary representation of k. FFT does the reorder- 
| | | ing on the initial array so that the result is in the 
wae a "2+ n) (5) correct order. 
| Real Fourier calculations 
| 2M N 7 
Using W = W,.. =1, we have . | 
sine Ny N ) | Given 2N real data Y(j), | =0,1,2,.00,2N-1. The 
ae oM-1 aa. 2 > M-I 7 coefficients of the trigonometric series 
sae | Fa | 0 M-1 
W = W 
N N 0 N-1 : 
vi) = M24 (atm) + cos Bh 
Therefore the innermost sum in equation (5) yields n=1 
an array: . ; a(N) 
+b(n) ° gp7lZ2L + (- tec Sahl 2 
(0) ° sin a) Gly 
A, (K,,n _opoeee Dn ) = 
pew Mr _ can be derived from the N-point complex Fourier 
; transform 
> A (O94? y-2? stenles n,»X)) ‘ N-1 sae 
™M-1 A) == DY X®)- Ww n=0,1,2,...,N-1 
M-1 N N 
k n ° 2 K=0 
yw 0 M1 
N 


where X(k) = Y(2k) + iY(2k+1) ; k=0,1,2,...,N-1. 


Then, summing over njy-9 to get an array Ay from Let (the bar is conjugation): 


Aj, and so on, leads to the general formula (L = 1, 


2 Diceieg Vl) 2C(0) = Re A(0) + Im A(0) 
| 2C(N) — = Re A(0) - Im A(0) 
| : N — N 
AL (Kysee05K, 4: Dt-L-1°°*" > no) 2C(5) = A (3) 
Calculate for m =1,2,... 5 - 1; 
1 
ie A (k 90 00% nD eal ? 1 — 
o a L-1°* 0 2, M-L* M-L-1 A, (m) = 3 (Atm) + A (N-m) ) 
 M-L . | 
A, (N-m) = = (A(m) - A(N-m) ) 
soo, 1,0) a 
r) 1° 0 = on 
| t-1 MEL 2C(m) = A, (m) + Ag (N-m) ° Won 
(k, 4°? +...4K) Oy, 7° 2 i 
, °W ~ = _ A ~- r) % 
N 2C(N-m) A, (m) A, (N-m) Won 


Now, identify the a(n), b(n) coefficients by means 


The final array will be the desired X. The 
of the relations 


storage indexing convention used here is to let the M 
arguments of Ay, (Kkg,---,Ng) be the binary representa- _ 
tion of the index of the storage location for Ay, a(0) = 2C(0) 
(kp,---,09)- In this way, each step of the algorithm a(N) z 2C(N) 
involves fetching from two storage locations and a(n) = 2ReC(n) 
returning results in the same two locations, thereby b(a) = -2 ImC(n) 
saving storage. However, the elements of the final 
array are in wrong order: 


\ n=1,2,...,N-1. 


Note: To compute the 2N real Y(j) (Fourier 
synthesis) when the coefficients a(n) and b(n) are 
k ) given, the process described above is applied in 
“M-1 reverse order. | 





X (k Jey okey) = AgglKys Kyo 


M-1?“M-2?°"" 


-Mathematics--Approximation 131. 


Programming Considerations: 


FFT accepts input data stored according to 
option parameter OPT: 


OPT = '1!' |] any set of = gM-1 complex values 


OPT = '3'{( whose real and imaginary parts are 


\ located by pairs in N adjacent storage — 


locations, : 


OPT = '2' the coefficients 
29 
Sg ee” 
2 a ae 
| 2 
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0 


in N + 2 successive storage locations. 
OPT = '0' N real elements in successive storage 
locations. | 


During calculation, input vector A is replaced by 
results depending on the character of parameter 
OPT. These results are stored in an analogous 
manner, For example, with OPT ='0', FFT 
calculates the N+2 Fourier coefficients a(n), b(n) 
and stores them into array A (with length N+2), 
overwriting the first N given real values. 


PROCEDURE FFT PERFURMS FINITE» ONE-DIMENSIONAL FOURIER CALCULATIONS FOR A SET OF N=2**4 JEAL DATA Al(L) > 


Stok A) eka kee 
x * 
[ PROCEDURE FFT z 


MK ee eke eK EK HK : 
x 

Bl xe SKKKVH? OHKKKHKAHK 
« ISM #, * * 
«*” GREATER —*. YES * PRE SET * 
* THAN OR EQUAL .#.eceee0eX# ERROR=*0" # 
*, TO2  .f * * 
x. Z * * 
; RERK BASS RK KKK 

* NO : 

x X 
RERKKC LEK EKER RE SEEKGCD BRP HH 
* J * *RESTORE OPTION * 
* ET ERROR="P', # * PARAMETER OPT * 
* P MEANS WRONG * * INTO LOCAL. * 
* PARAMETER * * STORAGE COPT # 
RRR EER RK KKK KKK RHEKRARSAKS SKA FRERE 

x z 

OK o 

* % ° 

* K4 % x 
* * KKK 2 SKKEKRKK EK 
eEKK % x 


* CALCULATE * 
*NUMBER CF NATA * 
* N=2 #*M * 


ok 
x * 
* AS t 
* x 
ee eS 


RERKSRKIIAREKS HS KRKK 
X 
RKEKBE? SRKKERKESK 
*CALCULATE SINE * 
*AND COSINE OF _0* 
*UP TO PI/2 WITH* 
*INCREMENT VALUE* 
OF 2*PI/N * 
RARER ERSRKKEREKLSH 
X 
. *. AL 
F2 *, REKRK ES RE RRS KK KEK 
-* IS *, *CALCULATE REAL * 
o* COPT="2%, *. YES *TRANSFORMS FROM* 
° I.E. REAL a Xewecccaseer* COMPLEX ONES KX acer onacvesesevesecsasnsccsces 
*, FOURIER .* . *FOR At3) UP TO * e 
*. SERIE. * * AUN) * ° 
a. .* MERE EKKKK o 
* NO ° ° 
xX xX ° 
« *. o*e e 
G2 *. G3 *. ° 
* 1S Xe o* tS e e 
YES .* COPT="3!4, %#, »* COPT=*2*, *. NO ° 
ecooe *eILEw COMPLEX 7% *. 1.€. REAL oF eaves eaeseeves saves e 
e *,. FOURIER . % *,. FOURIER .* e ° 
* #*. SERIE. * * SERIE* e ° 
e * .% x, .* e ° 
° * NO * YES * ° 
e X x ° e 
. RRARKAY 2 SRERAKHIKSE MEKEKEHARKKRK KKK . ~ 
e DIVIDE GIVEN * * PREPARE A(1l) #* ° * 
* * SET OF N REAL * * AND A(2) FOR. * . . 
. * DATA ACL) BY. * *CALCULATION OF * ° ° 
° * N/2 * * REAL FOURIER * ° ° 
° * * * SERIES ° ° 
3 REEKIRORRHRETS EGE RERKKKSEEKERKETKKE a s 
wecvecccnee Xe a e e 
WRK IP REAAESSE SKK RERKK JZRKKKE KEKE RHEE] GEEEEEREEKS ° 
*REORDER INI TIAL* % * * * ° 
* TERMS A(t) BY * * CHANGE LOCAL * *CALCULATE TERMS* ° 
* BIT REVERSAL *#Xeeeeeeee * CPY ION VALUE * & ACL),A(2)5 * ° 
: TECH NI QUE * * COPT="38 * : A(N#lL)sA(N#2) . . 
MEERA SSEREKSEKES REX RRR GK He eR KH RARER REKKKEK ERK Ee 
x RETURN * * 
SEEKESK? HHAKKSEKESE “ 
“INITIALIZE I=2 * BK ekeERE KERB GEEEKE KEES ; 
* FOR CCMPLEX * * * * * t END OF ke 
* FOURIER Hee X* AS % * K4 *....X* PROCEDURE FFT ® 
*TRANSFORM WITH * a * * * * ,S 
* N/2 ELEMENTS # SSeS eee REKAKKKRAKK KKHS 
KEKKHRHASERSRKRK ES xX 


L=1 to youre aN 


LX 
a BRAG eo Rk te dk 
a * 
* DOUBLE I AS * 
oeeeX# [TNCREMENT  #Xq. 

* IST=1+1 : 

RM KR He ee eK KKK & 

x 

BOR RORB Se dk ak ak tke te 
SINITIALIZE J=1 * 
*AS LOOP. COUNTER* 
4F0R EVALUATION * 

* OF ANGLES” 
RAE RKKK AKA AKEK EK 

x 

RERRECS RRARAKEKREKE 

* RESTORE SINE * 
*AND COSINE WITH* 
o+X* ARGUMENT CF # 
* PrC-Ji/T * 
BREAKER SEKKEKKKES 


X 
KERRY RRR KEK EK 
* * 
*CHANGE SIGN OF * 
*SINE IN CASE OF* 
eres SERTES [ 


REARKERE RSH EKEE 


REREKE DS FR EKERESS 
* TRANSFORM AND * 
* RFSTORE DATA  #* 
*A(L) DUE TO THE 
* PRE-EVALUATED * 
*SPECIFIC ANGLE * 
SPRAASKHS EKA GREE S 


we © & © oo BODITIMG wre & © 6 Oo © 


HRERKE GS RVR AK HEE S 
* * 


* INCREASE LCoP ¢ 
*CDUNTER J BY 29% 
* J=J+2 * 


RERRAKRE SEK EEKES 
x 
* 
S 
TE 
H 
L 
[ 
* 


x 
RA RR HY Se he ek ok eK 
* % 


* UPDATE * 
#PARAMETER I =IST$ 


* * 
ReAKKK KKK KS HRKRE 
X 
- *, 

J5 %, 

-* ‘ITS *, 

-* COUNTER I *. VES 
*. LESS THEN CR « eee 
*,FQUAL TO .* 
*. N/2 .* 
x,  % 
* NO 
x 
*, 
K5 *, 
- *1S COPT*. 
NO . ¥=*1" OR '34*, 
eocee TLE. COMPLEX .* 
% TRANSFORM, * 
*, * 
x % 
* YES 


eseesecaeaeesceaenavaev4enenospeeeeeenene06@ 


Mathematics--Approximation 


eeoeeteoteeteosesetetosseeoeetr sesso teseeoeeseeseseseeoevoesestoe eee eseeeseseseoevesesteeavrsesseevuseseeseeseseeeoseseteseeeaeseeeeseansesesevseesenoseaseesoeosenesetee 


133 


© Subroutine FF TM 





UIR “EA(K)  #A0K2) 96 FFTM1230 
ULI =A(Kt1) +ACK2+10 96 FFT™1240 
U2R.. =A(K3) +A(KG) 96 . FFT1250 
U2] =ACK34L) +AU KG41) 90 FFTM1260 
UBR =ALK)  —A(K2)9. FFTML270 
FETM.. . FFIM 10 U3] =ACK#1) -A(K2+1) 9. FFI™1280 
JOR RR oe a kok oe Ro Re ak a peak tie Re ik ok ie fete oe ie tak ok & J EE TM 20 U4R HA(K34+1LI-ACK4G41) 90 FFYM1290 
1® */FFTM 3C U4I =A(K4) -ACK3),- FFT™1300 
yx FAST FOURIER TRANSFORM FG MULTI-DIMENSIONAL ARRAY «/FETM 40 END» « FFTM1310 
PP eo : eohee ne, oe £ DO; ; | ~FFTM1320 
PRS LEEE SS DEP Ree ee eh Ne re eee De eRe tee ene TO ean Pie 60 T2R =W2R*A(K2) “WH2I*A(K241)5~ . FFT™M1330 
PROCEDURE(A,MyNDIM,OPT),. FFTM 7C T2I  =W2R¥A(K24+1)4W21*A(K2) 90 FFT™ 1340 
DECLARE FFTM 80 T3R =WR *A(K3) —WI #A(K341)_. FFTM1350. 
EPROR EXTEPNAL CHARACTEF(1), /#*EXTERNAL ERROR INDICATOR «/FFTM 90 T3I  =WR *A(K341)4WI #A(K3) 9 | FFTM1360 
OPT CHARACTER(1)5 FFTM 100 T4R =W3R*A(K4) -W3I*ACK44+1)—.~ FFITM1370 
(ACH) sPIARisRTHy TR» T2RyT2T, FFTM 110 T41  =W3R*A(K441)4W3T*A(K4) 9 j FFTM1380 
TAR yey T3231 ¢T4R pe T41 UIP ,ULIU2F, FFITM 120 ULR =A(K) +T2Ry. FFT™M1390 
U2T,U2R,U3T sU4R AUST pWRoWT FFITM 139 ULI =ACKt1)4T2I,. FFT™1400 
W2R gH2T gW3R WT) FET 14c U2R .=T3R  +#T4Ry. FFTML410 
BINARY FLOAT, /*SINGLE PRECISION VE8SION /*S#/FFIM 150 U2l “=T31  #741,. FFTML420 
J* BINARY FLOAT(CS3), ° /J*DOUBLE PRECISION VERSION 7*D*x/FETM 16C U3R “SA(K) “TOR, < FETM1430 
(le INDe Je IMe K K22K3—9K4eKDIF, : : FFIM 170 U31 =A(K+1)—-T21I 96 FFT™M1440 
KINC sKMyKMIN gL yLJyLMAXyM(*) > FFTM 180 U4R =T3I -T4ly. FFTM1L450 
MM» MMAX »N(NDIM) »NAyNAD.NB, FETM 190 U4I =T4R  —T3Res FFTM1460 
NBHyNDIMyNINGNT) FFTM 200 END;. FFTM1470 
BINARY FIXED,. FFTM 210 IF OPT= "1° /7*IN CASE OF FOURIER SERIES */FFETM1480 
ERROR='P',. /*P MEANS WRONG PARAMETER £/EETM 220 THEN DO. Ee Tapaae 
If NDIM LT 1 /*TEST NUMBER OF DIMENSIONS */FETM 230 Gane wacuane: PEqTME Sse 
THEN GO TO RETURN,. FFIM 240 U4 -=-U4I_~ FFTMLS10 
NT =2e.e FFITM 250 END?y. FFTM1520 
DO I =1 TG NOIM,. FFTM 260 A(K) =ULRtU2R_- /*COMPUTE AND STORE NEW VALUES */FFTM1530 
NOI) sK=LOB*¥*MIT) 4 J*COMPUTE AND TEST DIMENSION SFEFTM 2709 ACK4+1)=ULI+U2T -. FFIM1L540 
IF K LT 1 j FFTM 280 A(K2) =U3RtUGR 4. FFTM1550 
THEN GO TG RETURN,y. /*CALCULATE TOTAL NUMSER OF #/FETH 290 ACK2#1)<U3T4U4I 96 FFTM1560 
Pieces | CaELEMENTS geen A(K3)=ULR-U2R +. | FFTM1570 
re mes A(K341)=ULI-U2I_¢ . FFIM1L586 
/*COMPUTE PIT AND RTH */FETM 320 habia 
PI =3.141592653589793E+#00 FFTM 330 Rot cur eau ants SR he 
=3. re AUK4+1)=U3I-U41). FFTM1L600 
RTH =7.071067811865475E-Cly. /*RTH MEANS SQRT(2)/2 */FETM 340 aay poate 
NA =2y. EMO eae TENG Tees Seer ee Waa KMIN =L+(KMIN-L)*1C00B,. /UPDATE KMIN, KDIF AND IF NEC=*/FFTM1620 
DO IND =NDIM TO 1 BY -ly. /*LOOP FOR EACH DIMENSION x/FETM 360 7 
eT eae reseeene seas eeleseauet/PETH 318 OTE SEIN /seSsAny REPEAT TRANSFORMATION 2/¢FT=2630 
se ee ea at oe THEN GO TC INCR;. /*VALUES tIEETHL650 
*/FFETM1660 
THEN Go a MULTE BL ae L =L+2,. 7*MODIFY L AND -IF NECESSARY- ¥*/FFTM167C 
J =l,. : JR tek tok tet kok tek tok kok ok kok tek etek SEP TM 420 aie En ne STRT /*START ANOTHER TRANSFORM ieee 
D0 I =1 TO NB BY NAy. /*BIT REVERSAL TECHNIQUE */FETM 430 a ie ie mieeraiice 
q cae d 4 4 -. 
Piece ea nea HOG ROUEN ne pT Tan eee teen Gee =J+LMAXy. /*MODIFY J AND -IF NECESSARY- */FFTM1710 
KM =I+NA-2).- FFTM 480 o ae ener eeea le 
JM =J-Il,. FFIM 470 #8 z ~ 
2 TR -=WRye /*IF 2 = COS(RI) + TXSINCRI) « */FETM174G6 
De ed eee ea eee WR =(TR#WI)*RTH,. /#THEN Z IS SUBSTITUTED BY */FFTM1T5C 
: re WE 9 =(WI~TR)#RTH,. /#Z = Z * EXP(-PI/4 * I) x/FFTMLT60 
a eee as ne es IF OPT= ‘1! FETMLT77C © 
We =A(L),. INTERCHANGE ACL) WITH ACLS) */FETM 510 THEN OnY Ailes 
WI =A(L#1),. /*AND A(L#1) WITH A(LJ#1)  */FETM 520 Te Mis. 4-PRe-We Rune oReacRe eiccami ios 
A(L) =A(LJ) >». FFTM 530 WR -=-WI ye 782 = Z * EXP(#PI/4 * T) */FETMLBOG 
A(L+1)=A(LJU41),. aa na wl =T2y. FFTM1iB1C 
A(LJJ=HRee 5 ENDy. FFTM182C 
A(LU+LI=WT ys FFTM 560 GO TO DOUBLE). FFT™1830 
MODI.. aha (SROOTEY PARAMETER: od: AND. -K aah oan NIN =3-NIN». /*UPDATE NIN AND DOUBLE MMAX  */FFTM1860 
bad ge -” 
SO WHELE (J GT K)ge FFTM 610 OO a0 MATA | | PETNLSeC 
J =J-Kye FFTM 620 MULTI o« FFETM1890 
ge. by 
END». as FFTM 640 ENDs » ; . . FETM1910 
Jo Hd tKye /*COMPUTE NEW BIT REVERSAL */FETH 650 ERROR='0'y. /*SUCCESSFUL FOURIER TRANSFORM */FFIM1920 
END» - FFTM 660 RETURN FFTM1930 
NAD =NA+NAy. FETM 670 ENDs. /7*END OF PROCEDURE FFTM iecwmisse 
ODD.. /*TEST FOR ODD MCIND) &/FETM 680 pene z 
IF NIN LT 2 FFT™ 690 
THEN GO TO LENG». /*MCIND) IS EVEN, NIN = 1 */FETM 700 
IF NIN= 2 '  FFTM 710 
THEN GO TO LEN2y. /*MCIND) IS ODDs NIN = 2. */FFT 720 
NIN =NIN/100By. FFT 730 Purpose: 
GO TO ODD,. DOR RR ROR RIOR RIOR RR OR RO ORE, FE TM 740! 
LEN2.. / TRANSFORM WITH LENGTH 2 */FETM 750 
DO I =1 TO NA BY 2,. 71 RR RR tok Re te te tak tok tok eek ek tok FF TM T60 
core Noe | ean FFTM performs finite, multidimensional Fourier 
WR =ALLD ye FFTM 790 ‘ . 
ai MATOS «BETH 800 forward or inverse transformations for complex 
ACL) =ACKI-WR ye /*MODIFY AND RESTORE ELEMENTS ¥*/FFTM 810 ; : 
ACL#L) =ACK#L“WI ys FFTM 820 arrays whose dimensions are powers of two. 
ACK) =A(K)+WRy. FETM 830 . 2 : 
AKL =ACKEL) ANT FFTN 840 Depending on the value of the input parameter 
ve 
END). JOC OIC TO III IO OR IR tr / FETM 860 ; 1 e 
eee: Pe ba Scha ia hha ae OPT, the following transformations can be done: 
MMAX =NAy. /*WITH LENGTH 4 */FETM 880 
MAIN.» TRH RH LK Ke eae fe eee Ke He ok ak Re KAR EKER, EL IM 890 
IF MMAX GE NBH FFT 900 a . 
TUeR CO; TOsMuCeiaa | FFIM 910 OPT ='0' forward Fourier transform 
MM =MMAX#MMAXye FFM 920 : é 
LMAX =MAX(NAD,sMMAX/10B) >. FFT 930 OPT ='Ii' inverse Fourier transform 
DO I =NA TO LMAX BY NADy./#EXECUTE LOOP FOR CALCULATION */FFTM 940 
J =Iy /*OF ANGLES FOR SPECIFIC MMAX */FFTM 950 
IF MMAX LE NA FFTM 960 
THEN GO TO INITLo. FFTM 970 Usage: 
PI =-PI*J/MM,. FFTM 980 
IF OPT="}": FFTM 990 
THEN FI -==RI 9. /*CHANGE SIGN FOR CALCULATION */FFTN1000 
WR  =COS(RI) 9. /*OF FOURIER SERIES */FFETMIOLO 
Wl -=SIN(RT)y. . FFIM1L020 CALL FETM (A, M, NDIM, OPT); 
DOUBLE.. FETH1030 
W2R =WR*WR-WIRWI >. /*COMPUTE COSINE AND SINE &/EETM1040 
W2L  =WR#WI*LOE+00B.. /*FOR 2#RI AND  3*RI */ FETM1050 14M, +M..2.M 
W3R  =W2R#WR-H2I *W1». FETM1060 A (2 2° ~ NDIM) = 
H3I  =W2RSWI+H2I*WRy. 3 FF™1070 : -: 
INITLe. /*INLTIALIZE L AS INDEX FOR */FFTM1080 
Ly. /*MULTIDIMENS TIONAL CALCULATIONS*/FFIM1C90 BINARY FLOAT [(53)] 
STRT« FFTM1100 
IF MMAX= NA /*COMPUTE START VALUE KMIN FOR */FFTM1110 ‘ . : 
THEN KMIN =Ly. /*TRANSFORMATION LOOP */FETM1120 Given one-dimensional real array used 
ELSE KMIN =LtNIN*Jy. FFT™1130 ages . 
KDIF =NIN*®MMAX . : FFTH1140 to hold the complex multidimensional 
INCRe. - /*COMPUTE INCREMENT FOR THE */ FF TM1150 A ————— 
KINC =KDIF*100B,. /*TRANSFORMATION LOOP %/FFETN1160 ) 
DO K =KMIN TO NT BY KINC,. Pk FFTM1170 array (Ni, No; ieee NNDIM. to be 
K2. =K +#KDIF 9. | FFTM1180 
K3-=K2#KDIFy. 7*KyK29K3,K4 ARE PARAMETERS  */FFIM1196 transformed, 
K4 . =K3+#KDIFe. /*FOR OPERATION WITH LENGTH 4 %*/FFTM1200 * * : 
IF MMAX= NA /*WETHOUT MULTIPLICATIONS */EFETM1210 The real and the imaginary parts of a 
THEN DO. . FFTM1226 





data element must be placed by pairs 
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into immediately adjacent locations in 
storage. Note that the last subscript 
increases most rapidly. 

Resultant complex Fourier transform in 
the same storage order. 

The number of elements of vector Ais 
1+M *M, 


"ee*Nupm 7?! 


re Mypm 
M(NDIM) - BINARY FIXED 
Given integer vector of length NDIM, 
which determines the extent of each 
dimension of complex array A(Nq, No, 


NnpIM): 


a°Ni° No 


M(2) 


se MGL) eS 
NS o Nea casi 


NDIM 
_ gM(NDIM) 


BINARY FIXED 

Given number of dimensions of 
multidimensional array A. 
CHARACTER (1) 

Given option parameter for selection of 
transform. 


NDIM - 


OPT - 


Remarks: 


Procedure FF TM is to be used for Fourier trans- 
forms of complex, multidimensional arrays in which 
each dimension is a power of two: 

oMv) 


N 


‘ with y = 1,2,...,NDIM 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. 

Error parameter ERROR='P' is returned if 
NDIM <1 or any Ny <1. 

A forward transform followed by an inverse 
transform, returns the original data multiplied by 
Nz ° No*..-Nnpry (except for roundoff errors). 


Method: 


Calculations performed are based on the Cooley- 
Tukey Fast Fourier transform. 


For reference see: 


Jo W. Cooley, P. A. W. Lewis, P. D. Welch, 'The 
Fast Fourier Transform Algorithm and its Applica- 
tions", IBM Research, RC 17438, February 9, 1967, 

pp. 15-30. 


N. M. Brenner, ''Three Fortran Programs that 
Perform the Cooley-Tukey Fourier Transform", 


Lincoln Laboratory, Massachusetts Institute of 
Technology, Lexington, Technical Note ESD-TR- 
67-462, 1967. 


J. W. Cooley and J. W. Tukey, "An Algorithm for 
the Machine Calculation of Complex Fourier Series", 
Mathematics of Computations, vol. 19, 1965, pp. 
297-301. 


Mathematical Background 
The normal algorithm 


Let B(aj,0o,...,N7,) be a complex multidimensional 
array whose dimensions are powers of two: 
w= 2M) =1,2,...,L 
V 
The finite Fourier forward transform of B is defined 
as 


1 N,-1 
MGsssk JS 
= Ny No eg n. =0 
1 
Ny-L 
Hen Bin, +60; n, ) (1) 
a ‘ 
=—niek ae 
See = eh 
1 0@ee L 
where 
_ afi es 
Ms = wo (7) ama =a/-1 


Similarly, B(aj,... Oy) can be expressed as the 
finite Fourier inverse transform (or Fourier series) 
of A(ky, 9065 ky )e 


N.-1 N_-1 


1 L 
sia aaa Se coe =, A(k,,000,k,) 
1 L 
: iis) ny . gu 
1 eee L | (2) 
The innermost sum yields an array 
N,-1 
he as Pe es a a 
k. =0 
L 
es ae 
L (3) 
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Since equation (3) is equivalent to a one-dimensional | 


problem, we discuss now the algorithm for one- 
dimensional complex Fourier transform. 


X(n) = e Aw + W. , Wy = exp (=2*) 
k=0 eC: 


Since N = 2M. we express X(n) as a function of the 


M arguments njyj-71,Dy7-9)¢«-Ny,Ng of the binary 
representation of n: 


+,..t,-24n_; = P 
n,-2tn) n, 0 or 1 


Analogously, if 


M-1 
k=Ky4 2 + Kye 2 


+- k2+k) : k= Oort 


then equation (4) can be written: 


X(Qy7 42 D2? a “> N) = 
1 1 
ran dL AR yy Syee kj +ko) 
0 M-1 
M-1 
an (K-41 2 ; +k, 2+ky) 
N (5) 
M _ = 
Using wy = Wy = 1, we have 
M-1 M-1 
nek °2 nk 2 
Wr M-1 =w 0 M-1 


Therefore the innermost sum in equation (5) yields 
an array: 


A, (Kyo: 090 rk,» kK) 


1 


: k 2 _g Sa-a “2 **° M10) 
M-1 = 


ile. ao 
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Then, summation over kv 9: to get an array Ao 
from Aj, and so on, leads to the general formula 
(L = 5 ae ©ees9 > M): 


k a snicaieks 


ae on ee a “M-L-17°°" o) 


1 


: da Ary Moses Dy os Kye Ky pd 
M-L 


oo le sie 
L-1 _M-L 
° e 2+ ° ‘ 
(1,4 2 t...4n, 2 Do) KEL 2 
Ww 
N 
(6) 


The final array will be the desired X. The storage 
indexing convention used here is to let the M argu- 
ments of Ay (Ng, -0+,Kp) be the binary representa- 
tion of the index of the storage location for Ay, (Xp; 
S66 ko)e In this way, each step of the algorithm 
involves fetching from two storage locations and 
returning results in the same two locations, thereby 
saving storage. However, the elements of the final 
array are in wrong order: 


X(n 


a? 27°72 Bo) = Ayg Moe Myre +e >My) 


Now, we must reverse the order of the bits in the 
binary representation of n. FFT does the reordering 
on the initial array so that the result is in 1 the cor- 
rect order. 


The two-step algorithm © 


A modification that achieves further economy at the 
expense of program complexity is to take two steps 
at a time when the Ay, in equation (6) are calculated. 
Let us define J as the index given by the high-order 
L-2 bit positions of an index and let K be the low- 
order M-L bit positions: _ a 


AL (Qp> ece °) 9? oa as He be KM-L-1, . ag »K,). 
Let: te 
| (1, 9. gis ee +n,2 +n) . 2M : 
U=W. | | | 


Then the step from L-2 to L-1, with 


gure e 
Wx © Wo = ol 
is: 

Ay ng (91 Oy pe B) = Ay 9 OK 7 8) 
A. _(J,1,k Ky): u" 

Leo yer? 
(7) 

A, (GLK K)HA od, 0k, 18) 
(4,5 oe 

M- TT? K) 


for RWI = 0,1. 


For the step from L-1 to L, we ae use of the 
fact that 


Ye 7 
N = War = i and get: 
AL (J, Ny 9 0,K) = AT 4 (J, Dy 9° 0, K) 
n 
. L-2 
+ Ay 4.0, _o 1,K)+i -U 
(8) 
AL (J, Dy _o?ts K) = A, 4; Dy 9? 9K) 
n 
. L-2 
“A, 20) 9: 1, K)¢ i | U 
for Dy 9 = 0,1. 


Dropping J and K to simplify notation, we write 
equations (7) and (8) in a form that requires only 
three instead of four complex multiplications. To 
do this, let | 


A, 1 po: I = Ap_yn 1,K)* U 


p19 8y_9 


Then, we have: 


for KEL =0 
AD 4 (0,0) = Ay 9 (0, 0) + A, _o(l, 0)° U 
. 2 
Ay 4 (1,0) =A 9 (0,0)-A 9 (1,0)° U 


for KMI-L =1 


,D=A, (0,1) VFA, , (1,1)* U 


A, (=A, .(0,1)° U- A, (1)° U 


for ny 9 = 0 (9) 


A, (0,0) =A, _, (0,0) + oe (0,1) 


A, (0,1)=A,_, (0,0)- A, _, (0,1) 


L-2 


for n =] 


A, (1,0)=A,_, 2,0) +A 


Tei) (1,1)° i 


A, (1,1) =A,_, (1,0) - A, , 2-3 


These equations are used for L = 2,4,6,...,M, if 
M is even. If M is odd, a single step is taken with 
L = 1 and equations (9) are used with L = 3,5,7,..., 


MM, 


‘The cases with J = 0 and J = 1 are programmed 
separately to avoid multiplications: 


J=0 gives U=1 
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FFIM PERFORMS FINITE» MULTIDIMENSIONAL FOURIER TRANSFORMS FOR COMPLEX ARRAYS» WHOSE DIMENSIONS ARE ‘POWERS OF THO” 


; ERRKGAD SRRKKEKKE 
BERK A LR KE EE *REORDER INITIALS 
* x ATA ARRAY A BY* 
*PRUCEDURE FFIM * 2eX*® BIT REVERSAL *® ceeee 
€ . + cook TECHNIQUE * 2: 
Me Re Me ee he ee Hee ke ek ek > * * 2 
's . KKKASESSHEKKSKESREKS a 
a KKKK Ps A 
e * * e es 
x * A2 * : : 
* bg * 7 * 
i KKKK es é 
x x : 
RKRKK BH DPRK RAKE KE SKE tL aati . 
* * * Pe 
¢ PRESET * k #2: ts 
*  ERROR=!p* 9 * NAD = NA#*NA *® 3 
* * * x * 
* : *x * x ‘6 
MEEKER KEKE KSE RRA KK KHAKKK ‘ 
x x : 
aXe o %e e@ 
Cl C2. : 
so ®NUMBER "&. -* TS "4%, ; 
YES .*° NDIM OF “*. EVEN «* EXPONENT — be 
eene*® DIMENSIONS I1S5.% cece %eM(IND) GON OR-*® 2 0X 
: LESS THANe® x x EVEN .# a 
7 %. ONE .# z +. .* or ad 
ea are X e %, o * es es 
: * "NO : *” ODD eto 
s es e e@ o* 
: : zi : 2* C3 
s s eo e o* 
es s e e@ e BS ES 
: x SLEN2 x ; 
é RHRKE PY LKR EKE PA KKK? ESKREKSEKRSH ‘a 
2 26 ~©~6CALCULATE)— ® 2 *®)UOUNEN = 2y * 3 
> 3=6& «6DIMENSIONS * s = =*® CALCULATE ONE ® ° 
5 NCT)=28*M(1T) * ar FOURIER * : 
2x FOR * > XTRANSFORM WITH ® . 
> ¥ 151s 2p see gNDIM > 36 LENGTH TWO) Uk) 
e MK HR RK ee eK Ke KK - MRAASKAREKSEKKEREK é 
oe e es e-0ee 66 6eeAe e 
s Xx e @ 
B *, LENG x = 
o El x. RKKEKE 2 KGKEKSEGEEKH ‘s 
° o* TEST *, x NIN = ls . * Py 
: -*DIMENSIONS.*. NO INITIALIZE MAIN® 
5 OL IS ANY N(IS 2%e ace * ROUTE SETTING * ; 
: eILESS THANe® *  NMAX = NA x 
a %. ONE .*: : x aoe , 
* *., ~* 7 REKEEKAKKKEKSEREEK ~ 
2 * YES e e 7 = 
a6 eS wise ee ee ks = a e 
p : x : 
RETURN ; : MAIN -% : 
x z F2. : 
SKKEE LHKHHE KES ai -*END OF * 
* END OF * 3 ~*MAIN LOOP, *. NO. 
»eX*PROCEDURE FFIM * < 2 ..X#.MMAX GREATER .% eee 
* * 2 2 #. THAN OR =o 
HEKEREREERE EES Be #.NB/2 .* 
. Sine a Ne 
RK o *KKS * YES 
* * o*¥ * Py 
* Fle Ce FQ * 
x * * * > 
REKKK oe RKEKK ‘. 
3 MULTI x DOU 
RRR GLEKKAEKEKSE KS PY SHREKICD SHKKKKK GAS 
* COMPUTE TOTAL * * 
*NUMBER OF TERMS® ¢ & 
ENT=2®N(L)ENC2)8Xe00 | * NA = NB Xen 
* *.e2N(NDIM) * * se 
REEEKEKREKEKKEEEEKSE KXKRERKSKKSKKKEKHKEKSE ss 
< * xKXS 
J . + * 
: : * G2 * 
Ps é bg * 
é - ekKS 
x x 
RHEREK EYL RKEREKKKEK REKKSHD SKKEKESKSES 
* INITIALIZE * k * 
* IND=NDIM AS # * DECREASE LOOP * 
* LUUP COUNTER * * COUNTER IND, * 
* FOR EACH * * “ IND=IND-L> * 
* DIMENSION # * * 
RRR KE RRR REE EE ERRKEAPR EERE SERAEE 
‘ X 
x .*, 
RRREK YY LRH J2 *, 
*#SET PARAMETERS * END OF *, 
* FOR LOOP OVER * NO .*TRANSFORM, * YES 
* DIMENSIONS EXeevecocce . I.E. 1s IND e e@eseeoevee8080 
* NIN=NUIND) # 7LESS THAN. * 
* NB=NASNIN #. ONE .# 
RR RE RK RK KK x ,* 
‘ * 
x 
oe 
KL’, 
oe OTS RL 
e*” INO-TH “#*. YES 
* —DIMENSION GF. enee 
. EXTENT .* : 
oN IN= 1. A 
ae x 
*x NO eK 
< ee KE x * 
oi x *€ G2 * 
weX# AZ *® * * 
*x zkoe«K 
exe 
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aa a Seat 
x 

*CALCULATE LMAX * 
AS MAXIMUM OF * 

= NAO AND MMAX/ 2 : 


CREE ERE KEKE KEE 


C3 , 
.* MUL *. 
»*PLICATIONS *. 
* NECESSARY, IE.® 
x. MMAX GT o* 
NA of 
. ef 
YES 


* 
I- 
I 
R 


* 


% 
* 


ee6 


Me 


a aaa da 
* COMPUTE ANGLE ¢ 
* RI = * 
#-PI#I/(2*MMAX) # 
RRRKEKKKEKKKKKKKKKEK 


i om 
Ketones t HOD AMHM@Ke ee tes 


EKEKKEZRKREKSEREKEK 
* 


CALCULATE 
WR=COS (RI) 
WI=SIN(RY) 


T 
KEKE ERERKEAKK HEH 


HRD 


* 
* 
* 
* 
* 


AHHH IZ RRR RT EK 
*SET ERROR="0', * 
*1T,.E. SUCCESS FUL* 
* FOURTER * 
4 TRANS FORM i 
KER EKE EEE EEE 
- RRRK 

<8 * 

2 oX# FL * 

* x 


ERK 


NO 
oe eX 


2 o0e 


INITL 
BREA GKKKERKKKEK RKEKRAS KEE EEKKSE 
®INITIALIZE L=1 * x ® 
* AS INDEX FOR * * * 
wo oe Xf “UL TI- * % L = L+2 
* DIMENSIOVAL * * 
si * CALCULATIONS #* k & 
‘ ERE EKKKKKEKAEKE REREREKKAKEKKEK KK EK 
oe e xX 
> STRT x a 
* REEK EA GRKARKK KKK K BS x, 
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: TRANSFORMATION ®Xescecece % STARTED, TE Le# 
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. SEEK AKKKKEKKEKEKE x . 
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= INC x Js 
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e e e e * YES 
es -@ xX 2 x 
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és REEKKG GEEKKEEKEKKES ame RRRKES 5 RSKKKAKKKE 
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© Subroutine APLL 


APLL.. APLL 
(OOO A tO tO to io to domo cr io cai oka dai toa aatctoi iio sagotok dak aakcgciaiatokac ici aicok 7A PLL 
/* */APLL 
/* SET UP NORMAL EQUATIONS FOR A LINEAR LEAST SQUARES: */APLL 
1% FIT TO A.GIVEN OISCRETE FUNCTION S/7APLL 
/* *7 APLL 
GAR HR He He He He he me he ae Ae eR le ae he ae he a a ae ee ak ae ee ok Re atk i a Ree ate a ai ete ea ak i ok Xe a ae ok a a eho APL L 
PROCEDURE( FCT» Ny IP sWORK) 9~ APLL 
DECLAPE APLL 
FCT ENTRY» APLL 

POOR Re ae eer eeWehl APLL 

BINARY FLOAT, /*SINGLE PRECISION VERSION /¥*S*/APLL 

BINARY FLOAT(53)_ /*DOUBLE PRECISION VERSION /*D*/APLL 

(Ne IP,LIP,IPlL slo JeKeb yM) APLL 

BINARY FIXED APLL 

ERROR “EXTERNAL CHARACTER (1) + APLL 
ERROR='0', /*SUCCESSFUL OPERATIAN */APLL 
LIP =IP ys APLL 
IPL =LIP+1ly. APLL 

M =IPL¥(IPL+1)/2,. APLL 

00 I =1 TO My. : /*INIT. RIGHT HANO SIDE AND */APLL 
WORK(I)=0,. /*COEFFICIENT MATRIX EQUAL ZERO*/APLL 

APLL 


/*TEST SPECIFIED DIMENSIONS 
THEN IF LIP GT O 
THEN IF N GT LIP 
THEN 00 I =1 TO No. /*FOR I-TH ARGUMENT 
/*PROVIDE VALUES OF GIVEN FCT.» */APLL 
CALL FCT( Is NsLIPsPyWGT) 9. /*WEIGHT AND FUNDAMENTAL FCT. ¥*/APLL 
IF ERROR NE 'O! APLL 
THEN GO TG OUT,. /*ERROR IN PROCEOURE FCT. */7APLL 
J =Oy- 
a K =1 TO IPL». 
=P(K)*WGT). 
- L me ie Kee 


/*COMPUTE COEFFICIENT MATRIX 
/*AND RIGHT HAND SIDE 


=Jt1ly. 
WORKCJ)SHORK( J)+PCLD #Aps 
Dye 


END,. 
/*ERROR IN SPECIFIED BINENSTONSS7-APLL 410 


END». 
ELSE ERROR='D',. 
OQUT.. APLL 420 


END». /*END OF PROCEDURE APLL *7APLL 430 





Purpose: 


APLL sets up the normal equations for a polynomial 
least squares fit to a given discrete function. 


Usage: 
CALL APLL (FCT, N, IP, WORK); 


ENTRY : 

Given procedure supplying the values 
of the fundamental functions, of the 
function that is to be approximated 
and of the weights. 


FCT - 


Usage: 
CALL FCT (i, N, IP, P, WGT); 
I - BINARY FIXED 


Given subscript value for 
current point. 
N- BINARY FIXED) 
Given number of points. 
BINARY FIXED a 
Given number of funda- 
| mental functions. 
P(IP+1) - BINARY FLOAT [(53) ] 
Resultant vector containing 
values of fundamental func- 
tions, one up to IP, 
followed by value of func- 
tion that must be approx- 
imated for the i-th argu- 
ment, 
BINARY FLOAT [(53)] 
Resultant weight value 
for i-th argument, 


IP - 


WGT - 


N - BINARY FIXED 
Given number of points. 
BINARY FIXED 
Given number of fundamental 
functions. 
WORK((IP+1)(IP+2)/2) - 
BINARY FLOAT [(53)] 
Resultant vector containing the 
lower triangular part of symmetric 
coefficient matrix of normal equa- 
_ tions, stored rowwise, followed by 
right-hand side and square sum of 
function values. 


IP - 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 


ERROR="'D' means error in specified dimensions IP, 
N -- that is, IP is not less than N or N not greater 
than 1, 

For solving the normal equations: ASN may be 
used. 3 

If ERROR is set to a nonzero value within 
procedure FCT, control is returned to the calling 
program. 


Method: 


The normal equations stored in the vector WORK 
are obtained by minimizing 


N 


we) [£0%,) - POS) ] 


k=1 
where: 


w(X,) is the weight value for argument Xe 
f{(X,) is the value of the function to be approximated 
p(X) is the value of the approximation function 


Mathematical Background: 


Let f£(x), gj(x), i=1, 2, .., IP, and w(x) > 0 be 
functions defined for x = x1, X5,+0,XN (the x; may be 
vectors as well as scalars). 

The problem is to determine the. coefficients Cy 


IP 
of the linear combination PA) au C18 0 § such that 
| | i=1 


N 


Xi wes.) s,) - Pe) = mine 
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This problem leads to a system of linear equa- 
tions AC = R, where C is the vector of unknown co- 
efficients, Ais the IP by IP symmetric poetave: 
definite matrix with elements 


. 
a = XL w(x,) & (%) &, &;) 


and R is an IP dimensional vector with elements 


N 


2, wees); 


| is 


(See ASN for details. ) 


Some remarks regarding polynomial approximation 
are in order. Use of monomials gj(x) = xivl as 
fundamental functions results in a very badly condi- 
tioned coefficient matrix A. If Chebyshev or fg 
Legendre polynomials are used instead, the condition 
of the normal equations is improved remarkably, 
provided the arguments have a sensible distribution 
(for example, equidistant in the interval -1 to +1), 


Programming Considerations: 


To allow for full flexibility in data handling, the 
user must provide a procedure, described under 
"Usagel', 

Coefficient matrix A and right-hand side R are 
stored adjacently. Within a linear array WORK, 
the lower triangular part of A is stored rowwise, 
followed by R, which is augmented by one element, ff, 
in which the weighted square sum of function values” 
is returned. 

WORK = (444; 812, 499,-6+, Aq[p»---, AT PIP » 
1,--,V,p, ff) represents a triangular array. 

The described storage allocation of WORK is 
required by procedure ASN. The user has full 
flexibility for handling of the data 


xi E(x, ), ” (x,); 1 (x), nog ‘Srp (x,) 


1. If he wishes to allocate 


x» £(x.), w &), 8) Hoes Sp &) 
in main storage he may use external declarations. 

2. Calculation of some or all of the required 
quantities as functions of the subscript or as func- 
tions of the argument x; is another convenient choice, 

3. The needed data may be read in sequentially 
from one or more external devices. | 

The three cases listed above may occur in any 
sensible combination. | 
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® Subroutine APC1/APC2 













































































APClee APC 
PRR IOI OR fo 2 Ro RO IRR aa a gg Rob Sok Rok ie HK ZAP C 


/* */ APC 
/* SET UP NORMAL EQUATIONS OF WEIGHTED LEAST SQUARES FIT IN ~ */APC 
/* ‘TERMS GF CHEBYSHEV POLINOMIALS FOR A GIVEN DESCRETE FUNCTION */APC 
/* */ APC 


fROR RRO tok $0020 Roti toto kek doko ak igo kak feted tte k i gee ak ak cake ae ate age ate ae ae ate ae ae af a a ae ate ae ate a ate aca oie ate ie ke ake ak ok 7 APC 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/APC 


(Ne IPeNNeLNegIP1leIPP,EPL, APC 
Fee : APC 
BINARY FIXED ; APC 


(TEST,ERROR EXTERNALICHARACTER(1) 9 APC 


SUM =Ove 
DO I =1 TO LNy. ‘APC 
Tl =EXL*EX(1)4+XC ee /*TRANSFORM ARGUMENT TO (~-1lel) */APC 
A =1l». APC 
IF TEST="1! /*SHOULD WEIGHTS BE USED, THEN */APC 
THEN A =W(1),. /*SET A TO I-TH WEIGHT 
B =TI*A,. APC 
FI =V(I)+ /*SET FI TO FUNCTION VALUE 
SUM =SUM+F IL #FI*Ay /*UPDATE SQUARES SUM 
FI =FI+FI,. APC 


DO L =1 TO IPP-1,.. /*UPDATE RIGHT HAND SIDE AND */APC 
C. =Age /*WORKING STORAGE */7 APC 
tt =Lye ; 





WORK(LL)=WORK(LLI+C,. 
TF LL LE IP APC 


THEN DO,. ; : APC 

LL =EP+LL,. APC 

Cc =C*FI.. - APC 

GO TO REP». ; APC 

 ENDs« . APC 

Cc =TI*B,. APC 

C. =C~-A+C,. APC 

A =Bo. APC 

. B . =Coe . APC 
END,. , APC 
END». APC 
LL =EPl,». APC 


DO K =IPP TO 2 BY <2+. /*COMPUTE COEFFICIENT MATRIX &/ APC 

L =1ly. APC 

, KK =Koe APC 
STORE..« APC 
tL =Lb-ly. . APC 

KK =KK~—1, APC 

WORK(LL)= WORKCKK)+WORK(L) 9 APC 

L =L+1,. APC 

IF KK GT L APC 

SIS GO TO STORE,. APC 

APC 


WORKCEPED = =SUM#SUMy * J*INSERT SQUARE SUM QF FCT.VAL.*/APC 


ERRGOR="C*, /*SUCCESSFUL OPERATION */APC 

END, APC 

OUT.. APC 
*/APC 


END» - /*END OF PROCEDURE APC 


Purpose: 


APC1/APC2 sets up the normal equations for a 
polynomial least squares fit to a given discrete 
function, using Chebyshev polynomials as funda- 
mental functions. | 


PROCEDURE (X_VoWsNoIPyXCyX1leWORK) +. APC 
DECLARE APC 
OX0%) yV¥C%) pWO%) 2 X09X1 pHORK(*), APC 
ArBeCoTIyFI SUM) APC 

/* BINARY FLOAT(53), /*D0OUBLE PRECISION VERSION /*D*/APC 


TEST ="1",. /*WEIGHTS ARE GIVEN */EPC 

GO TO COMMON,. APC 
APC2. APC 
BEES GS EI SHE ISIE SHEER ISI TOES Ig I SIRE SSSR OG E GEE fat tekitittet / APC 
/* : */ APC 
/* SET UP NORMAL EQUATIONS OF LEAST SQUARES FIT IN TERMS OF *x/APC 
1% CHEBYCHEV POLYNOMIALS FOR A GIVEN DISCRETE FUNCTION */APC 
/* */APC 
ORR RRR ROR IR I KORO KOKORO ROR ai ke fe ioe te cai tage afc ite at ae ak tek ic ie a go a aie a ae gee ak i ye eke de ak ak etek ak J ADC 
ENTRY(XeVaNp IP yXCoXl pWORK) 9o AP.C 
TEST ='2',. /*CONSTANT WEIGHTING ASSUMED */APC 
COMMON... APC 
LN =Nee : APC 

NN =LN+LNye APC 
IPP <=IP+IP,. APC 
IP1 =IP+l,. : APC 

EP =(IP*IP1)/2,. ; APC 
EPL =EP+l,. APC 
EPE =EP+IPL,. o APC 
ERROR="D',. /*PRESET ERROR INDICATOR */ APT 

IF tN GT l /*TEST SPECIFIED DIMENSIONS */ APC 
THEN IF [Pl GE 1 APC 
THEN IF LN GE IP1 0 APC 
THEN DO,. : APC 
A,B nt ase APC 

on =2 TO Nee APC 

Cc =X(I),. - APC 

IF C LT A APC 

THEN A =Cye /*SET A TO INF(XCI)) *J APC 

ELSE IF C GT B APC 

THEN B =Cee /*SET B TO SUP(X(I)) */ APC 

END». APC 

x1 =B-A;y. APC 

IF X1 LE © APC 

THEN O0O,. . APC 
ERROR="A',. /*ERROR RETURN FOR XJ APC 

GO TC OUT,. /J*DEGENERATE ARGUMENT RANGE x/ APC 

END». APC 

x0 =~-(A4B)/X1_.6 APC 

xl =2/X1lae ; APC 

600 I =1 TO IPP-1, /*INIT. RIGHT HAND SIDE AND */APC 

EP1 TO EPE-1,. /J*WORKING STORAGE */ APC 

WCRK( 1) =0,. APC 

END). - APC 


/*®INIT. SQUARE SUM OF FCT.VAL. */APC | 





Usage: 


CALL APC1 (X, Y, W, N, IP, X0, X1, WORK); 


X(N) 7 


Y(N) - 


W(N) - 
N a 


IP = 


X0 - 


X1 - 


BINARY FLOAT [(53)] 

Given vector of argument values. 
BINARY FLOAT [(53)] | 

Given vector of function values that 
are to be approximated. 


BINARY FLOAT [(53)] 


Given vector of weighted values. 
BINARY FIXED | 

Given number of argument values: 
BINARY FIXED 

Given number of Chebyshev 
polynomials. | 

BINARY FLOAT [(58) ] 

Resultant additive constant for linear 
transformation of argument range. © 
BINARY FLOAT [(53)] 

Resultant multiplicative constant for 
linear transformation of argument 
range, 


WORK((IP+1)(IP-+2)/2) - 


BINARY FLOAT [(53)] 

Resultant vector containing the lower 
triangular part of symmetric co- 
efficient matrix of normal equations, 
stored rowwise, followed by right- 
hand side and square sum of function 
values. 


CALL APC2 (X, Y, N, IP, X0, X1, WORK); 


X(N) - 


X(N) - 


N - 


IP - 


X0 - 


Xi - 


BINARY FLOAT [(58)] 

Given vector of argument values. 
BINARY FLOAT [(53)] 

Given vector of function values that 
are to be approximated. 

BINARY FIXED 

Given number of argument values. 
BINARY FIXED 

Given number of Chebyshev poly- 
nomials. 

BINARY FLOAT [(58)] 

Resultant additive constant for linear 
transformation of argument range. 
BINARY FLOAT [(53) ] 

Resultant multiplicative constant for 
linear transformation of argument 
range. 


WORK((IP+1)(ITP+2)/2) - 


BINARY FLOAT [(53)] 

Resultant vector containing the lower 
triangular part of symmetric co- 
efficient matrix of normal equations, 


stored rowwise, followed by right- 
hand side and square sum of function 
values. 


Remarks: 


1, If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitutes the possible error condition 
that may be detected: 

ERROR='D' means error in specified dimen- 


| sions IP, N -- that is, for IP not less than N or N 


not greater thanl, 

2. APC2 implies constant weighting (value one). 

3. The use of Chebyshev polynomials instead 
of monomials results in a remarkable improvement 
of the condition of the normal equations, provided 
the arguments have a sensible distribution (for 
example, equidistant). 

4, The given argument range is reduced by means 
of the linear transformation. 7 


t(x) =x, ° X+x 


1 0 


to the reduced range -1 <t(x) <+1. The normal 
equations are set up for Chebyshev expansions in 
t(x) and the solution of these equations is determined 
by procedure ASN. This is no disadvantage, since 
the Chebyshev expansion may be evaluated effectively . 
for a specified argument x using procedure POSV 
with argument t =x * Xj + X¢ and the calculated 
coefficient vector of the Chebyshev expansion. 

5. \The transformation of the calculated Chebyshev 
expansion to an ordinary polynomial may be ac- 
complished using procedure POST. 


Method: 


The polynomial fit is.calculated in the form of its. 
canis expansion. 


+ 
where Ty (t) is the Chebyshev polynomial of degree k. 
The values of the Chebyshev polynomials for the 
argument t are calculated by means of the three- 
term recurrence equation: 
4,728, 1 @- eg (2D 
with atetae values Tg (t) = -1, Ty (t)=t. In setting . 
up the coefficient matrix, time is saved by using ine 


. identity 


2 Ty : 1, ; Tia Thad, 
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Mathematical Background: 


Let xyz, and xp denote the leftmost and rightmost 
arguments respectively. By means of the linear 
transformation 
2x-(x,. + X_) 
t(x) esis Se X oxXt#x 


Xp : x | 1 0 


the argument range x; = X < Xp is reduced to the 
argument range -1 < t(x) < +1. 

The function f(x), given for x = Xj, Xo,+++, XN; 
is to be approximated by an expansion in Chebyshev 
polynomials: | 


ae - 
p(x) _ C, T,_, (ts) 


so that 


a! 2 
B w(x,) [£(x,) - p(,)]" = min. 


i=1 


T), (t) is the Chebyshev polynomial of degree k. 

The vector C of unknown coefficients C; is a 
solution of the matrix equation AC =R, where A is an 
IP by IP symmetric positive definite matrix with 
elements | : , 


N 
i = we) Ty HR Ty Oy » 


and R is a vector of dimension IP with elements 


N 
rv, = 2 w(x.) Tey (t(x,)) 1) 


(See ASN for details. ) 


The Chebyshev expansion of the polynomial p(x) gives 
a much better indication of the accuracy of the ap- 
proximation than the coefficient vector of the poly- 
nomial itself. If the specified degree of the poly- — 
nomial is too high, the last terms of the Chebyshev - 
expansion are uniformly small compared with the 
preceding coefficients. The degree might be reduced 
by the number of small trailing coefficients without 
unduly enlarging the overall error. 

An upper bound for the error introduced by ne- 
glecting the last terms of the Chebyshev expansion 
is given by the sum of the absolute values of these 
terms. Normally, transformation of the Chebyshev 
expansion in t(x) to ordinary polynomials in x results 
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in severe loss of accuracy. Therefore, no attempt: 
is made to return the polynomial expansions. 


Programming Considerations: 


Only the lower triangular part of the symmetric co- 
efficient matrix is generated and stored rowwise, . 
followed immediately by the right-hand side and by 
the weighted square sum of function values. 

This storage allocation scheme is required by | 
subroutine ASN, which may be used for calculation 
of the normal equations. 


e Subroutine ASN 


ASN 


ASN 


(He C ESE OE IE ROSES SRE CEST OE OE HIE IEA RAHA] ASN 


/* 


#7 ASN 


/* SOLUTION OF NORMAL—-EQUATIONS ‘UP TO SPECIFIED ORDER */ ASN 


/* OR PRECISION. 


*/7 ASN 


/* ALL FITS OF SMALLER ORDER ARE CALCULATED OPTIONALLY. */ASN 


/* 


*/ ASN 


(0389 OOO IOI CII to Rolo iar gigi soiaiciag tomo iak iaioi to gute deka / A SN 
PROCEDURE( WORK «IP eIRES»OPT, EPSr ETA}? - ASN 


DECLARE 
S BINARY FLOAT(53), 
(WORK(*),EPSSETA,TOL, TEST, 
AUX( IP) »WE»Q oR) 
BINARY FLOAT, 
BINARY FLOAT(53), 
(IP,sIPLeR2SeD0G,OOGyL yLLy 
EPE LLL DL ylPReIRESeKyEPy 
TeITIelLl,OLK) 
BINARY FIXED, 
(OPT» CHECK yERRGR EXTERNAL) 
CHARACTER(1),%. 

IF ETA NE O 

THEN CHECK="A*,.. 

ELSE CHECK='0',. 

IP1l =IP+ly. 

TF IPL LE 1 

THEN DOee 
CHECK='D',. 
GO TO OUT,. 
END,>. 

EP ={IPeIPl/2,. 
=EP+IPl,. 
=WORK(EPE),. 

IF CHECK=*A® 

’ THEN TEST =ABSCETA*WE),. 
IPR »LL=Cy. 
LelLl=l,. 


DO ~ =1 TO IP,. 
LL =LLtI 9. 
=O. 


=Q,. 
DO II=LL1 TO Lt~le. 
S =S+MULTIPLY ( 
WORK(II) ¢ 
WORK{L) ,53),. 
L =Lel,. 
ENDy. 
=WORK(L),. 
sR—Sye : 
=LL 
DO;. 
IF S LE ABS(EPS*R) 
THEN OO;. 
CHECK='P?*,. 
GO TO SOL;y. 
END,>. 
QeS =SQRT{S),. 
END, 
ELSE S =S/Q>5.- 
wORK(L)=S_. 
K =Ktl,ye 
L =L+Kye 
IF KtI LE IP1 
THEN GQ TC ITER,. 
LL1,L=LL+1l,. 
WE =WE-S¥*S,. 
AUX(IT)=WE,. 
IF CHECK="A® 
THEN IF WE LT TEST. 
THEN DO,. 
CHECK="0',. 
GO TO SOL,. 
ENDy. 
IPR =FPR+1,. 
END». 
IF OPT='F! 
THEN GO TO QUT,. 
tL =EPEy. 


=EP+IPR,. 

=LL-1-IPR,. 

00 I =IPR TO 1 BY -ly. 

Q =WORK(DG),. 

R =WORK(RS),. 

WORK(RS)=AUX(T) 2. 
=RS—1l,. 
=0G-I,. 

LLyl =LL-l,. 

K =IPR-I,. 

DLsDLK=IPRe. 


LyLLL=L-DL,. 
OL,+OLK=DL—1,. 
S =Ore 


OO [I[=L+K TO L+l BY -1,. 


S =S+MULTIPLY( 
. WORK(LLL), - 
WORK(11)253),. 
LLL =LLL-DLKy. 
DLK =DLK—-1,. 


ENDys- 
WORK(L)=CP-S)/Q,. 
K =K~-laee 
IF OPT='A! 

THEN IF K GEO 
THEN GO TC REP,;. 
ENO». 


OUT ee 
IRES =IPR,. 
ERROR=CHECK,. 
END,. 


Purpose: 


ASN 
ASN 
ASN 
ASN 
/*SINGLE PRECISION VERSION /*S*/ASN 
/*ONUBLE PRECISION VERSION /*D*/ASN 
ASN 
ASN 
ASN 
ASN 
ASN 
ASN 
/*PRESET ERROR INDICATOR */ASN 
/*A= ACCURACY NOT REACHED */ ASN 


/*C= SUCCESSFUL OPERATION */ ASN. 


ASN 

ASN 

ASN 

/*ERROR IN SPECIFIED DIMENSION */ASN 
ASN 

ASN 

/*SET UP ADDRESSING CONSTANTS */ASN 
ASN 

ASN 

/*SET TEST TO ABSOLUTE VALUE NF*/ASN 
/*SPEC. ACCURACY FOP WANTED FIT*/ASN 
ASN 

ASN 

(BOGOR A RO Roki kag tod. tok doit toe iegede tak 7 ASN) 
/*FACTORIZE GIVEN MATRIX */ ASN 
FERRER ERK KR BR RK RR KKK, ASN 
ASN 

/*COMPUTE ELEMENTS OF I-TH ROW */ASN 
ASN 

/*M4ODIFY ELEMENTS IN I-TH */ ASN 
/*ROW BY SCALAR PROOUCT OF */ ASN 
/*ELEMENTS OF FACTORIZATION */ ASN 
/*EIN ROW AND COLUMN CROSSING */ ASN 
/*AT CURRENT ELEMENT */ ASN 
ASN 

ASN 

ASN 

/*TEST FOR LOSS OF SIGNIFICANCE*/ASN 
/*IN PIVOTAL DIVISGR */ASN 
ASN 

. ASN 

/*MARK LOSS OF SIGNIFICANCE */ASN 
/*BYPASS FURTHER FACTORIZATION */ASN 
ASN 

/*CALCULATE OIAGONAL ELEMENT */ ASN 
/*OF .FACTORIZATION */ASN 
ASN 

/*STORE FINAL ELEMENT */ASN 
/*OF FACTORIZATION */ ASN 
ASN 

/*TEST IF ALL ELEMENTS OF I-TH */ASN 
/*ROW ARE COMPUTED */ASN 
ASN 

ASN 


/*STORE SQUARESUM OF FESIDUALS */ASN - 


/*TEST ON SPECIFIED PRECISION */ASN 
ASN 

ASN 

7*®SUCCESSFUL OPERATION */ ASN 
/*®RESP. ETA ACCURACY REACHED */ ASN 
ASN 

ASN 

/*END OF FACTORIZATION */ ASN 
ASN 

ASN 

J REBAR RAR ARR REE RGR EER ASN 
/*COMPUTE LEAST SQUARE FIT(S) */ASN 
J Pe Ree Fe Hee te ie ee ee hee ae ae ake Ree eo de ke Keak ee ERS ASN 
/*INIT. ADORESS RIGHT HAND SIDE*/ASN 
/*INIT. ADDRESS DIAGONAL TERM */ASN 
ASN 

7*SET Q TO I-TH DIAGONAL TERM */ASN 
/*SET R TO I-TH RIGHT HAND SIDE*/ASN 
/*INSERT I-TH RESTOUAL */ASN 
ASN 

_ ASN 

ASN 

ASN 

ASN 

J*CALCULATE THE I-TH ELEMENT */ ASN 
/*FOR THE HIGHEST FIT AND */ ASN 
/*OPTIGNALLY OF ALL LOWER FITS */ASN 
ASN 

/*FORM SCALAR PRODUCTS NEEDED */ASN 
/*WITH BACK SUBSTITUTION */ASN 
ASN 

ASN 

ASN 


ASN- 


ASN 

ASN 

ASN 

J*REPEAT IF ALL FITS SHOULD */ ASN 


‘ /*BE CALCULATED */ ASN 


ASN 
ASN 
ASN 
ASN 
ASN 
/*END OF PROCEDURE ASN */ ASN 





ASN computes the solution of normal equations set 
up by procedures APC1, APC2, and APLL. 


Usage: 


CALL ASN (WORK, IP, IRES, OPT, EPS, ETA); 


WORK ((IP+1) (IP+2)/2) - 


IP 


TIRES 


OPT 


EPS 


ETA 


Remarks: 


BINARY FLOAT [(53)] 

Given vector, containing the lower 
triangular part of a symmetric co- 
efficient matrix of normal equations, 
stored rowwise, followed by the 
right-hand side and the square sum 
of function values. 

Resultant vector containing (se- 
quentially) the coefficient vectors 
of computed least square fits, 
degree one up to IRES. 
WORK((IP(IP+1)/2) + K), K=1, ..., 
IRES contains the residuals cor- 
responding to the approximation fit 
of degree K, 

If only the approximation fit of 
highest degree (that is, degree 
IRES) is calculated, the coefficient 
vector has the same storage alloca- 
tion as if all fits were calculated 
(similarly for the corresponding 
residual vector). 

BINARY FIXED 

Given number of fundamental func- 
tions. 

BINARY FIXED 

Resultant (highest) degree of ap- 
proximation fit(s) with respect to 
the user-specified accuracy. 
CHARACTER(1) | 

Given option for operations to be 
performed. 

BINARY FLOAT [(53) ] 

Given relative tolerance for tesi on 
loss of significance. 

BINARY FLOAT [(53)] 

Given relative tolerance for tol- 
erated square sum of residuals. 


1. All operations are performed with respect to 
the user-specified tolerances EPS and ETA. 

2. If OPT is not equal to 'A' or 'F', then ASN 
computes the least square fit of degree IRES only. 
OPT='A' means all fits of degree one up to IRES are 


calculated. 


OPT='F' means the given coefficient matrix A is 
factored in the form T*T, in the linear array WORK. 
The triangular matrix T is allocated in the same way 
as the upper (lower) triangular part of A. The rignt- 
hand side R is replaced by (T*)~1R. 
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3. For EPS a sensible value is between 1072 and 
10-6 (10-10 and 10715) in single (double) precision. 
The absolute tolerance used internally for the test 
on loss of significance is ABS (EPS times current 
pivotal element). 

For ETA a realistic value is between 1 and 10-6 
(1 and. 10~15) in single (double) precision. Never- 
theless, ETA may be set equal to zero. If no 
specification is made for ETA, it is equivalent to 
setting ETA=0. The absolute tolerance used in- 
ternally for the square sum of residuals is ABS 
(ETA times square sum of ene values). 

4, Let: 

ny = maximal Siniension for which no loss of 
significance was indicated during factor- 
ization 
ng = smallest dimension for which the square 
- gum of residuals does not exceed the 
absolute tolerance ETA 
IRES is given by MIN (ny, No, IP). 
ETA = 0). 

If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions 
that may be detected: 

5. ERROR='D' means IP is less than 1. 

ERROR="'A' means respective -ETA accuracy 
is not reached. 

ERROR="'P' means loss of significance was 
detected. 


(no =IP for 


Method: 


Calculation of the least square fits is done using 
Cholesky's square root method for symmetric 
factorization. 


Mathematical Background: 


Let f(x), g(x), i=1, 2, ..., m, and w(x)>0 be 
functions defined for x = x1, Xo, ...,; X,- The 
problem is to determine the oes eae cj of the 
line ar combination 


m 


p(x) = 2U 


c.g.(x) such that 
to (Fd oar 


n 


C= 2 whe) (EO) - ps)" = min, (1) 


The necessary conditions — 





d- - =0,i=1, 2,...,m Sena as (ay 
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coefficient matrix A = GWG 


form a system of m linear es m unlnowae | 
Cje | 

To simplify the notation we introduce the follow- . 
ing matrices: 


“1 t(x,) 
x=| 7] , F= , 
x E(x) 
w(x, ) 
1 | 
: w(x.) 
W = ° ® 9 
w(x,) 
c= : , Ge 
C En) °° Sy &,) 
Then we have 
TY = | 
=(F -C G) WE - ec) 
= ’ 
: ee i 
or, with eg =F WE, 
Rea 2C° GWE +0 GWG C (1°) 


Using equation (1°), the equations (2) may be written 


GWG", = GWF : (2°) 


Combining (1”) and (2°) gives 


e.-e 
m 


2 = awa" | | 48) 


The normal equations (2°) for the unknown vector C 


s method since the 7 
is obviously symmetric 
and it is positive definite if all the fundamental 
functions g;(x) are linearly independent for the argu- 
ments x; -- that is, if the rows of G are linearly 
independent. Let R=GWF. Using Cholesky's 
method, A and R are replaced without additional | 
storage requirements by T and (TT)-LR, where 
A=T!T and Tis upper triangular. 


may be solved using Cholesky' 


An easy calculation shows Using the decomposition of Cg - Cy,» the factori- 
zation may be terminated with dimension k if 

e, < neg, giving the least squares fit of dimension 

k that satisfies the user-specified precision (rela- 
tive tolerance 7). Because of rounding errors this 
will work only if 7 is approximately between 1.0 and 
1.0 E-6 in single precision, and between 1.0 and 1.0 
E-15 in double precision. Nevertheless, the square 


T -1 2 
= = ik R 
af are | ( ) | 


Introducing additional fundamental functions in 
the linear combination p(x) will not affect the first 


m rows and columns of A or the first m elements of sum of residuals corresponding to a least squares 
R. Therefore, Cholesky's method gives a decom- fit calculated in single (double) precision may be as 
position of eg - e,, into the separate components small as eg 10-12 (e 0 10739), 
corresponding to individual degrees of freedom. Because of rounding errors the square root 

7 method may break down if very small or negative 
Programming Considerations: pivot elements indicate a loss of significance. 

| Therefore, all pivot elements are tested against the 
All least squares fits of dimension 1, 2, ..., m absolute value of EPS times the current diagonal 
may be computed from the reduced normal equations = element of A. If the k-th pivot element is not 
TC = (rt)-tr, If the solutions are generated in greater than this internal test value, the normal 
the storage locations of T, there is no additional aca are treated as if they had dimension k-1 

only. 


storage requirement. 
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Smoothing of Tabulated Functions 


e Subroutine SG13/SE13 


SG13e6 $613 

[AR ERAEREE RAE EERE EAE EAA EAE EE ER ERAS REELS SEAEERE SEEKERS EEKEHEERE EE /SG 13 

/* */SG13 
/* SMOOTH A TABLED FUNCTION USING */SG13 

/* A FIRST DEGREE POLYNOMIAL FIT RELEVANT TO THREE POINTS */SG613 

/* */SG13 

LERERRE ERE RR RR EEA KR EERE ER ARERR EE ERE EEE ERA ER EERE ERE SEEKS EE ERE /SG 13 

PROCEDURE(X+YeZeDIM) 26 $G13 

DECLARE SG13 

(XO¥) V0) 208) XA eXB XC SG13 

YAr YB YC YMy TAgTByTCyXM) $613 

BINARY FLOAT, J*STINGLE PRECISION VERSION /*S*/SG13 

BINARY FLOAT(53),% /*D00UBLE PRECISION VERSION /#*0*/SG13 

(DIM, I)BINARY ‘FIXED, S$G13 

SWITCH CHARACTER(1) + $613 

ERROR EXTERNAL CHARACTER(1),. $613 

SWITCH='G',. /*MARK GENERAL ARGUMENTS */SG13 

GOTO INIT,. $613 

SE13.. $613 

[RREEREREERERRERE RHEE EERE EE RAKE RE EERE EEE EERE ES ES EERE EAE FREE EE / SG 13 

/* */SG13 

SMOOTH AN EQUIDISTANTLY TABLED FUNCTION USING */SG613 

A FIRST OEGREE POLYNOMIAL FIT RELEVANT TO THREE POINTS */SG13 

*/SG13 

LRA ERA RERE REA ERR REAR AA ER EE RAR EEE RAREE EEE EERE KARE EERE SEES SG 13 

ENTRY( YZ DIM) +. $G13 

SWITCH="E*,. /*MARK EQUIDISTANT ARGUMENTS */SG13 

INIT oe $G13. 

IF OIM GE 3 /*TEST SPECIFIED DIMENSION */SGL3 


THEN DO,. $613 
YA 


=V(3)5. /*HODIFICATION YA = YCO) */SG13 

YB =Y¥(1)o6 S613 
IF SWITCH='G? /*TEST GENERAL CASE */SG13 
THEN DO, . $613 
XA -=X(3) 96 +*MODIFICATION XA = X(0) */SG13 

XB =X( 1) 96 S613 
ENDy. $613 

ELSE YA  =YB+(YB-YA)/29. /*MODIFICATION YA = Y(O) #/SG13 
DO I = 2 TO DIMy. S613 

YC =Y(1)95 SG13 

YM =(YAtYBtYC) /3,. /*SET YM TO ARITHMETIC MEAN = #/SG13 

IF SWITCH='G* /*TEST GENERAL CASE */SG13 

THEN DO). $613 
=X(1) 96 $613 

(XB= XA) # | $613 

(XC-XB) LE 0 $G13 

ERROR="M',y. | /*MARK NON-MONOTONIC TABLE #/SG13 

= (XAtXBtXC) /3 9. $G13 

=XA=XMy $613 

=XB-XMy. $613 

=XC=XMe- $613 
=TA®TA+TBYTB+TC#TCy« $613 

IF XM GT 0 $613 

THEN XM =(TA*(YA-Y8)+ $613 
TB*(YB-YM)+ $613 
TC#(YC-YM))/XMy. $613 

=XBy. $613 

=XCys $613 

=XMKTB+YM,. § /#SET YM TO WEIGHTED MEAN #/SG13 

$613 

“ZI-1)=YMy. /*REPLACE Z(I-1) BY YM */SG13 

YA  =YBy. $613 

YB =YCy. S613 

END» « S613 

I& SWITCH='G* 2 $G13 
THEN Z(DIM)=XM*(TC-TB)+YM,.  /#COMPUTE Z(DIM) GENEPAL CASE */SG13 
ELSE Z(DIM)=YB+(YA-YM)/2y. | /#COMPUTE Z{DIM) QUID. CASE */SG13 
ERROR='0"y. /*SUCCESSFUL OPERATION */SG13 
END,. ; $G13 
ELSE ERROR="D'y. /*ERROR IN SPECIFIED DIMENSICN */SG13 
END». /*END OF PROCEDURE $13 */SG13 


Purpose: 


SG13, SE13 computes a vector Z = (Z,,---, Zpr) 
of smoothed function values. SE13 requires a vector 
Y = (yz.+ ++» ¥Yppy) and in the case of SG13 a vec- 
tor X = (X1,+++sXpmy) of argument values must be 
given in addition. Yj corresponds to x;, in the case 
of SE13 the y components correspond to equidistantly 
‘spaced argument values x,, assuming x - X= h, 


Usage: 
CALL SG13 (X, Y, Z, DIM); 


X(DIM) - BINARY FLOAT [(53)] 
Given vector of argument values. 
BINARY FLOAT  [{53)] 


Given vector of function values. 


Y(DIM) - 





BINARY FLOAT [(53)] 
Resultant vector of smoothed 
function values. 

BINARY FIXED 

Given dimension of vectors X, Y 
and Z. 


Z(DIM) - 


DIM - 


CALL SE13 (Y, Z, DIM); 
Y(DIM) - BINARY FLOAT  [(53)] 
Given vector of function values. 
BINARY FLOAT  [(58)] 
Resultant vector of smoothed 
.. function values. 

BINARY FIXED 

Given dimension of vectors Y, Z. 


Z(DIM) - 


DIM - 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error conditions 
that may be detected: | 


ERROR = 'D' 
ERROR = 'M' 


means DIM is less than three. 
indicates a non-monotonic argu- 
ment table, that is, for some i 
(Xj-Xj-1)(Xj+1-X;), is less than or 
equal to zero. Vectors Z and Y 
may be identically allocated, which 
means that the given function 
values are replaced by the resul- 
tant smoothed function values. 


Method: 


The smoothed function values z. are obtained by 
evaluating the least squares polynomial of degree 
one at x; relevant to three‘successive points. 


For references see: 


F, B, Hildebrand, Introduction to Numerical Analysis, 
McGraw-Hill, New York-Toronto-London, 1956, pp. 


258-311. 


Mathematical Background: 


For i=3,...,n we must find m. and b. such that 
i 


1 
w, (x) = mx + b, | (1) 
gives the least-squares fit to the points (xj-2, yj-2), 


(Xi-1, Yi-1), and (xi, yj)» The problem, then, is to 
minimize 


| 2 2 
ee) “2 hee Ya | 
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This minimum will occur when © 


oF oF 


| 2b, = 0 wna =0 
Now 
OF 


= 2 E [ta a 





=2 >> x, [w.(x, ,) -y. 
om, = i-k { i i-le i-k | 
Solving equations (2) and (3) yields: 


2 /9 9 


@) 


(3) 


(4). 


2% G18| >). Sa\l 2 wa 
= i-k se k= i-k =0 i-k 
“i 2 2 
2 x 1 = 1/3 2 x, Ik 
and 


4 2 
b=— >) {y,,-m.x,. 
3 EZ i-k i i-k 


3 
x=> DD x 

i 3 =0 i-k 

ie ee ike Ti-k 75 
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(5) 


(6) 


MY 


and 


b, = 9, - m, ae oe Boe) 


~ Using (8) in (1) gives — 


te sie eat ae 
W,(x) = m,(x-x,) + y, 


where: m,; is as in (7). | 
The desired smoothed values Zs are given by: 


Wa(%) = Metz o + Fg i a 
ie wae = mie. TE Qe gned 
ee ©) 
wx, ) = min, 0 +Y if =n 


for generally tabulated argument values -- that is, 
for SG13. 7 


In the case of equidistantly syaeed argument 


values (that is, in case of SE13) we have the addi- 


tional relation xj - xj-1 = h, a constant, for i = 2, 
.--,n. This leads to the following expressions for 
the Zy a: 


1 . » eect 
BO 295 =F) = = if i=1 
eo ee , if 2, 1 
a irre eS Be eas 
| axe 
ees ae ifien 
5 Yqpt 2%, 4+ 5y,) ifn 


e Subroutine SE15 


SE15. SE15 

7 EHEC EGO SIEGE AOE EGE eg fo SO AO e oi $a dO E ok  fiea feie fon ao / SES 

/* a/SEL5 
SMOOTH AN EQUIOISTANTLY TABLED FUNCTION USING | #/SE1S . 

A FIRST DEGREE POLYNOMIAL FIT RELEVANT TO FIVE POINTS #/SE15 

*/SE15 

PEST OEE CE TELE E PLE TET TELE EET PEE EEE E ELE ET ECT REET TT yas 

PROCEDURE(Y72)DIM) SE15 

DECLARE a SE1S 

(V0 ®) 9Z0*) sYA,YBpYC 9 VD, YE) SE15 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/SE15 

/* BINARY FLOAT(53) , '  /*DOUBLE PRECISION VERSION /*D*/SE15 

(DIM, IIBINARY FIXED, SE15 

ERROR EXTERNAL CHARACTER(1L)»>. : SE15 

‘IF DIM GE 5 /*TEST SPECIFIED OIMENSION */SE15 

THEN 00,. SE15 

=Y(4)_. SE15 

=Y(2)9.6 SE15 

=Y(1)>. SE15 

=YD+(YE-YA) /2,. /*MODIFICATION, SET YC TO Y(O) #/SE15 

=YC-Y(S)#YAy.« /*MODIFICATION, SET Y8 TO ¥(-1)#/SE15 

DO I =3 TO DIM». SE15 


=YBo. /*REPLACE YA BY Y(I-4) */SE15 
=YC ye /*REPLACE YB BY Y(I-3) */SE15 
=YDe. /*REPLAGE YC BY Y(I-2) */SE15 
SYEo. /*REPLACE YD BY Y{I-1L) e/SEL5S 
SVU)». /*SET YE TO Y(T) */SE15 
Z(I-2)=(YA+YB+ YC SE1L5 


+YD+YE)/5 5. /*SET YCI-2) TO ARITHMETIC MEAN*®/SEL5 
END, . SE15 
YA  =YC+YD+YE+YEs. SE15 
Z(0IM— 1) 9 VAT (YAS YAtYD4¥BI/1C 1. : SE15 
Z(DIM) is aL 

ERRGR='0', 

END, 

ELSE ERROR='1', . ‘, /*ERROR IN SPECIFIED DIMENSION */SEL5 
END,. /*END OF PROCEDURE S15 e/SELS 


/*SUCCESSFUL OPERATION 


Purpose: 


SE15 computes a vector Z = (Z4, Zo, --+,; 2prm) Of 
smoothed function values, given a vector Y= (yj, 

Yo? -++> Ypry) Of function values whose components 
y; correspond to DIM equidistantly spaced argument 
values xj with xj - x;_,= hfori=2, ..., DIM, 


Usage: 

CALL SE15 (Y, Z, DIM); 
Y(DIM) - BINARY FLOAT [(58)] 

Given vector of function values. 
BINARY FLOAT [(58)] 


Resultant vector of smoothed function 


- values. 
BINARY FIXED | 
Given dimension of vectors Y and Z. 


Z(DIM) - 
DIM - 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following constitutes the possible error condition 
that may be detected: 


- ERROR='1' means DIM is less than five. _ 
Vectors Z and Y may be identically allocated, which 
means that the given function values are replaced 
by the resultant smoothed function values, 


Method: 
The smoothed function values are obtained by 


evaluation of the least squares polynomial of degree 
one relevant to five successive points. 





For reference see: 


F, B Hildebrand, Introduction to Numerical Analysis, 
McGraw-Hill, New Morr aorenon emnons 1956, © 


pp. 295-302, 
Mathematical Background: 
For i= 5,...,n we find m,; and b; such that 


w(x) = m,x +b, (1) 


gives the least-squares fit to the points (X;_},5Y;_1); 
k=0,...,4. The problem, then, is to minimize 


4. 


| 2 
F(m, 5b.) = X j W(X; _}) “Vai | 


This minimum will occur when 





%, ='0 and. = = 0 | (2) 
Now 
4 
3 . 22, Pi ady i-k | 
= 
4 
om = 2 dX, Xi iF Fix | (8) 


Solving equations (2) and (8) yields: 


4 4 4 





| 1 
De Sik 7 5 > i-k » Vi-k 
k=0 | i=0 k=0 

a = 
a ee 9 
DS. ae Fk (4) 
k=0 k=0 

and 
4 - 

aa me | Fiek or i | (5) 
k=0 
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Using the fact that Xj -Xj_1 = ‘h, a constant, for e Subroutine SE35 
j=2,...,n, equations (4) and (5) may be rewritten 





as "SE35.6 SEBS 
TRI RRR ROR TERE TE HH RR RE HE HR RE A RR RO RC Re RIC RR i RO RR FC Fk ok Stok ck dk KK J SE 35 
1 | ; he SMOOTH AN EQUIDISTANTLY TABLED FUNCTION USING 7 Sy cea 
* A THIRD DEGREE POLYNOMIAL FIT RELEVANT TO FIVE POINTS #/SE35 
We ae AAV Vs oe Ve ny. | 
j 10h ( vs Vey ¥5_3 y._4) (6) . /tenenansusneasnsnenenenseeenanntensnens haneKsHAsban sheMehAhshete4e/SE35 
PROCEDURE( ¥yZyDIM) +< SE35 
DECLARE SE35 
CYC#) 9708) pYAVYB E> SE35 
and DA, DByDAB,DBC) SE35 
| BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/SE35 
= /* BINARY FLOAT(53) 5 /*DOUBLE PRECISION VERSION /*D*/SE35 
DIM, I)BINARY FIXED, | SE35 
4 ERROR EXTERNAL CHARACTER(L)».~ $E35 
| IF DIM GE 5 SE35 
1 . THEN DOs. SE35 
eres i YA =Y(4)y6 SE35 
b, 5 2» Vik es bie ‘ (7) =Y(1L)_. SE35 
k=0 a =¥(2),. SE35 
— =YB-YC+VA-YC+YA-Y(5)y. SE35 
=( DBC+DBC _ thes i SE35 
+YA+YB+YB) /3-YC os /*MODIFICATION DB =DELTA2(1) */SE35 
Usit bi 7) 3 ti 1) vield OBE e ras /*MODIFICATION DBC=DELTAS( 1/2) #/SE35 
sing equation (7) in equation (1) yleids =YBy. ” /*REPLAGE YA BY Y(1-2) #/SE35 
| fe fect a ae EE 
=¥ ve is 
1 SDB es acatiyai /#SAVE OLD SECOND DIFFERENCE —#/SE35 
=(YA-YB)—(YB=YC) +. /*COMPUTE DELTA2(I-1 #/SE35 
W(X) = Mm. (x-xX, ~~ ; re a oe =DBCr. /*SAVE OLD THIRD DIFFERENCE */SE35 
i! ) i i-2) 5 (Ys4 y;) =DA-DBy. /*COMPUTE DELTA3( 1-3/2) #/SE35 
| PU (DAB-DBC)#6/70). 7AY(T-2)-DELTAG(I-2)46/70 4/535 
| DA =(oie DBC) /35 " | SE35 
The desired smoothed function values Z; are given . Z(DIM=1)=YB+DA#DAy. J*COMPUTE LAST TWO SMOOTHED  #/SE35 
b , Z(DIM)=YC-DA/29. / *VALUES */SE35 
y: | of ERROR=*C 9. /*SUCCESSFUL OPERATION */SE35 
os SE35 
ELSE ERROR="i'y. /*ERROR IN SPECIFIED DIMENSION */SE35 
i | END¢. /*END OF PROCEDURE $35. #/SE35 
Wi(X,) ° =a (8y, + 2y, + y,- 
p(X) 5 (89, + 2V5 + Vo ~ Ys) 
| | i=1 Purpose: 
(x) 1 a en es SE35 computes a vector Z =(Z1, Zo,+++, Zprmyp) Of 
W(X = 2 : | 
59 10 ( v4 Yo Vo y,) smoothed function values, given a vector Y= (yj, 
i=2 Y9. ***» YDIM) of function values whose compon- 
ents yj correspond to DIM equidistantly spaced ar- 
ae oot a eo gument values x; with xj-x,;_, = hfori=2,..., 
i+2° i 5 “i-2 Pi-1d Vi V1 DIM, 
4s = + ) i=3 2 Usage 
e = ee n- : 
Vise pees 8 


CALL SE85 (Y, Z, DIM); 


1 | | 
Weg? ~ 10 (Y-3 ‘ AV ic5 ‘s Yai Y(DIM) - BINARY FLOAT [(53)] 
Given vector of function values, 
+ 4y ) i=n-1 Z(DIM) - BINARY FLOAT [(58) ] 
o -. Resultant vector of smoothed function 
1 values, _ 
w(x.) = (- +y + 2y : DIM - BINARY FIXED 
li ? as a ia Given dimension of vector Y and Z, 
* 8y n va Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected, | 


ERROR='1' means DIM is less than five, 

Vectors Z and Y may be identically allocated, which 
means that the given function values are replaced by 
the resultant smoothed function values, 


150 “Mathematics--Smoothing 


Method: 


The smoothed function values z; are obtained by 
evaluating at x; the least squares polynomial of 
degree three relevant to five successive points. 


For reference see: 


F, B. Hildebrand, Introduction to Numerical Analy- 


sis, McGraw-Hill, New York-Toronto-London, 1956, 


pp. 295-302. 


Mathematical Background: 


For i= 5,...,n we must find aj, bj, c;, and dj such 


that 
Ww, (x) = ae + pee +c.x+d, 
i i i i i 


gives the least-squares fit to the points (x;_;,, 
Yi-k), k = O64 e > 4 
The problem, thus, is to minimize 


4 2 
F(az, by, Cys dy) = 2 {¥ {Si-k) - Vit | 


Dae Oh Oe ed 
i i i i 
Now 
4 8 
oF 
——=2) x, * (Xx )- | 
6) Z 
a. =o Ik i-k Vik 
4A. | 
oF 2 
——=2 >) x. | )-y. | 
) : = 3 = 
b. k=0 i-k Pies i-k | 
4, 
OF 
=~ =2)> x | i! )-y | 
5 : 
c I=0 i-k i’ i-k i-k 
4, 
OF 
“Od. 2 bie i Yi | 


(1) 


(2) 


Solving (2) and (8) for ae y 
By-4 = h, we get: — 


a= Ay 


b.=-3 A. x. . + B, 
i i i 


1-2 

bea -2B.x + C 

i i-2 i i-2 i 
d.=-Ax? + Bx’. -Cx, .+D,+7 
i i-g * 1i-2 i i-2 i i 

where 
4. 

Se 1 
y==>> y 
i 5 0 i-k 
A, = -—— (y - 2y. ,+ 2y ~ y.) 
i 12h? 1-4 i-3 1 i 
B, = ——— (4y +y. ,ty + 4y, - 107.) 
1 14h? 1-4 i-3 1 

+ gos + 8 
idan Mya 7 8¥y_3 + 8Y4_4 -9) 
D, = + - 10V 
‘ = (Ay, A is” y; 17S; 10y,) 


b, c;, and d;, with x; - 


Finally, the desired smoothed values Z, are given 


by: 
Wet) = Yy =e 5“y, fist 
W,(%) =p 4 . Sy, if i=2 
z= Wipe %) ~ i 35 6° Yi 
wi D oe Oe he 2 & ae if i=n-1 
w &,) ge eae io 6 ve _2 if i=n 
where: 


4 
= = 4 - 
6°95 = Veo 4Vu_ t 8 - Vin * Vigo 
for i=3, eee 2 


Mathematics--Smoothing 


if i=3, eae ,n-2 (4) 
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e Subroutine EXSM 


EXSM. EXSM 
[8 ER ERRATA I ASTRA EE AA STRSTR ETA CENT EERAIA AAA EER J EX SH 
/* */EXSM 
TO FIND THE TRIPLE EXPONENTIAL SMOOTHED SERIES:S OF A GIVEN */EXSM 
SERIES Xe *7EXSM 

¥/EXSM 1 
TRH HR HOR RRR RR RRO RO ROR RRC A HH HOR KE IE KEK ERASER KKERKEREREEE ERE SEX SM 
PROCEDURE (XsNXsAL eAyBeCoSdoe , EXSM 
DECLARE . EXSM 
(X0#),S 08) ,AL A,B,C »BE, ALCUB,BECUB DIF) EX SM 
BINARY FLOAT, . EXSM 
ERROR EXTERNAL CHARACTER(1), EX SM 
(1,NX) EXSM 
BINARY FIXED). ; -  EXSM 
*/EXSM 
ERROR="0',. EXSM 
*/ EX SM 
TEST THE VALUE OF ALPHA */EXSM 
*/EXSM 
IF AL LE 0O.OR At GE 1 _ EXSM 
THEN D0O,. 7 ose EXSM 
ERROR=!1', , EXSM 
Go TO FIN,« EXSM 
END». EXS# 
IF NX LT 3 EXSM 
THEN 0Q,. EXSM 
ERROR='2',. EXSM 
GO TO FINy. EXSM 
ENDy. EXSM 
IF A=B=C=0.0+ GENERATE INITIAL VALUES OF Ay By AND -C */EXSM 
= */EXSM 
IF A = 0.0 AND B = 0.0 AND C = 0.0 EXSM 
THEN 0O0,. EXSM 
Cc J—-2.0*X02) 4X03) 9. . EXSM 


X(1 
8 XC 2)-X01)-1.54C,. EX SM 
X(1 


A )-B-0.54Cy EXSM 
END». EXSM 
BE  =1.0-ALy. EXSM 
BECUB=BE**3,. EXSM 
ALCUB=AL**3,. EXSM 
. */ EXSM 
DO THE FOLLOWING FOR I = 1 TO NX */EXSM 
*/EXSM 
DO I = 1 TO NXy. EXSM 
SUI) =A+B4C.54C 9. /* FIND S(I) FOR 1 PERIOD AHEAD*/EXSM 
*/EXSM 
UPDATE COEFFICIENTS Ay By AND C */EXSM 
*/EXSM 
DIF =S(1)I-X(1)9. . /EXSM 
A =X(1)#BECUB*DIFy. EXSM 
B  - =B4C-1. 5 *AL *AL¥#(2.0-AL) *DIFy. EXSM 

C =C-ALCUB*OIF,. EXSM | 


ENDy. EXSM 


FINe. 
RETURNS EXSN 


ENDee | /*END OF PROCEDURE EXSM */EXSM 





Purpose: 


EXSM develops the triple exponential smoothed 
series S of the given series X. | 


Usage: 
CALL EXSM (X, NX, AL, A, B, C, §); 


Description of parameters: 

X(NX) - BINARY FLOAT | 
Given vector containing time series data 
to be exponentially smoothed. 

NX- ~~ BINARY FIXED © . | 
Given number of elements in X. 

AL - BINARY FLOAT . 
Given smoothing constant alpha. AL must 
be greater than zero and less than one, 

A,B, C- BINARY FLOAT | 

; _ Given coefficients of the prediction equation 
where S is predicted T periods hence by 


(AFB +THO+ TY, 


As input: If A=B=C=0, the program will 


provide initial values, If at least. 
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one of A, B, and C is not zero, 
the program will take given 
_values as initial values. 
_.As output: A, B, C, contain latest updated | 
coefficients of prediction. - 
S(NX) - BINARY FLOAT 


Resultant vector containing triple expo- 
‘nential smoothed time series, 


Remarks: 


' If no errors are detected in the processing of data, 


the error indicator, ERROR, is set to zero, The © 
following constitutes the possible error conditions 
that may be detected: 


ERROR=1- The specified smoothing constant, AL, 
is less than or equal to zero or is 
greater than or equal to one, _ 

ERROR=2 - The number of data points is less tists 
three. 


Method: 


Refer to R. G.. Brown, Smoothing, Forecasting and 


Prediction of Discrete Time Series, Prentice-Hall, 
1963, pp. 140 to 144, 


Mathematical Background: 


This procedure calculates a smoothed series 8, So, 
secs ONX, given time series Xj, Xo, coos ANX 
and a smoothing constant aw. Also, at the end of the 
computation, the coefficients A, B, and C are given 
for the expression A+ B(T) + C(T) /o This ex- 
pression can be used to find setimatce of the smooth- 
ed series a given number of time periods, T, ahead, 

The procedure has the following two stages for 
i=1, 2, ..., NX, starting with A, B, and C either 
given by the user or provided automatically by the 
procedure (see below): 

1. Finds’ S, for one period ahead 


S.= A+ B+5C ) 


2. Update coefficients A, B, and on 


A=X +(1- 0° (S.- X,) a (2) 
1 1 Ll. Las | 
B=Bt CaaGie) (2 - a) (S, - X) (3). 
C=C- (2°) (S, - X.) 3 (4) 


where @= smoothing constant specified by the 
user 


(0.0 <a@ <1, 0) 


If coefficients A, B, and C are not all zero (0.0), 
take given values as initial values. However, if 
A=B=C=0.0, generate initial values of A, B, and C 
as follows: 


C= Xy - 2X, + Xg | (5) 
B= X, - X, - 1.5C | (6) 
A= X,- B-0,5C : (7) 


Roots and Extrema of Functions 


e Subroutine FMFP 


FMFP oo FMFP 10 
J RRRERERE REE ERE KEKE RAKE ER EK RHR KERKEAEEKEAKE KERR EREKERE KEKE RKKEKERERES/ EMEP 20 
/* */FEMFP 30C 
/* FIND A LOCAL MINIMUM OF A FUNCTION OF SEVERAL VARIABLES */FMFEP 40 
/* BY THE METHOD OF FLETCHER AND POWELL */FMEP 50 
/* */FMFP 60 
FRE IOOI GI SIEIOI GEE IORI SIO IG IOI III DIOS IE RIAD a fa fa foi I i In ioe to 7 EMEP 70 
PROCEDURE (FUNCT +NoXeFeGeEST sEPSyLIMIT) 9. FMFP 80 
DECLARE FMFP 90 
(I, JsKOUNTe Kolb sLIMI TeNyNSoN2,N3) FMFP 100 
BINARY FIXED, FMFP 110 
(X04) G08) pHON*EN+7) /2) » ALFA »AMBDAyDALFAg DX» DV GS eGNRMY FS y FMFP 120 
EPS EST oF sFXoFY Hl 9H2 sHNRMyOLOF oT pW Z) FMFEP 130 
BINARY FLOAT, 7*SINGLE PRECISION VERSION /*S*/FMFP 146 
/* BINARY FLOAT(53) » /*DOUBLE PRECISION VERSION /*D*/FMFP 150 
FUNCT FMFP 160 
ENTRY, FHEP 170 
ERROR EXTERNAL FMFP 180 
CHARACTER(1L) 90 FMFP 190 
NS  =Ne. FMFP 200 
N2  =NS+#NSy. FMFP 21C 
N3  -=N2*NSpe FMFP 220 
CALL FUNCT(XsFSyG) 9~ /*COMPUTE FUNCTION VALUE */FMEP 230 
ERROR='O',. /*AND GRADIENT VECTOR */FMEP 240 
KOUNT=0y FMFP 250 
CONTe. -FMFP 260 
I =N3q. FMFP 270 
DO J = NS-1, TO C BY —ly. /*GENERATE [DENTITY MATRIX */FMFP 280 
K =I+ly. FMFP 290 
H(K) =ly. FMFP 300 
{ =K+Jy0 FMEP 310 
00 L = K+l TO Iy. FMFP 320 
H(L) =Or5 FMFP 330 
ENDp.. FMFP 340 
END». FMFP 350 
Loop.. /*START ITERATION LOOP */FMFP 36C 
 KOUNT=KOUNT+1,5. FMFP 370 
_QOLDF =FS,. /*SAVE FUNCTION VALUE, */FMFP 380 
DY »HNRMyGNRM=C 9 /*ARGUMENT VECTOR ' */FMFP 390 
DO J = 1 TO NS». /*AND GRADIENT VECTOR */FMFP 400 
HINS+J) »GS=G( J) 96 FMFP 410 
HINZ+J)=X( J) 90 FMFP 420 
T =O9. FMFP 430 
K =N3tJee FMFP 440 
00 L = 1 TO NS». /*DETERMINE DIRECTION VECTOR */FMFP 450 
T =T-G(L) #HUK) 96 FMFP 460 
IF LLT J ' FMFP 470 
THEN K =K+NS—Lye FMFP 480 
ELSE K =K+1l 9. FMFP 490 
ENDy. FMFP 500 
H(J) =Ty. FMFP 510 
HNRM =HNRM+ABS(T) 9. /*CALCULATE DIRECTIONAL */FMFP 520 
GNRM =GNRM+ABS(GS) 9. /*0ERIVATIVE AND TESTVALUES %*/FMFP 530 
DY =DY+T*GS,. /*FOR DIRECTION VECTOR H */FMEP 540 
END». /*AND GRADIENT VECTOR G. */FMFP 550 
IF DY LT 0 /*REPEAT SEARCH IN DIRECTION */FMFP 560 
_ THEN IF HNRM/GNRM GT EPS /*QF STEEPEST DESCENT IF */FMFP 570 
THEN GO TO LABly. /*DIRECTIONAL DERIVATIVE ®/FMEP 580 
GO TO RESTs. /*APPEARS NOT NEGATIVE. */FMFP 590 
LAB1l.. /*SEARCH MINIMUM ALONG H */FMEP 600 
' FY  =FSy. FMFe 610 
AMBDA=MIN(1,2*(EST-FS) /DY) 9. -FMFP 620 
_ IF AMBDA LE C FMFP 630 
THEN AMBDA=Ly. FMFP 640 
ALFA =0,. FMFP 650 
SAVE ee /*SAVE FUNCTION AND DERIVATIVE */FMFP 660 
FX  =FY,. /*VALUES FOR OLD ARGUMENT */FMFP 670 
DX  =DYy. . FMEP 680 
DO I = 1 TO NS». /*STEP ARGUMENT ALONG H */FMFP 690 
XU) =X(1)4AMBDA#H(1),. FMFP 70C 
END ps FMFP 71C 
CALL FUNCT(XsFS9G)9- FMFP 720 
FY =FS,. FMFP 730 
DY =0,. /*COMPUTE DIRECTIONAL DERIVA- */FMFP 740 
DO I = 1 TO NS». /*TIVE DY FOR NEW ARGUMENT. */FMFP 750 
DY =DY+G(I)*H(I) 9. /*TERMINATE SEARCH, IF DY GE 0 */FMFP 760 
END). 7*1F DY=O,THE MINIMUM IS FOUND */FMFP 770 
IF FY LT FX /*PROVIDED FUNCTION DECREASED */FMFP 780 
THEN DG). FMFP 790 
IF DY= 0 FMFP 800 
THEN GO TO COMP,. FMFP 810 
IF DY LT C /*TERMINATE SEARCH IF */EMFP 820 
THEN DO,. /*MINIMUM PASSED — | ; */FMEP 830 
ALFA, AMBDA= AMBDA+ALFA,. /*D0UBLE STEPSIZE AND REPEAT */FMFP 840 
IF: HNRM*AMBDA LE 1ELC ‘FMFP 850 
THEN GO TO SAVE). FMFP 860 
ERROR="2%,. /*ARGUMENT OUT OF RANGE. */FMFP 870 
GO TO RETURN». -FMFP 880 
END» FMFP 890 
ENDy. FMFP 900 
T =O, FMFP 910 
LAB2e. -FMFP 920 
IF AMBDA= 0 /*INTERPOLATE IN NEW INTERVAL */FMFP 930 
THEN GO TO COMP,. /*COMPUTE ARGUMENT X */FMEP 94¢ 
z =3*(FX-FY) /AMBDA+DX+DY;, . FMFP 950 
ALFA =MAX(ABS(Z) yABS(DX) ,ABS(DY) ) 96 FMFP 960 
DALFA=Z/ALFAy« FMFP 970 
DALF A=DALFA*DALF A-DX/ ALF A*DY/ALFAg FMFP 980 
IF DALFA LT © FMFP 990 
THEN GO TO REST}. FMFP1O0CO 
W =ALFA*SORT(DALFA) 9 FMFP1OLO 
ALFA =DY-DX+WtW, FMFP1020 
IF ALFA=0 . FMFP1030 
THEN ALFA =(2#DY—-W)/{Z+DX+Z+DY) ». FMFP1040 
ELSE ALFA =(DY-Z+W)/ALFA,. FMFP1050 
ALFA =ALFAXAMBDA.». - FMFP1060 
DALFA=T-ALFAy. FMFP1070 
DO I = 1 TO NS». FMFP1LO8O 
XI) =XCLM+DALFAFH(T) 5. FMFP1090 
END ye ah FMFP1100 
CALL FUNCT(X,FS:G) 9. FMFP1110 
IF FS LE FX FMFP1120 
THEN IF FS LE FY FMFP1130 
THEN GO TO CCMP,. /*TERMINATE INTERPOLATION */FMFP1140 
DALFA=0,. = FMFP1150 
DO I = 1 TO NS». FMFP1160 
DALFA=DALFA4G(L)#HUT) 90. FMFP1170 
END». FMFP1180 
IF DALFA LT 0. FMFP1190 
THEN IF FS LE FX FMFP1200 
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THEN O0,y. ' FMFP1210 
=FS,. FMFP1220 
=DALFA,. FMFP1230 

TyAMBDA=ALFA,. FMFP1240 


GO TO LAB2;. /*REPEAT INTERPOLATION */FMFP1250 | 


END» » ‘FMFP1260 

SFS 96 . FMFP1270 
=DALFAy FMFP1280 
AMBDAS AMBDA~ALFAy « FMFP1290 
2096 FMFP1300 

eo TO LAB2y. _ /*REPEAT INTERPOLATION */EMFP1310 
COMP... FMFP1320 
DD J = 1 TO NSy. /*COMPUTE DIFFERENCE VECTORS +*/FMFP1330 

K =NStJy0 /*0F ARGUMENT AND GRADIENT * /FMFP 1340 

HOCK) =G(J)-H(K) 9 | FMFP1350 

K — -=NS#Kye FMFP1360 
HK) =X(J)-H(UK) 9 FMFP1370 
END». : FMFP1380 

IF OLOF+EPS LT FS FMFP1390 
THEN GO TO RESTy. /*TERMINATE ITERATION */FMFP 1400 
"ERROR="0'y. FMFP1410 
IF KOUNT GE NS FMFP 1420 
THEN 00). . FMFP1430 
TeZ  =Oy FMFP1440 

DO J = 1 TO NSy. . FMFP1450 

W =H(N2+J) 96 FMFP1460 

T ET+ABSOW) 9 . FMFP1470 

z =Z+H(NS+J) *Wy 6 FMFP1480 

END? FMFP1490 

IF HNRM LE EPS : FMFP1500 

THEN IF T LE EPS /*TERMINATE, IF ARGUMENT DIFF. */FMFP1510 

THEN GO TO RETURN».  /*VECTOR AND DIRECTION VECTOR */FMFP1520 
END». 7*ARE BOTH LE EPS */FMFP1530 

IF KOUNT GE LIMIT FMFP 1540 
THEN GO TO NCONy. . FMFP1550 
ALFA =0y. fe FMFP 1560 
. oc J ; FMFP1570 
W F FMFP1580 

K ‘ FMFP1590 

vs FMFP 1600 

(NS+L) *H(K) 90 FMFP 1610 

FMFP1620 

=KtNS—Ly. FMFP1630 

=K+ly. FMFP 1640 

NDy. FMFP1650 

ALFA =ALFA+W#H(NS#J) 96 FMFP 1660 
H(J) =Wee FMFP 1670 
ENDy. . . FMFP1680 


IF Z*ALFA= 0. FMFP1690: 


THEN GO TO CONTy. FMFP1700 
=EN3+196 FMFP1710 

DO L = 1 TO NS». /*UPDATE MATRIX H */FMFP1720 

H1 = SH(N2#L)/Ze6 FMFP1730 

H2 =H(L)/ALFAy. FMFP1740 

00 J = L TO NS». FMFP1750 

HOK) =H(K)+HL*H(N2+J) FMFP1760 

-H24H( J) 96 FMFP1770 

K _-=K+ lee ‘FMFP1780 

ENDy. . FMFP 1790 

END. | | FMFP1800 

GO TO LOOP,. /*END OF ITERATION LOOP */FMFP1810 
NCON. . FMFP1820 
ERROR="1'y, 7 *NO CONVERGENCE */FMFP 1830 
GO TO PETUPNs. : | ‘FMFP1840 


RESTe.e ; /*RESTGRE OLD VALe ARG */FMFP1850: 


00 J = 1 TO NS¢. FMFP1 860 
XCJ) =HUN2+J5) 96 ; FMFP1870 
END». FMFP1880 

CALL FUNCT(X,FS:G)5.- FMFP1890 
IF GNRM GT EPS FMFP1900 
THEN IF ERROF= #3! .FMFP1916 
THEN GO TO RETUFN,. FMFP1920 
ELSE O0O,. FMFP193C 
ERROR="3'¢. /*REPEAT, [IF DERIVATIVE GT EPS */FMFP1940 

GO TO CONT,. FMFP1950 
END. ‘ FMFP1960 
ERROR="C*,. : ; FMFP1970 
FETURN.. FMFP1980 
F =FS,. _ FMFP1990 
END? . /*END OF PROCEDURE FMFP _ */FMFP2000 


Purpose: 


FMFP determines an unconstrained minimum of a 
function of several variables, given a starting value 
of argument vector. | 


Usage: 


CALL FMFP (FUNCT, N, X, F, G, EST, EPS, 
LIMIT); | 


FUNCT - ENTRY 
| Given procedure computing function | 
values and gradient vectors. This pro- 
cedure must be supplied by the user. © 


Usage: | 


‘CALL FUNCT (X, FS, G); 
X(N) - BINARY FLOAT [(53)] _ 
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Given n-dimensional i a 
vector. 

FS- BINARY FLOAT [(58)] 

7 Resultant function value. 

G(N) - BINARY FLOAT [(58) ] 
Resultant gradient vector. 


N - _ BINARY FIXED 
Given number of variables = dimension 
of argument vector), 
X(N) - BINARY FLOAT [(538)] 
Given starting value of argument vector, 
Resultant argument vector corresponding 
? — to the minimum, 
F - BINARY FLOAT [ (58) ] 
Resultant minimum function value, 
G(N) - BINARY FLOAT [ (58) ] 
| Resultant gradient vector corresponding 
to the minimum, 


EST - BINARY FLOAT [(58)] 
Given estimate of minimum function 
value, 

EPS - BINARY FLOAT [ (53)] 


Given test value representing the ex- 
pected absolute error. 

LIMIT - BINARY FIXED 
Given maximum number of iterations 
to be performed, 


Remarks: 
If no errors are detected in the processing of data, 


the error indicator, ERROR, is set to zero, The 
following constitute the possible error conditions 


_ that may be detected: 


ERROR="1' means no convergence in LIMIT 
iterations, 

ERROR='2! means no minimum is located by 
linear search technique. 

ERROR='3' means error in gradient calculation. 


Method: 


FMFP uses a method of conjugate directions, pro- 
posed by Davidon, For a quadratic function of n 
variables the minimum is located within n itera- 
tions. 


For reference see 


R, Fletcher and M, J. Powell, 'A Rapidly Con- 
vergent Descent Method for Minimization", Com- 


puter Journal, vol. 6, iss. 2, 1963, pp. 163-168, 


Mathematical Background: 


It is assumed that the function f of the n variables 
Xpoeees Xp (abbreviated as argument vector x) may 
be computed together with its gradient vector g(x) 
for any point x, The generalized Taylor expansion 
for functions of several variables is | 


{(xtu) = f(x) + g(x) * u ges wu G(x)u + higher terms 


2 


where g is the gradient vector and G the matrix of © 
second order partial derivatives. Vectors are as- 
sumed to be column vectors; ul means transpose of 
vector u. It is assumed that in the neighborhood of 
the required minimum x,,;, the function is approxi- 
mated closely by the first three terms of its Taylor 
- expansion, giving | 


E(x) = £(X pin) +3 (x - Senin) pain) (X-Xyy in) 


since g(X in) = 0. Then the gradient is seen to be 
approximately g(x) = G(X, 3n) (K — Xmin)- 

Assume now that the symmetric matrix G is 
positive definite, Then the following equation holds 
true: 


E-Xnin = @ Ban) © BC) 


wae would allow Xj to be calculated in one step 
if Gl (Xmin) Were available, 

To approach G71 (Xmin), a method of successive 
linear searches in G-conjugate directions is used, 
Starting with the identity matrix G(9) = I, a sequence 
of symmetric matrices G(1) is peneraies that ap- | 
proximates G-1, At the (i+-1)8t iteration step a 
linear search is made in direction h(i) = -G(i)g(i), 
where g(!) is an abbreviation for g(x“). By means 
of the linear search the minimum of y(t) = fo) + 
t+ n(i)) is determined, giving argument x(* 

x (1) a t - ni), 


The argument of the minimum x1) on the line 
through x() in direction h() is determined by the re- 
lation that scalar product (g(t), n()) = 0, 
Now: 
oo. 6 nell | ; 
n) as x) ie t. {) 
i=} : 

and: 
n-1 


Py ofl) + > t. cn) 
Fj 


the nth 


Therefore: 


scalar product 


(a) 4G), - = i, «cal, nl) 


i=j+1 


(g 


pose now that the vectors ao ) nit) 
p(a-1 ay G-conjugate, satisfying (cnii), nl) = = 
0fori#j. Then (ge, h ()) = 0, and since h(9), 
ni), .., , n(-1) form a basis, e(0) = = 0 and x) = 
This shows that the minimum is located at 
iteration for a quadratic function when using 
successive linear searches for G-conjugate direc- 
tions, 


Xmine 


Programming Considerations: 


For the epee of G-conjugate directions, start 
with h(9) = ~ol and calculate successive directions 


ni) by means of h(i) = = - GH) gi) , where qi) is modi- 


fied to G1) so that hl) is an eigenvector of the 

matrix G1) G with ca gaa 1, This ensures 

that G@) approaches G™* as x(¥) approaches > ee 
An easy calculation shows: 


T os . 
qi) , des dx Ode ; dgh g 


qi) - = 
dx + dg 


ag’ GMa 
with dg = are - g(t) 


ax= xD _ (0 


where all vectors are regarded as column vectors, 


- and superscript T means transpose of column 


vector--that is, row vector, 


The strategy adopted for termination of the suc- 
cessive linear searches is as follows: 

1. If the function value has not decreased in he 
last iteration step, the search for the minimum is 
terminated provided the gradient is already suffi- 
ciently small; otherwise, the next step is in the 
direction of steepest descent, 

2, If the argument vector and the direction vec- 
tor change by very small amounts, and at least n 
iterations are performed, the minimization is ter- 
minated again, 

38. If the number of iterations exceeds an upper 
bound furnished by the user, further calculation is 
bypassed, and an error code is set to 1 indicating 
poor convergence, 


4, If one of the successive linear searches indi- 
cates that no constrained minimum exists, further 
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calculation is bypassed again and the error code is © 


set to 2, indicating that it is likely that | no minimum 
exists. 7 
sth (i) . : 

The i term G°’ is reset to the identity matrix 
if there is indication that the current G() is not 
positive definite, or if the formula for G1) preaks 
down because of zero divisors, 

The linear search technique used’ in pDROGTaUES 
FMFP is as follows: 

For a given argument vector x | a vector h de- 
fining a direction through x, a local minimum of 
the function y(t) = f(x+t - h) must be found, This 
means that a value bm} must be Cer eunee for 
which — ) | | 

y' (ty) = scalar product (g(t hy, a | 
From y' (0) = (g(x),h) < 0 it is evident that a mini- 
mum y(t ) < y(0) should be found for positive 
values of 1 t. 

The calculation of the minimum is in three 
stages: 

1, Estimating the emilee of t 

2,.. Determining an interval containing t,. 

3.. Interpolating the value of t,. 

An estimate of the stepsize may be obtained, as- 
suming that the true value of the constrained mini- 
mum is equal to the estimated value EST of the un- 
constrained minimum and that y(t) is closely repre- 
sented by a quadratic polynomial passing ones a 
y(0) with derivative y' (0): 


step = 2 (EST - y(0))/y' (0) 


This equation tends to overestimate the stepsize 
since the unconstrained minimum will normally not 
lie on the line through x with direction h, There- | 
fore-step is taken as stepsize s only if it is posi- 
tive and less than one. _ Otherwise s.= 1 is taken as 
stepsize, 

At the: a5cone stage 7) ans y' v(t are eeained at 
the porte: 


peta 2s, : ron ergs +8) Sp 


where successive values are epiained by doubling 
the stepsize. | : | 

This search is beiniaated: at t= Sp if: 

y ae ae 
or y' (s, ) > 0. 


egy 
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or ifs, (2 [ul) > = 10". 


The age case (search argument runs. out of range) 
is interpreted as an indication that no local minimum. 
exists on the given line. Therefore, the error in- _. 
dicator is set to'2' and further calculation is by- 
passed; that is, FMFP returns ne current minimal 
value with ERROR = A 

In case y' (S9) = 0, ty is set to sp and Xm = xtSo 
- his used as argument of a constrained minimum 
on the line through x with direction h, 

In the second and third case y (89) > 0 and/or a 
y(s9) =y(S4)s a minimum lies necessarily between _ 
S, and so. Its argument value gets approximated | 
using cubic interpolation. 

The extrema of the cubic interpolation passing 
through (Si, y1= y(Sy), Y'1=y  (Sq)) and So, yo = 

y (So), y" 9 =y' (So)) are the roots of the quadratic 
equation 


t-s. 


f q 
v4 AAEAY » ——— 


3 t - Ss _ 
= + ae ry ‘20(—)?- 0 
1 2 —_— ee 


Voy 


S_-S 
2 





with z = vary = 3 
1 


t-s 





The substitution = = 1-q gives a 


2 °1- 
y'. - Baty -4z}or ty ty '+22) = 0 | 
2 ee oe a ee 


with the solutions | 
a 
ae : 


~ ylag + 
yyty ot22 


where — 


w = + 2B ay 
| V4 “Vi% 9 


It is interesting to nore that y 1 <0, y 9 29, 

as well as y 1<0,y "9 <0, yo 2y1, that is, [z|< 
ly'3+yy|. guarantee a real value of w. This means 
the cubic interpolation polynomial has real extrema, 


The cubic interpolation polynomial may ceecenate 
to a quadratic if y 1 +y gt2z = 0. 


with minimum at 
1 
V9 
a= Peet 
VoVy 


The sign of w must be so chosen that a belongs to the 
minimum, which is necessarily between s, and So. 


From 
: | 
= 7 
| Vo v4 2w 


(Yo Z-+w) (V5 Vy 1 2w ) 
Voy Typ tiaw t 19, 
(Yo Vy 2W) (Yo Vy 1 2w). 


1 | ! t t 
+ ree -—=_ tt 
: (y otZ-W) (y ,tY .~22) - y tz-w 
Vey V4 fay! Te ea a 
(Yity ot22)(y ytY 9-22) sty ot2z 


It is easily seen that 
t 
Vy 97 Z+Ww 


QQ =. 7 
Vo as 





respectively, if y 9-Y 2 = 0 
t 
+Z- 
y tZ-w 


VitV 5 2Z 


a= 


give the argument of the minimum in all cases. The 
first formula gives extra numerical stability if y 

is close to -y', and y; is close toys and alsocontains 
the degenerate case as special. The second formula 
may be necessary if both extreme values lie be- 
tween sj and So. Then the one closer to sj is the 
minimum, (This follows easily from geometrical 
considerations. ) | | 


The following analysis shows that 0 ares. 


vy, >9, y, <Oimplies w >|z|. Hence 


: Y _ ' as - 
Yo pr ie . 


0 <——— <q=— 
ap tte =-v.l. ae, eee | a 
y staw-y Vey haw 
y \+2w 
Pe ee 
ts x77‘! 
ee alae (1) 


1 


1 and w <|z|. 


! e e | t 
Vo 2y',V'9< 0 implies 0>z <y ot V 


Hence 

a ee a 

A. Nona eens A ea 
Se ae i Pte to 

Y 4722 yy yitV5 22 

-¥ 722 

ot ae T onay << ly 
Y 9 1 (2) 


Note that for the other root 


1 1 
y gt atw ay 9% 


SS ee Ss 

1 Vy ota Bes a_i t 
y ys 2Z Vo 2Z-Yy 1 

The minimum of the cubic interpolation poly- 
nomial is located at 


Ss, = s,+(1-0) (s 


"8 ~ a (S-S4 


9784) = 85 


If y(Sg) = y(Sz) and y(Sg) <y(sq), then ty, is set 
equal to sg and Xp = x+t,,° his used as argument 
of the wanted minimum along the given line. Other- 
wise, the interval (sj, so) is reduced by replacing 
Sz by Sg if y(sg) < y(sz) and y ' (sg) < 0 and by re- 


‘placing so by sg in all other cases. Then the inter- 
' . polation process is repeated for this new reduced 


+ 


interval. 
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ERE RE KEE 
X 
REKEK CE LREKKEERKRE 
* PRESET * 
* ERKOR="0%, * 
*INIT. ITERATION*® 
: COUNT * 
BR RE RR RK EK K 
* . 
* * 4 
* DL *.X. 
* a 
ee eK © 
CONT x 
RREKE LY LEK KHER K 
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* GENERATE | *# 
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PROCEDURE FMFP DETERMINES AN UNCCNSTRATNED MINIMUM OF A FUNCTION OF SEVERAL VARIABLFS 
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* END OF: 
ZPROCEDURE FMFP ; 


EREKKEKKKES KKK 


@eeteoeoeee8 6 @ @ 


ON 
BERK IS KEKE RE EK S 
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& 
* SET ERROR="L* * 
* POOR * 
: CONVERGENCE : 


RRR EK RR KE ES HK K 


eeceeveneneenese 


e Subroutine RTF | aseTrar — 


THEN OX =X2C#F2/Ty. RTF 

1F DX NE 0 RTF 

THEN GO TO COMP,. RTF 

END,. RTF 

IF F21=0 RTF 
THEN IF INCL="1°* RTF 
THEN GG TO HALFy. RTF 

E GU TO SEEKy. RTF 
=F2/F21y.6 RTF 

RTF 

=MAX(MI,LE-3) *MAy. RTF 

IF INCL NE "1! RTF 
THEN IF ABSC(OX) GT TOL RTF 
THEN IF DX LT C RTF 
THEN DX =-TOLy. RTF 
ELSE DX =TOLy. RTF 

T =X2-DXy6 RTF 

IF INCL="1! RTF 
THEN IF (XX-T)#(XXX-T) GT O /*TEST IF INSIDE INTERVAL */RTF 
THEN RTF 
HALFes RTF 
T =UXX#XXX)%005 96 RTF 

LOPT =OPT,. RTF 

GO TO TEST. RTF 
EXIT.. RTF 
ERROR='C',y. RTF 
RETURNe. RTF 
END». /*END OF PROCEDURE RTF */RTF 


RTFee RTF 
PRR RHR RHR RR ROR RR AOR RI AFOR BOE RIOR Re Be a a a eo ak eK wR TF 


/* */RTF 
/* CALCULATE ROOT OF GIVEN FUNCTION *IRTF 
/* 1F OPT = *Q* BY LINEAR INTERPOLATION (SECANT METHOD) */RTF 
/* IF OPT = "L* BY QUADRATIC INTERPOLATION (MULLER*S METHOD) KARTE 
/* IF OPT = *2* BY HYPERBOLIC INTEFPOLATION (HALLEY'S METHOD) x/RTF 
/* RIRTE 
LAERESESEE SAGES NESE LETT ORE ETE TREES TCLS SORTASE ORS IE ET A VERE TESTES OMT NTN 
PROCEDURE(X,FyeFCT,»,LIMIT,OPT) +. : RTF 
DECLARE QTF 
(ERROR EXTERNAL, INCL,LOPT,OPT) RTF 
CHARACTER(L) » RTF 
(STEP »CT,LIMIT) RTF 
BINARY FIXED, RTF 
(XaF oT Ve XX DX ae XLaX2eFL pF 29X10 9X20 pX219 RTF 
F10,F21,FF,XXXyTOLeMI MA) PTF 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/RTF 
BINARY FLOAT(53) > 7*DOUBLE PRECISION VERSION /*D*/RTF 
FCT ENTRY() RETURNS FTF 
(BINARY FLOAT),. 7*SINGLE PRECISION VERSION § /*S*/RTF 
(BINARY FLOAT(53))>. /7*DOUBLE PRECISION VERSION /*D*/RTE 
=ly. /7*INIT. ITERATION COUNT x/RTEF 
=Xeoe RTF 
=FCT(X2Z) ee /*CALCULATE STARTING VALUE H/RTE 
Sobre RTF 
=0,. : RTF 
/*LOCATE BETTER POINT e/RTF 
= . 7*BY SIMPLE SEARCH PROCESS */RTF 
rei | ae Purpose: 
=MIN(IO.LZABS(F) )_. RTF 
=MAX(1,ABS(X) Doe RTF 
RTF 


aoe RU RTF refines a given initial guess for a root of the 


=X¢Dx,. | RTE general (transcendental) equation f(x) = 0 using: 
=-DXo. RTF 
RTF 
=FCT(T)». /*CALCULATE FUNCTION VALUE ¥/RTE ‘ . 7 s 
Ser eee. /*STEP ITERATION COUNT +/RTF linear interpolation if OPT='0' (secant method) 


THEN GO TO EXITy. /*TERMENATE WITH ERROR = '*C# x/OTF 1 , : 1 —t 7? 
IF INCL='1! /*TEST. FOR PREVIOUS SIGN-CHANGE*/RTF quadratic interpolation if OPI= 1 


THEN O00,. RTF ° C) © © 
IF Y#FF LT 0 RTF hyperbolic interpolation if OPT='2!' 
THEN XXX =Tpe RTF 
ELSE GO TC SIGN,. RTF 
END». RTF . 
ELSE DO,. . RTF ° 
IF Y*F LE 0 /*TEST FOR SIGN-CHANGE */RTF Usage: 
THEN D0O,. RTF 
INCL ='1',. /*MARK SIGN CHANGE */RTF 


vee. aS ae ae CALL RTF (X, F, FCT, LIMIT, OPT); 
XX  =Ty. RTF 
FF -=Y9e RTF 
END, RTF 


ide ae X- BINARY FLOAT ((53)] 


‘IF ABS(Y) LT ABSI(F) /*TEST FOR IMPROVEMENT */RTE 
Be age te RTF Given initial guess for root of f(x) = 


F =HV¥o0 i AY . : 
co 10 CHECK: RTF Resultant refined approximation for root of 
v RTF 
IF INCL="1* zs 
THEN GO TO CHECK, « | ae f(x) = 0. 
Tren cu sosEck. a F- BINARY FLOAT (53)). 
: 
THEN GO 40 SEEK1y. /*SEEK AT SYMMETRIC POINT ent - Resultant function value for calculated 
XL =X141y. 
DX =DX+#DX,. /*SEEK FARTHER AWAY conte value of x. 
IF X1 LE Fl : RTF 


THEN GOTO SEEK1y. aTF FCT- ENTRY (BINARY FLOAT [(53)]) RETURNS 


a - Teeees: 7*STEP ODD INTEGER DENOMINATOR */RTF 
o K2e.- 
ees | RTE (BINARY FLOAT [(53) ]) 
TOL =1LE-5*MA,. /*S INGLE PRECISION VERSION /*S*/RTE e CY = 
pe seco tena: | /#DOUBLE PRECISION VERSION 7#0#/RTF Given function procedure for calculation of 
IF ABS(OX) LE TOL RTF ‘* ° 
THEN DO). RTF the function values f(x). It must be supplied 
; = ve R 
IF ABSCTY) GT TOL J*TERMINATE SUCCESSFULLY IF */RTF 
THEN IF CT LE 5 7*BOTH ARGUMENT-CHANGE ANDO *IRTE by the user, 
THEN GO TO CONT,. /*FUNCTION VALUE ARE SMALL *x/RTF 
ELSE ERROR="Wt,. J*WITH WARNING [F ARGUMENT— */RTF 
GO TO RETURN,. /J*CHANGE ONLY IS SMALL REPEAT. */RTF ‘ 
CONT. RTF Usage: 
ENO,. RTF 


ELSE CT =O). : | RTF FCT(T) 


X20 =T-X1;. RTF 


Mp ie | /*SAVE OLD VALUES */RTF FCT(T) - BINARY FLOAT [(58) | 


QTF 
X10 =x21s. a Resultant function value f(t). 
F10 =F2l1ly). . RTF 


X20 -=Tye . /*STORE NEW VALUES */RTE | T- BINARY FLOAT [(538) J 


F2  =Yy. es ; RTF , é 
X21 =X2-Xle- | RTF Given argument of function, 





IF X2l= 0 ; : RTE 
THEN GO TO EXIT,. : RTE ‘ 
Seder RTE ‘ i 
coe ; . RTE i 
THEN DO;. J*QUADRATIC INTERPOLATION */RTF LIMIT = BINARY FIXED ; 
IF X20 NE O RTF ° e 
THEN DO ye ; : RTF Given bound for the number of function 
=(F21-F10)/X20,. RTE 
ee ela RTE evaluations to be performed at most. 
eT OK RESIN os Rte OPT- CHARACTER(I) 
T =0. 25-DX*T/Y 4 e RTF 
IF T NL O RTF Given option for selection of iteration 
THEN DX =DX/(0.5+SQRT(T) Dee | RTF 


GO TO COMP,. RTF method, 
END». RTF 


END». RTF 

END). RTF 

IF LOPT="2° RTF 
THEN DO,. /*HYPERBOLIC INTERPOLATION */RTF 
T =F2-FO*F21/F 109. RTF 
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‘Remarks: 


_ If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following constitute the possible error conditions 

_ that may be detected: 


- ERROR='C!' means no convergence obtained within 

LIMIT function evaluations, possibly because of | 

poor initial guess or unrealistically small value of 
LIMIT. 


ERROR='W' means small changes in successive 
refined approximations indicate covergence of method, 
while corresponding function values are not small _ 
enough, Possibly the function values cannot be 
obtained accurately enough by the user-supplied 
procedure FCT. The returned value of x has the 
absolutely smallest function value f(x) among all 

moet one used in the course of calculation, 


Any ore of OPT different from '1' and '2' is treated 
as if it were '0', 


Method: 
A refined approximation of the root is calculated as 


root of the linear fit through two successive ap- 
proximations if OPT='0' (secant method). 


The root of a quadratic fit through three successive © 


approximations is used if OPT="1' (Muller's method). 

With OPT="'2' the refined approximation is 
calculated as root of a hyperbolic fit eee ee three 
successive approximations, 


For reference see: 


J. F. Traub, ' The Solution of Transcendental 
Equations", edited by A. Ralston and H, S. Wilf, 
Mathematical Methods for Digital Computers, vol, 
2, pp. 171-184. 


Mathematical Background: 
Secant iteration method 


The linear interpolation polynomial through two suc- 
cessive approximants is given by eee 
formulation) 

P(t) = 


f (x,) + f be x4 (x), 


where 


I(x.) - E(x; _ VD 


TLS ea] a es | (a) 
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with w # 0 and f(x;)° f Et Xi 1 x2 | $ w? 


A refined approximation is obtained setting P(Xqy 1) 
= 0: 


X47 % - £(x,)/f | > x1 | : for i > 2 
and - a 


The asymptotic order of convergence is p= 1. 62. 
Muller's iteration method 


The quadratic interpolation polynomial through | 
three successive approximants is given by _ 


P(t) = fa) +E] yx 


+f kes 
i 


With the notation 


-1| 


Sv io | Sas as an (3) 


WE | Mead EE ae ay Ai | 
(X,-X,_ 4) | (4) 
this reads 
P(t) = f(x.) + 2w (t-x,) +f bes Xa 9 | 
2 
vy) (6) 
A refined approximation is obtained ne P(x, ay 





2 | ir" 


ie “i? 


/t ie i-1? 2 | 


or preferably 


f (x,) 


x. =x, = 
eee w (18 1 - f(x,)f 





The asymptotic order of convergence is p= 1,84. 


Hyperbolic interpolation iteration method 

Hyperbolic interpolation is defined through 
P(t) = (t-a) / (btct) 

with 


(bte x) f oy = Ee - a, for j=i, i-1, 1-2. 


(7) 


A refined approximation is obtained setting 


P(Xi44) = 0, that is, Xipy = a 


Symmetric pire | 
x (x, 97% _p/ik, tx, 1% -X o)/EK,_4 


ee 9 (X_ ila 
i+] (K_ Xa) /E(x, FOr, -X, E05, 
pe *_») 
(8) 


Xi4, is a weighted mean of Xj, Xj-4) Xy_o- 


Preferable is the equivalent unsymmetric formula: 


i” “i-2 
| ies ae = Ce ee 
; £(x,) - f(x) Xo! (9) 
with 
f(x, 9) £Lx,. x, J fe) + ffx, > % 9] #0 


The asymptotic order of convergence is p= 1, 84. 
Programming Considerations: 


1, The three above-defined iteration methods 
(1), (6), and (9) are combined a a search meth- 
od that uses arguments 


ke ee oe 
+ . A i+ f i = 0 1 e009 k 
xt 2 /(2i+1) or : aks (10) 


k =0,1,... 


until an argument t is found for which either 


| f(t) elroy) or f(t) « £039 <0, 


The value of A used internally is A= min (0. 1,|f£(x))), 
2, If an interval (xj, x,) enclosing a root has 


been found, that is, f(x) - £(x,,) <0, then succes- 
sive approximants from one of the iteration meth- 
ods above must lie inside this interval. Otherwise, 
(Xy+x,)) /2 is used as next approximation, The 
interval bounds for this bisection method are up- 
dated in the course of calculation. 

3. If no sign change has been located previously, 
the absolute argument change at a single iteration 
step is reduced to max (0.001, A) > max(1, | x |) 
if necessary, in order to avoid overshooting and 
overflow problems. 

4, If, in case of no previous sign change, the 
iteration method fails to give an argument xj+1 
for which either f(x;,4) + f(xj) < 0 or | £(Xi44)| < 
lf(x;)| , then the next approximant is eaicuiata by 
the search method (1). 

5. Calculation of the first approximant is based 
on the simple search method, while the second ap- 
proximant is calculated with the secant method, 

6. The convergence test used requires that both 
argument change and function value are absolutely 
less or equal to 107°. max (1, | X|) in single 


precision and 10-12.max (1, | X|) in double preci- 


sion, If the argument change is absolutely less 
than or equal to this internal tolerance five times 
in sequence, while the function values are not 


- small enough, then the currently best values x, 


f(x) are returned with ERROW='W', 
7. The iteration process is terminated with 
ERROR='C' if the number of function evaluations 


exceeds the user-specified limit LIMIT. 
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eeeevoveeveeserwseevoeevetoevosveeeereeeetetoeetsteosese ete sete teen ts & 


PRUCEDURE RTF REFINES AN INITIAL GUESS FOR A ROOT OF FIX)=0 USING LINEAR, QUADRATIC IR HYPERBOLI? INTERPOLATION 


KKK A LEKKREEKER 
* ae * 
: PROCEDURE RIF : 

MRE EE EKA 


Ae Re he Seg He ok 
* LIZE * 
* =] * 
* (ITERATION * 
: COUNT) : 
RRRRRE EG KKK ERK KKK 


<2 ee oe 6 


KEEEKCLERASEERAEEKS |. 
*FCT 


CALCU 
* FOR 


& 
RRKKKE 


ta — 


EREKED LEKKEKEKERE 
* PRESET 
*. ERRDO 
* INAC 
* BIS 
* ME 
HERES 


HOM © 
Cm « 
Zine 


* 
* 
* 
* 
* 
* 


Hoan 4H 
ROmPO 


* 
* 
* 
+ 
* 


+= mcr +t 
Omony tee 6 0 0 0 te HMNOMMe toe 6 oe 6 ew KTM 
HZNNHN 4H 


He Cet Ope H 


* 
MREKKEKEKK 


ee ee 8 et Hm NPC Hee ew ew oe 


Kl 

RERKKH RRR ERE EE 

§ CUMPUT E SEARCH * 
ARGUMENT,» * 

& CHANGE aren OF ¥*X.. 

* STEPSI * 


Sect cass viet 
° 
es 


X 
KKK 
* A2 * 
* * 
RERK 


RRREKK LREK RRR H 
* * 
* INITIALIZE + 
eee® REFINEMENT OF * 
STEPSIZE : 


RRR EERE EKER 
x 


* % 


esevueeeovu eevee avetcoveveaveevec@aeweoeaenvneveanwmeavueeaeveon eos ensmaeeoesvnsesvescvnaeeeesveaesc esa seeeaoseev een eeveeveevneev esc eeeeeeeev oe eee 


ST x 
SEAKGAD PARED HRA RE 


*E CT * x ° 
Bm ee eK *STEP ITERATION * * SAVE OLD * ° 
oe oX¥CALCULATE FIX) *eeeeeeaeX*® COUN) STEP * oeX* VALUES, STORF * a 
2° Ss” FOR CURRENT * 2°"® NEW VALUES #. : 
* ARGUMENT ‘ . a 4e * : 
es RERSES RAS AKEKEKKSEK RRR RAK KKK EK K Ps RRR KKK RK ee KK é 
eK P eR ‘> . 
* * e * * ° ry 
x AQ * ° * A4 * ° ° 
* x ' e x. * e ° 
HK KH eoeesreceocrenvreaseeseeeeeenew EK ° e 
X X . 
a a IT o*. ° 
B2 x, REKKKAZKEK KR KEK B4 x, ) 
.* DOES * o* ARE *. : 
.* ITERATION *. YES a" YES ot x, : 
#2 COUNT STEP Ee ere S SET ERROR="C*® &Xeeceeese# -APPROXIMANTS : 
*. EXCEED .# . *.MUCH TOO .* : 
* LIME T. * # *.CLOSE. : 
% ot PRR REE RRR RR RES *. Ve : 
* NO ° * NO e 
* ‘ ee eK e . 
e e * * e e 
e oeX* KZ * e e 
° * * eeereeceseenaeseceveveseezece e 
xX XK xX ; 
‘ o %, eve « * e 
C2 *, C3 *, CRC ATE Ck C5 *, = 
-* IS *, Peat * * CALCULATE tbo e *SHOULD *. ° 
-* BISECTION * NO WAS *. NO BUADR A: FROM * YES .~* AND COULD *#, ° 
x. METHOD Pers “SIGN CHANGE e® cane coe e® QUADRATIC ¥Xeccccscee Ye ITERATION BE .* ° 
¥e ACTIVE so *. LOCATED .* " @ : INTERPOLATION : eeQU AURAL Cet ° 
* = x, * o> vs REA KEKEKK EK EK E x ~*« é 
*" YES *°YES pe #” NO : 
e ° ee xX e 
X SIGN x ee « * ° 
KREKSOD RRA KEK EK RHERKK ORK KR HKKE KER ee he REKKKY AKKKEKEKKEE DS x, es 
* * ACTIVATE ee * CALCULATE  * e *SHOULD *. « 
*UPDATE INTERVAL*® : BISECT ION : - X pets oena FROM * YES ~* AND COULD * e 
* BCUNDS  * METHOD, SAVE 2 eseee*® HYPERBOLIC RXecvescce eT TFRATION BE .% ° 
rj : SINT ERV AL BOUNDS oe . INTERPOLATION ; : weno. ge * 
KREEKSSKAEKKERKKK exueccucesueesase Sh fe REKKEKEKE KEK EKEKK * ,* m4 
e e ee , * NO e 
e aeXccescvccsesesn »& e e 
eXacveccsncencrceneneceoreece ° e e 
: ° . ° 
E2 *, RKEKKEZKK KERR KEKE ‘ decade abd ceca F5 *, ‘a 
HAS ¥. * SAVE CURRENT & . CALCULATE ~* TS *, * 
«* FUNCTION * YES * VALUES OF * ° # INCREMENT FROM * YES .* LINEAR *, ° 
° VA LUE o Fe eee eeeX® FUNCTION AND & . LINEAR * weeceeee HOINTERPOLATI ON: # ° 
*.DECREA SED. # . ARGU MENT pa ° : INTERPOLATION : *. POSSIBLE |. ° 
%, 4 RKEKKARKE KEK EKKEKKSE Es cyecdwecceenesaks * .* . 
* NO . ° ° * NO ° 
e ° evececccvcccors e e 
x : e e X e 
 *. CHECK X comMP X - *, ° 
F2 x, EKER EZKEKKEKKKEEK KEKKREP GREKKKAKEKESK FS *, 5 
* IS 4, : CALCULATE & *SET UP INTERNAL® ~* #%IS *. « 
+ BISECTION * YES INTERNAL * SNe ted TOL» : NO .* BESECTION ° 
° xe ME THOD Foc counlacX? TOLERANCE FOR * INACTIVATE Ke aee cee Fe METHOD 8 .% . 
° *, ACTINE Pie SPOLE OWING TESTS® *SEARCH PROCESS ; oe Fe ACTIVE Pe e 
* *, * Teyeeeks cise ea: cievesicewewseek: é xX x x “« 
° * NO ° o ¥*Ktt * YES ° 
e « ® o* * ° e 
* ° « o* FL % ° e 
e ° e * % e e 
. * * 0 FEE ° ° 
° x x ° ° ° 
° *. PS e HALF X ° 
ao G62 *, G3 x, REKKAG AEKEKEEKKKEE é RREKGEGS RKEKKKEKKE . 
° * IS *, * IS : a Coy OF : e * * ° 
° NO .* SEARCH *, e* ARGU MENT— “e, Yes cES ° *USE peo COEMT OF * | 
cooece Xe PROCESS o* . CHANGE ° veces ee oX#CLOSE ARGUMENTS e * INTERVAL AS) ¥®.ece 
o ACTING e *, SMALL »? CT ~ e : NEXT ARGUMENT : X 
a, 4 * * ~% eckusexekiseseins s eeeencenscsnseees Pa 
* YES * NO ° ° X ° 
x ° X e e NO « 
o * X o%. e o *, e 
H2 x, BEEK HSREKEKEKEKE H4 *, . H5 *, . 
~* WAS *. SINT LAL TZE cT=0* * TS *, ° ~* IS *, ° 
NO .* SYMMETRIC *, (COUNT OF * YES .* FUNCTION *. ° e* ARGUMENT *. YES. 
ecooeee * POINT ALL- .* ee SUCCESSIVE x woeseek%e VAL UE o* o 00 eX *. WI THIN o Fence 
x *, READY .*¥ - * CLOSE . ° *. SMALL e ee *, INTERVAL . xX 
° *. TRIED. * * ARGUMENTS) * . *. o* ee x, .* . 
ra x,  * xX he he He He a ek ge ka ek eK * x, 4& a * ~& ‘a 
° * YES CREB ° * NO ee _* * 
. ° * * ° ° eo o 
° e * AG *® e e oe e e 
ry e * e ° ee e 
° ° REKK ° e oe e 
e x e x ee . e 
: TT tT WEST CTT ee : J4 7%, Mer oT CALS SOIC rT tc tn 
° * DOUBLE * ° e-* IS e ee REDUCE * ° 
° * STEPSIZE, * ° NO .* COUNT CT ° ee * INCREMENT ITF & eo. 
. ‘**UPDATE COUNT OF * eo ‘eee GREATER THAN .* ee * NECESSARY TO sec 
. * STEPS Xl * . « FIVE *° ee * TOL OR ~—TOL ; 
2 SHEEKIAARSK SSE KKAKE ie Xe *,. .* a? 6 RRERKEKKEREEKSKAKS 
» ° 0 RERE * YES ee X 
a é RHeKK aX x . é. . 
e ° * * oX A4 * ° ee e 
° ° * KB Rees o* * e e ° 
° ° * _* 6 o RRRK ° 2 ° 
° x RRKK, o e ° e « e NO 
° . *, RETURN * ° X ee . *, 
. K2 *, x ~ RRR GREEK KKEKE ae K5 *, 
e * *, We AK KB aK KKK e *x 3 ‘oe “o * TS *, 
° NO .* SHOULD *., * END OF * Xx * ie, Ge » e YES .* BISECTION *. 
enccee Xe ere ee ae BE .* * PROCEOJRE RTF *Xeeenweee® SET ERROR= "WE & © ecce *o ME THON - * 
« REFINED .* * * * ¥ ° *, ACTIVE .* 
*,  * RE KEK KKK KK * _  & ‘e x, x 
* .% RHR AAR KEKE KERES ‘ *& . & 
* YES ° * 
* _. X 


@aenaeeesescensneoeossveeeoeneg ea 2@eeas ea eed 
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KK HK ARK RR ERR K 
* 


NT 
REE KA GEE EER EEK E 
* * 


@ee@eseeseeae eevee ee 080 


e Subroutine RTFD 


THEN DOs. RTFDL21C 
IF ABS(OX) GT TOL RTFD1220 
THEN IF DX LT O RTFD1230 
THEN DX =-TOLy. PTFDL240 
ELSE OX = TOly. RTFD1250 
RTFO.. RTFO 10 END). RTFD1260 
(DCR ROR IOI 2 hog tok ROR gO ROO ation gg og 2 RIO ROR IR 2k HOR ES HERE ERK EE EK/R TED 20 T =X2-DX96 FTFDL270 
/* */RTFO 30 IF INCL="1° RTFO1280 
/* CALCULATE ROOT OF GIVEN FUNCTION USING DERIVATIVE VALUES. */RTED 40 THEN IF (XX-T)#(XXX-T) GTO  /4TEST IF INSIDE INTERVAL - &/RTED1290 
/* IF OPT = "C* BY LINEAR INTERPOLATION (NEWTON METHOD) */RTFD 50 THEN RTFD1300 
/* IF OPT = "1" BY INVERSE QUADRATIC INTERPOLATION */RTFD 60 HALE «. RTFOL310 
/* IF OPT = *2* BY HYPERBOLIC INTERPOLATION (HALLEY METHOD) s7RTED v0 T . HOXX#XXX) #059 RTFD1320 
/* . */RTFD 8 ’ 


GO TO TEST,. 


; RTFO 
ARR RR RRR RO RR ROR ROR ROR ROR RRR RRC i Ho RR HEHE KERR KEKKEKE/RTFD 90 1330 


END». RTFD134C 


PROCEOURE(X1F, DF sFCTyLIMITsOPT) >. RTFD 100 ELSE IF INCL='1! PTFD1350 
DECLAPE RTFD 110 THEN GO TO HALF,. RTFO1360 
(ERROR EXTERNAL, INCL pLOPT,OPT) RTFO 120 ELSE GO TO SEEK;. RTFOL370 
CHARACTER(1) » RTFO 130 EXI Tee RTFOL380C 
(STEP,CT,LIMIT) RTFD 140 ERROR='"C°%4. RTFD1390 
BINARY FIXED, RTFO 150 RETURN... RTFD1400 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/RTFO 170 





1* BINARY FLOAT(52), /*DOUBLE PRECISION VERSION /*D*/RTFD 180 
FCT ENTRY 9. RTFO 190 
STEP =l;. RTFD 200 
X2 =Xee RTFD 210 
CALL FCT(X2,F2,0F2),. /*CALCULATE STARTING VALUE *JRTFD 220 
F =F29. RTFO 230 
DF =DF2,. RTFD 240 ‘Purpose: 
INCL,ERROR="Ct,. RTFD 250 
cT =Cye RTFO 260 
LOPT ="Ot,. 7*NO PREVIOUS VALUE AVAILABLE */RTFD 270 
GO TO COMP,. /*USE NEWTON METHOD */RTFD 280 ° s ne a 
meee : —7*ULOCATE BETTER POINT a etko 290 RTFD refines a given initial guess for a root of the 
Fl =lee /7*BY SIMPLE SEARCH PROCESS */RTFD 300 ° = e 
LOPT =9$*,. RTFD 310 general (transcendental) equation f(x) = 0 using: 
SEEK206 RTFD 320 : : 7 , 
Dk =MI/F Ly. RTFD 330 Linear interpolation if OPT='0'(Newton method) 
Flere 
SEEKlee RTFO 350 . : . _ Lf 1 
pret iia aE Inverse quadratic interpolation if OPT='1 
DX =-DX_. RTFO 370 e e e e ‘ 
TEST. : RTFD 380 Hyperbolic interpolation if OPT='2' 
CALL FCT(T,Y,DY) +. /*CALCULATE FUNCTION VALUE */RTFO 390 ; 
STEP =STEP+ly,. /*STEP ITERATION COUNT */RTFD 400 
IF STEP GE LIMIT RTFD 410 
THEN GO TO EXIT,. /*TERMINATE WITH ERROR ="C® */RTFD 420 


Usage: 


IF INCL=*1°* /*TEST FOR PREVIOUS SIGN-CHANGE*/RTFD 430 
THEN DO;. RTFD 440 
IF Y*FF LT Q RTFD 450 : 
T =T >. RTFD 460 
ELSe GU TO SIGNs. RTFD 470 CALL RTFD(X, F, DF, FCT, LIMIT, OPT); 
END». RTFD 48 
ELSE OC;. RTFD 490 ; . 
IF Y*F LE C /*TEST FOR SIGN-CHANGE */RTFDO 500 
THE te RTFD 510 od 
ss racl pt As /*MARK SIGN CHANGE aa haps x BINARY FLOAT [(53) ] 
SIGN.. ae RTFD 540 Given initial guess for root of f(x) 
XX = Tine RTFD 550 
FE O=Y5. RTFO 560 = Q, 
ENDye RTFD SBC an ats 
IF ABS(Y) LT ABS(F) /*TEST FOR IMPROVEMENT */RTFD 590 Resultant refined approximation for 
THEN DOQ,. RTFD 600 2» 
XT ae RTFD 61¢ root of f(x) = 0. 
F =Y>o. RTFD 620 
a6 R 
END». RTFD 650 i 
etna ceueoreee Resultant function value f(x) for 


THEN GO TO CHECK,. 


RTFD 670 
IF LOPT NE 'S!* RTFO 680 . returned X, 


IP DX LTO | areo vee] = DF — BINARY FLOAT [(58) ] 
THEN GO TO SEEKlo~ /*SEEK AT SYMMETRIC POINT */RTFO 710 ee i 
Xl =X1+1,. RTFD 720 Resultant value of derivative f'(x) 
DX  -=DX+#DX,. /*SEEK FARTHER AWAY */RTFD 730 | 
IF X1 LE Fl TED 740 
THEN GO TO SEEK1l>.~ RTE 750 for returned X, 
1 =Fl+2,. *STE D INTEGER DENOMINATOR * 
ob 10 SEEK a ee ar ce Md ENTRY (BINARY FLOAT [(53)] 
HECK «6 RTFO 780 
TOL =1E-5#*MA,. /*SINGLE PRECISION VERSION /*S*/RTFD 790 BINARY FLOAT [(58) ] : BINARY 
/*TOL  =1E-12*MA,. /*DOUBLE PRECISION VERSION /*D*/RTFD 800 
IF ABS(OX) LE TOL RTFD 81¢ FLOAT [(53) | ) 
THEN DO,. RTFO 820 
CT =CT+ly. RTFO 830 : ; ; 
IF ABS(Y) GT TOL /*TERMINATE SUCCESSFULLY IF */RTFD 840 Given procedure for calculation of 
THEN IF CT LE 5 /*BOTH ARGUMENT—CHANGE AND */RTFD 850 
THEN GO TO CONT». /*FUNCTION VALUE ARE SMALL e/RTFD 860 values £(x), f* (x), It must be sup- 
ELSE ERROR="W',. /*WITH WARNING IF ARGUMENT— */RTFD 870 . 
GO TO RETURN,. /*CHANGE ONLY IS SMALL REPEAT. */RTFD 880 plied by the user, 
CONT. RTFD 890 
: END». RTFD 900 , 
ELSE CT =0y. RTFO 910 
Xl =X29 /*SAVE. OLD VALUES */RTFD 920 Usage: ae 
Fl =F2,. RTFD 930, Te 
OF1 =O0F2,. FTFD 94¢ CALL FCT(X, fr, DF); Ne 
X20 -=Tye /*STORE NEW VALUES */RTFD 950 a. 
F2  =Ys. RTFD 960 
OF2 =DY,. RTFD 970 X- BINARY FLOAT [(58) | 
DY  =X2-X1y. RTFD 98¢ ; 
IF DY= 0 RTFD 990 : 
THEN GO TO EXITy. RTFD1000 Given argument value, 
COMP.. RTFO101C 
He sre ees Ne: RTFO1020 F - BINARY FLOAT [(53) | 
MI -=MINCO.1,ABS(F)) 9. RTFD1030 a ‘ 
ay Dee Ne 0 RTFD1040 Resultant function value f£(x). 
ae RTFD1LO50 i 
DX  =F2/DF2>. /*NEWTON METHO me 
egret mine “mipiee DF - BINARY FLOAT [(53)] 
et =tF20F11/0%. oe Resultant derivative value f'(x). 
= 2-Tye : ’ 
T —-=DX#(DFI-T#Y#Y) /(DE2#DY) y. eTFOLLLC LIMIT - BINARY FIXED 
IF LOPT="1! — /*MODIFICATION..« */RTFD1120 . ° 
THEN DX =OX¥#(14T),. /*INVERSE QUADRATIC INTERPOLAT .*/RTFD113C Given bound for the number of function 
THEN TF TNE 1 7#HYPERBOLIC INTERPOLATION -@/RTPD11L50 i f d 
TIENGDOs. ook Nate: pre evaluations to be performed at most, 
END, . 
LOPT =OPT,. RT FDL 180 OPT - CHARACTER (1) 
TOL =MAX(M 7] —3)% ve ry e e e e 
IE INCL NE Jie RTFD1200 Given option for selection of iteration 
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Remarks: 


If no errors are detected in the processing of data, the 
error indicator, ERROR, is set to zero. The follow- 
ing constitute ¢ possible error conditions that may 
be detected: | 


ERROR='C' - means no convergence is obtained 
| within LIMIT function evaluations, 
possibly because of poor initial guess 
or unrealistic small value of LIMIT. 
ERROR='"W' - means that small changes in succes- 


sive approximations indicate cover- 
gence of method, while corresponding 
function values are not small enough. 
Possibly the function values cannot 

be obtained accurately enough by the | 
user-supplied procedure FCT, 


The returned value of X has the 
absolutely smallest function value 

f(x) among all arguments tried during 
the iteration process, 

Any value of OPT different from '1' and '2' is treated 
as if it were '0'" | 


Method: | 


A refined approximation of the root is calculated 
using Newton's method if OPT='0', higher-order 
methods doing inverse quadratic interpolation if 
OPT='1', and hperbolic interpolation if OPT="2', 
With the higher-order methods the second derivative 
is estimated from a cubic interpolation polynomial 
through two successive approximations, 


For reference see: 


J, F. Traub, "The Solution of Transcendental Equa- 
tions'', edited by A, Ralston and H, S. Wilf, Math- 


ematical Methods for Digital Computers, vol. 2, pp. 
171 - 184. | 
Mathematical Background: 


Newton's iteration method 


The linear interpolation polynomial passing through 
xz, f(x}) with derivative f"(x,). is given by 

| Pit) = £6x,) + £'Gx,) (tx) nie. 
A refined approximation is obtained setting P(Xj4.4) 
=O: | 


xy f(x,)/f (x,)» for i 21 andf (x,) 7 0. 
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The asymptotic order of convergence is p = 2. 


ayers quadratic interpolation | 


Let x= = F(y) denote the inverse function of y= F(x). | 
The quadratic polynomial, Qy) passing through point 


Yis X; with derivatives F'! (v3), F'(y;) is given by 


. | ; EF! _ ) 
Oy) = EY) + PY) O-¥) + oY)  - yy 


(2), 


A refined approximation is obtained setting xj, _ 


= Oy 


FY 2, 
E17 ry.) -F 'y,) ¥, tar Y y; 


(3) 
From the identity x = F(f(x)) follows easily: 


dF _ df 1 
F we 1 /— 








dx. a £"(x) 
2 
d tt 
Fy) = — z -2e, 
dy — (£"(x)) 
eae 
te) f(x.) £"(x.) 
. Yat 
cs is a f(x.) oe £"(x,) of '(x,) ) 


(4) 
The Sey DNVOHe order of pony Sacace is p= 3, 
Hyperbolic pe tuoree anes’ Ss iteration method) 


Hyperbolic interpolation is defined a 


P(t) = a btct) | 7 6) 


with 


| = Y = r ! — f1t | 

PO) = fe, Pa) = fm), Preay= i" exp 

A refined approximation is obtained setting P(xiy 1) 
= 0, that is, Xipy = ae 

From 


” P(t) (b+ ct) = t-a follows, by differentiation, 
AAD (Ot On ;) = xj-a aoe 

 £' (Kp) (btex;) = 1-£(x;) C 
: "Cx ;) (b+ oxy ) = -2f" tx) ° 


(6) 


and from the last two equations 


of "(%;) 
oS ae NEL) 
F(x. )f" (x,)-2(f (x,)) 
and | 
{(x,) 
oo ne a ft) f (7) 


Pe)" are 


The asymptotic order of convergence is p= 3. 


Estimation of second derivative 


A cubic interpolation polynomial passing through 
points xj, f(xj) and x;_4, f(xj_1) is of the form 


P(x) = E(x.) + (x-x,)f (&,) + o(%-x,)” 
+ ptwex oex, 3) - (8) 
i i-1 


P(x.) = f(x.) and P'(x,) = f (x) are already 
satisfied, If we set 

= t —_ ' 
P(x, _) f(x. _,) and P (x,_) = f (%,_4) then 


a t 
f(x, x. f (x,) 


oe x = 
i-1 i 
t t : 
Me ee ae ee 
B = ee 
a a 


The second derivative f" (X;) is estimated by 


PM(x) = 2 (a+ B(x,-x,_4)) = 2(at'ex) 


gt Are i : 
: Mey) mae 3g 


the Me 
(% 


i-1) (9) 


‘Derivative estimated iteration methods 
Replacing f"'(x,) in (4) and (7) by P"(x;) gives 

5 ana fm) | 

#1 “i f(x.) | | | 

: . st . - 

f(x) 2f (x) + £1) - Bf 0%, x, 
' _ ‘yet 
re) Saye) 





L 





(4') 


and 
f (x,) 





1 
iG) 4 (+f y) - 38, x 1J 
t's) (x,-x, 4) f'&) 





(7") 


The asymptotic order of both these iteration meth- 
ods is p= 2.783. 


Programming Considerations: 


1. The three above-defined iteration methods (1), 
(4'), and (7') are combined with a search method 
that uses arguments 


i=0, 1 ee yk (10) 
k=0, 1,... 
until an argument t is found for which either 


x + ok ¢ A/(2i+1) for} 


lety| <|feg| or ety f(x) < 0. 


The value of A used internally is A= min (0.1, 
| £(x)| Van * 

2. If an interval (x],x,) enclosing a root has been 
found, that is, f(x,) ° f£(Xy) < 0, then successive 
approximants from one of the iteration methods 
above must lie inside this interval. Otherwise, 

(xj + Xy)/2 is used as the next guess, The interval — 
bounds for this bisection method are updated in the 
course of calculation. 

3. If no sign change has been located previously, 
the absolute argument change at a single iteration 
step is reduced to max (0,001, A) + max (1, | x|) if 


- necessary, in order to avoid overshooting and over- 


flow problems, | 
4, If, in case of no previous sign change, the 
iteration method fails to give an-argument for which 
either f(xj,4) ° f(xy) < 0 or | £¢xi24) | <|£(x;)| the next 
approximation is calculated by search method (1). 
5. Calculation of the first approximant is based 


on Newton's method in all cases, while for those 


following, the higher-order iteration methods are 


~ used if specified, 


6, The convergence test used requires that both 
argument change and function value are absolutely. 
less than or equal to 107° max (1,|x |) in single 
precision and 107! max (1,| x|) in double precison, 
If the argument change is absolutely less than or 
equal to this tolerance five times in sequence, while 
the function values are not small enough, then the 
currently best values x, f(x) and f ' (x) are returned 


with ERROR='W',. 


7. The iteration process is terminated with 
ERROR='C' if the number of function evaluations 
exceeds the user-specified limit LIMIT, 
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PAUCEDURE RT FO REFINES AN INITIAL GUESS FOR A ROOT OF FIX)=0 USING LINEAR, INVERSE QUADRATIC JR HYPERBOLIZ INTERPOLATION 


ecaoeaeneeseeeeasneet en eee eseveeeeaevneeneeeeeeeeeeeeeeeeese eee ee eeeevveensseens eaves eonxnecnenvnevenvenee nese senne 


ST x CONT . 
' RREKBAD RAERKKHAEK . KERR ABR KKK KKK RHR KRA Ge ke ke KK KK . 
ERREA LKKESKKKEK *FCT * * x x * - 
* * *---—--——-—-----—-—-* *STEP ITFRATION * * SAVE OLN * ° 
*PRUCEDURE RTFD * e 2 XC OMP. VALUES F %eaeeeeeeX*® COUNT STEP * oe «X* VALUFS, STORF * . 
* * - * AND F* FOR * * * « *® NEW VALUES * ° 
MERCER é SC URRENT ARGUM, * * x é * * . 
é ; é KKAESS RSS RAK AEK EK RR ee eK KK . RRR AE AK KRESE KA KKK - 
* ; KK ‘ ete ‘‘ < 
A * * 4 * 1 . 7 
° *A2 * ° , * AG * e ° 
ae * * é ; * « ‘se GC 
es BERS eeeeeaeevceveeseoeveaneeeeeeveeneceaoeneoee 8 BEEK e e 
° X x ° 
x o ¥e FXTT *, e 
RHEE eK EEK KEE B2 *, : =~ He RK HF Hk eK KR HK B4 =, < 
* INITIALIZE * -* DOES +, : * o* ARE %, ° 
* STEP=1 * «* ITERATION *% YES * YES .* ° 
* ITERATION * *. COUNT STEP eo cana SET ERROR="C# *X oe we oe oo ® eAPPROXIMA ui .* e 
* COUNT) * *. EXCEED .* & *.MUCH TOO ° 
* * *. LIMIT. * * *.CLO SE. ° 
KEKE EKA RKEEK ES %,  * Teesheseeneaenves x, .* . 
"8 * NO . * NN s 
° ° e KER e e 
eo e e * * ° e 
e oe 0 oX*® K3 * oe ° 
e e * * Peeves eeceeesneeevenaeeereaeens e 
* xX KK x « 
x o *, ; o*®,  *, e 
ST CPL LTR SE TERE re C2 *, C3 *. RHRAKEK GRERKKKKKKRE C5 *, - 
* FCT e*. 1S *, o* *. * CALCULATE * - *SHOULD #%. ° 
Re + e* BISECTION * NO WAS *. NO * INCREMENT FROM * YES .%* AND COULD #*. ° 
®CUMP. VALUES F * *, METHOD i er cH *SIGN CHANGE e*% cece eo eek® INVER SE XX ecccecee eI TERATION BE .% ° 
AND F*® FOR * * ACTIVE .* *, LOCATED .* ee * QUADRATIC * *, QUADRATIC. * e 
* INITIAL GUESS * +, -* *, o* ee * INTERPOLATION # *. - * . 
RK KKK KK KEKEKES oe ‘ *, o* aa Te RH RE RK KH KEK K x  * ~ 
e * YES * YES . * NO ° 
eo e e se es xX es 
x X SIGN X ° © o *. ° 
KEERK DL RRESKEEKEK REKKAY PA RREKKSEKEKK Re ARH OD ke ie eK KK KH ‘oe MERE KDY GEEK KEK KKK D5 x, Py 
* PRESET * * * * ACTIVATE eo * CALCULATE: * « *SHOULN -%, * 
* ERROR='" 0%, * *UPDATE INTFRVAL*® : BIS ECT ION . « X * INCREMENT FROM * YES ~* AND COULD #. ° 
* INACTIVATE * * BOUNDS * METHOD, SAVE « eeve® HYPFRBOLIC RX eaccccee eI TEFRATION BF .* ° 
* BISECT ION * SINTERVAL BOUN OS « « ' * INTERPOLATION * x HYPERBO- .* ° 
* METHOD * * * . * * * LIC .# ° 
KEKEEKEEKEKEEKKEKSE REARS KKSKKEKAKKE pianeneceaeieene: a. % HER HH Me oe eke ee Be: 3 & ‘ 
s e e oe * NO ° 
e se oXxesvevvsesvee e s e 
° erXsesecceccaceccenoccroeesene e ° ° 
: x * . ° 
FRKEKE LKKEKKKKEKE E2 x, RRERKEZIEKRKEK KEKE é KREKKRE AREER RKKEK E5 =, ‘ 
* INITIALIZE CT=0% -* HAS *%, * SAVE CURRENT * ° * CALCULATE x -* TS %, e 
* {COUNT OF * «* FUNCTION * YES * VALUES OF * ° * INCREMENT FROM * YFS .* _LINFAR *, ° 
* SUCCESSIVE Foes Xe VALUE a XeneeeeeeX*® FUNCTION AND * ° * LINEAR FXeeevccace *eINTERPOLATICNK. * ° 
* CLOSE * . *.DECREASED. * * ARGU MENT & e * INTERPOLATION * * POSSIBLE .* ° 
* ARGUMENTS) * 4 +, -* * * ~ & * *, <3 ; 
MERE EE REKEK * ,% RREKRK KKK KKK KEKE LK o Rem KH BR Ra KR KK *, . * 6 
ERK * NO * ° ° * NO . 
EKKE * * ° s is 6 ‘‘ tas 
* * F4 * e ‘7 eseeen2onsd S6e Ke s @e 
* Fl *€e.0. x * e o e e ° 
* ° Ree ° ° e e . 
Fee% e X - * X e 
SE X 9 4 CHECK X COMP x * ° 
SEEKERS LR KEEKEKK F2 x, REAR EZEKE KERR KK RKKRK BE GEEK AKKKE FS x, > 
* INITIALIZE * ~* IS *, * CALCULATE & *SET_ UP INTERNAL* e* IS *, ° 
* STEPSIZEs * »* BISECTION * YES * INTERNA : *TESTVALUE TOL, * NO .* BESECTION *,. e 
-*® ACTIVATE SEARCH*X... *, ME THOD o Xe eweeee eX *® TOLERANCE 0 eX*® INACTIVATE Keowee ‘coe ¥e MF THOD -* e 
* PROCESS * ° #o ACTIVE rd SFOLLOWING TESTS ° SEARCH PROCESS : 2» e ¥e ACTIVE * ° 
KEKE KES EKEKEKE a * ~* Ciavecererteewace . REKRERKEK EKER RKEK EK ‘~ x x x = 
, ‘e * NO 3 me kek o ¥X&*K * YES < 
e e e e * * o* * e e 
° ° . 2 * F4 *% o* FL % . ° 
° ° ° ° * * «* * ° e 
; * e . eR EX o RSS . - 
b ° e X Xx s ee. x) 
SEEK 2 x ° . *, o*¥, « HALF X . 
SEKKEKG LREEKERKEEK < G2 *, . G3 x, RERKKG GER KEKRKKAKE * gO Paete sehen tere i. 
* CALCULATE * ° -* IS +, o* IS *, s! STEP COUNT 0F is * * ° 
* STEPSIZE,s * ° NO .* SEARCH *, e* ARGUMENT— *. YES SUCCESSIVE ° *USE mec uae OF # e 
eoeX*® INITIALIZE * eoecce Fe PROCESS o* *, CHANGE eee ee oe oXECLO SF ARCUNENTS# ° *® INTERVAL AS eee 
° * COUNT ma STEPS : *. ACTING .* Fe SMALL gat : CT ; ° : NE XT ARGUMENT : X 
‘. SEEKER KEKEKEKEKKE eo «* xe 4% MERE KARE EKEKSE = RRR ARERR SE ‘ 
° .. * YES » * NO , e e X ° 
e 2 s xX a xX se e NO es 
eS EEK 1 x e *, x o*, =) . * ° 
= SHREK EY] KEK RARAKKKK H2 x, RHKEKKHZEKSEEKEKKEKK H4 x, . H5 x, * 
e ‘ SCOMPUTE SEARCH * e* WAS *, -*INITYALIZE CT=0% o* TS *, ° o* TS *, « 
* ARGUMENT» * NO .* SYMMETRIC *. * (COUNT OF & YES .* FUNCTION #&, ° »* ARGUMENT * YES. 
. * CHANGE SIGN OF kee seccee He POINT ALL- .* eon *® SUCCESSIVE * eveneek®e . VALUE +g ® 2 00 eX*, WI THIN e *Xeeee 
° STEPSIZE xX « READY .#*.. - * CLOSE * * *. SMALL .* ee * INTERVAL . X 
° : ° e TRIED. * * ARGUMENTS) * e *. o* ee x, .* ° 
° SEEKS KK KKKKEKE ° 4, XR RK KK o *,. _* ar *,. , * . Fs 
* ° ° * YES % ek . * NO ee * ° 
e e e e % * e eo ee ° 
° e oe e % AS * ° ° . e 
e x e e % e © °° @ e 
° EK . ‘s *¥ ae . 7 ots e 
‘e * * ° ° ° X o e@ ° 
° * A2 * ° x ° 0%. ee ° 
e * * e RHR KID SHREK EK EK . J4 *, es RRRKE IS RRR RR Py 
° eeKX ° * NQUBLE - * .- »* IS '*, ee * REDUCE * * 
. ; . STEPSIZE ° NO .* COUNT CT ° ee * INCREMENT IF * ° 
° ° *UPDATE COUNT OF * «© eee*®.GREATER THAN .* ee * NECFSSARY TO ¥eeee 
° “. : | STEPS X1 : 2 ae FIVE Pe ee ; TOL OR —TOL : 
° a RHERKRAKKK RAK EKS KK Se xX x, 4X ‘e % RRA KKK RKRKRKEKE K 
e e -@ « SEEK * YF S oe e xX 
e e e RRRK o* * e ee e 
° ° e * e* AG * . ee ° 
e e e * K3 Keone o* * s s e a 
° e e * * e e EEK e os e@ ra a) \ 
e e X RREK e e e e e@ a e NO 
° “6 2 * RETURN ° ° X ee . *. 
© RERERK RK RKERR EK m K2 *, x : HEREC GEERERREREE Lg KS *, 
- 5 % *, atte ieee totass : * * . ~* 15 *, 
- * INITIALIZE #*  . NO .* SHOULD ; END OF X 4 DYES .* BISECTION *. 
eoee® REFINEMENT OF * ......%. STEPSIZE BE .* * PROCEDURE RT FD Fade SFT ERROR="W" * 5 o...%. METHOD « 
*  “STEPSIZE +. " “#. REFINED .#- eo % ACTIVE .* | 
* x *, .* * peeeeeeenaeeene” . eo s : : 
FERKKREE SHE REREDES a ee EERE AREER KEE RHEE ; * .# 
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Systems of Ordinary Differential Equations 





ENDy. DERE114C 

7*END OF EXTRAPOLATION LCOP = */DERE115¢0 

HS TEP=HSTEP4+1,. /*UPDATE COUNT OF HALVING STEPS#/DERE1160 

e Subroutine DERE LH = =LH#0.5,. DERE1170 


IF HSTEP LE 20 /*MAXIMALLY 20 ITERATIONS WITH */DERE1L180 
THEN GO TOC HALF,. /*REDUCED STEPSIZE */O0EPEL190 
ELSE GO TO EXIT,. /*TERMINATE IF NO CONVERGENCE */DEPRE1200 
/*END OF ITERATION LOOP */DEREL210 

ENDee /*SUCCESSFUL END OF OPERATION */DERE1226 
x =X+tLHye /*RETURN ARGUMENT ; */DERE1L230 





IF DIAG LE 4 /*SUNGLE PRECISION VERSION /*S*/DERE1240 
7*I1F DIAG LE 7 /*DOQUBLE PRECISION VERSION /*9*/DE8E1250 
oe LH =LH+LH,. § /*OOUBLE STEPSIZE ESTIMATE */DERE1260 
=LH». /*RETURN ADJUSTED STEPSIZE */DEREL270 

DO I = 1 TO LNs». DERE1280 

Y(I) =YC(I),. /*RETURN EXTRAPOLATED FUNCTION-*/DEREL290 

END». /*VALUES */OERE1300 
DERE1310 

/*END OF PROCEDURE OERE : */DERE1L320 


DERc.. OERE. 10 
LR Re Re ea RR RR RRR RC ER I I a a HO KKH KE KK RKKKKKEKKEKKEKKKKAKEKKKERKEKIDERE 20 
/* */DERE 30 
PERFORM ONE INTEGRATION STEP FOR A SYSTEM OF ORDINARY OIF- */DERE 40 
FERENTIAL EQUATIONS USING RATIONAL EXTRAPOLATION TECHNIQUE */DERE 50 
*/DERE 60 
SPR RE RRM RMR FO RO RR ROR RR RK OR KEM EKA EKER AE EE RKKHEEKKEKER/ DERE TO 
PROCEDURE(FaNyHyXeVeEPS)y. DERE 80 
DECLARE DERE 90 
F ENTRY», /*¥" = F(XsVY) GIVEN ODE-SYSTEM */DERE 100 | 
(ERROR EXTERNAL ,CONV) CHARACTER(L), DERE 110 
(EPS. YM(N) »FMH, SQMHsFMM,SQMI yDSQMI) DERE 120 ° 
BINARY FLOAT, . DERE 130 Purpose: 
CHy Xs V¥O*¥) ps YL sDYCN) ZEN) sDZON) sh Xe¥YCC(N)) DERE 140 
BINARY FLOAT, /*SINGLE PRECISION VERSION /#*S*/ODERE 150 
BINARY FLOAT(53) 1 ; /*00UBLE PRECISION VERSION /*D*¥/DERE 160 * e 
(LHy HAs CI 981 4VyFOUND yFECND 9 21 4CMT yDI 9Uy DERE 170 DERE performs one integration step for a system of 
DT(5*N)) /*SINGLE PRECISION VERSION /*S*/DERE 180 


DT(104N)) /*DOUBLE PRECISION VERSION /*D*/DERE 190 i di i i i !— 
2 eee *00U N VERSION /*D8/0ERE 190 first order ordinary differential equations Y 


Rel a a DERE’ ote F(X, Y) with given initial values Y. The stepsize H 


ERRORS tS! a | /4MARK ILLEGAL SPECIFICATION é/pere 240 is adjusted for accuracy requirements and speed 


IF LN LE C . 7*TEST SPECIFIED DIMENSION */DERE 250 , ‘ 
THEN GO TO EXIT». DERE 260 considerations. 
LH =H. | /*INIT. LOCAL STEPSIZE */DERE 270 
HSTEP=0y. : /*INIT. COUNT HALVING STEPSIZE */DERE 280 
IF LH= 0 /*TEST SPECIFIED STEPSIZE */DERE 290 
THEN GO TO EXIT». DERE 300 ° 
ERROR='G'y. /*PRESET ERROR INOICATOR */DERE 310 Usage: 
CALL FUXrYsDY) 9. /*DERIVATIVE FOR INITIAL VALUES*/DERE 320 
LF ERROR NE O° DERE 330 
THEN GO TO EXITy. y AVERMINATE IF ERROR IN F(Xs¥) *#/DERE 340 
*/DERE 350 CALL DERE (F, N, H, ie 13 EPS); 
HALF ee PAST ART OF ITERATION LOOP */DERE 360 
CONV ="H",. /*MARK FIRST APPROXIMATION */DERE 370 
DIAG =1y. /*INIT. DIAGONAL COUNT T-ARRAY ¥*/DERE 380 
FMH =Oy- /*INIT. FLOATING EXTRAPOL .COUNT*/DERE 390 = 
/*START OF EXTRAPOLATION LOOP ¥*/DERE 400 F ENTRY 
DO M = 2 TO 16 BY 2¢. /*SINGLE PRECISION VERSION /*S*/DERE 410 . : 
I DO M = TO 28 BY 29. /*DOUBLE PRECISION VERSION /*D*/DERE 420 Given procedure for calculation of the 
FMH /*UPDATE EXTRAPOLATION COUNT  ¥*/OERE 430 
HA /*CALCULATE INTERVAL SIZE */DERE 440 derivatives. 
FMM = DERE 450 Thi d b 
1 TO Me. /*COMP. DISCRETE APPROXIMATION */DERE 460 
oa ee artes DERE 668 is procedure must be supplied by the user. 
YI -=YCT)5. DERE 480 
IF MM= 1 /*MODIFY MID-POINT RULE FOR */DERE 490 
THEN DOy. /*F RST INTERVAL */DERE 500 Usage: 
IF CONV="H? /*FOR THE VERY FIRST INTERVAL +*/DERE 510 . 
THEN DQy. /*INIT. VALUES FOR CONV. TEST ¥*/DERE 520 CALL F (T, Z, DZ); 
YCCLI=YIy. DERE 530 


TEER DERE 550 T- BINARY FLOAT [(53)] 


Z1,FECTI=.500CCCOO*DY( I)». DERE 560 


FO(I)=0). /*INIT. SUM OF DERIVATIVES */DERE 570 Given independent variable. 

| END». | DERE 580 

ee aL FOCI) +0ZE)9- DERE 600 Z- BINARY FLOAT [ (53) ] 
FO = ge x * 0 e . 
FEUJ=Zly. || /#ODD/EVEN SPACED DERIVATIVES #/DERE 620 Given vector of dependent variables. 


END,s. DERE 630 
Z(1);YE=HA*ZI+Y1y. /*COMP. APPROXIMATE FUNCTION  #/DERE 640 DZ - BINARY FLOAT [ (53) ]. 


IF YM(I) LT ABSC(YI) /*VALUE FOR LOCAL ARGUMENT LX */DERE 650 ; : 
THEN YM(L)=ABS(YI)y./*STORE MAX ABSOLUTE VALUE */DERE 660 Resultant vector of derivatives. 
END». . DERE 670 

LX  =X+FMM#HAy. -/*COMP. LOCAL ARGUMENT */DERE 680 

FMM =FMM+1y. _ -OERE 690 


CALL F(LX,ZeDZ)y.~ /*CALCULATE DERIVATIVE */DERE 700 
IF ERROR NE tor DERE 710 N ra BINARY FIXED 


THEN GO TO EXITy. /*TERMINATE IF ERROR IN FOXY) */DERE 720 ; . - 
END+ « DERE 730 Given dimension of the ODE system. 


CONV ="C',. /*PRESET CONVERGENCE INDICATOR */DERE 740 


SQMH =FMH#FMH,y. /*SQUARE EXTRAPOLATION ‘COUNT  */DERE 750 H - BINARY FLOAT [(53) ] 


HA SHA*C.5 ye DERE 760 
DO I =1 TC LNy. /*EXTRAPOLATION ON COMPGNENTS */DERE 770 = 
i ert Wecaue Ore t_ VALUE iecec 706 Given suggested stepsize for current inte 
Z1yCLyDT(L) =¥C1) +HAt /*STORE NEW T-VALUE */DERE 790 
(.. 5COCOOOO#DZ(T)+FOCIIFFE(TI) 9. DERE 800 eration step. 
SQMI =SQMHy. /*INIT. VARYING SQUARE NUMBER ¥*/DERE 810 


DSQMI=FMM, « /*INIT. VARYING DECREMENT */DERE 820 X = BINARY FLOAT [ (53) ] 


MM =I,. DERE 830 : 
oe Os aie cere es Given independent variable for initial =e aluee: 
COME CGH TUS ONIaW. LP ACLNBUTE NERPTLOLER CGUMRE’ SAPDECE C70 Resultant dependent variable for calculated 
BI =SQMH*¥V,_. DERE 880 
CME =CI¥*SQMI,. DERE 890 values. 
Ol =BI-CMI,. /7*DENOMINATOR QF CENTRAL ALGOR.*/DERE 900 


Uo avn pene 910 Y(N) - BINARY FLOAT [(53)1 


IF DI NE O /*TEST FOR ZERO OENOMINATOR */DERE 920 


ee eae ee re eee | eee o eee. _ Given initial values of vector Y for givenX. 


bie, wearer DERE) oe6 Resultant calculated values of Y for 
END,. DERE 970 A 


Vv =DT(MM)>. /*SAVE OLD T-VALUE-DIFFERENCE */DERE 980 resultant xX. 
DT(MM)=Uy. /*STORE NEW T-VALUE-DIFFERENCE */DERE 990 


Zi =Z1#Uy. /*COMP. NEW T-VALUE " -*/DEREL000 EPS - BINARY FLOAT 


ENDy. © : DERE1LO10 


YI =ABS(YC(1T)-ZI),. an DERE1020 
be Air eS weccu: Pree pee eeacceiess Given relative tolerance for local error in 


THEN YI =ABS(U),. /*MAX(ABS(U) ¢ABS(YC(I)-ZI)) */DERE1040 
IF YI GT EPS*YM(I) / *COMPONENTWISE CONVERGENCETEST#/DERE105C calculated Y-values. 
THEN CONV ="L'e. /*NEGATE CONVERGENCE INDICATOR */DERE106C 
YC(I)=ZI9- 7*STORE NEW COMPARISON VALUE */DERE1O70 
ENDp. DERE1C8C 
IF CONV='C? /*GLOBAL CONVERGENCE TEST */DERELOSC é 
THEN GO TO END,. OEREL1O0 Remarks: 
ELSE IF DIAG LT 5 /*SINGLE PRECISION VERSION /#S*/DERE11LC 
ELSE IF DIAG LT 10 . /*DOUBLE PRECISION VERSION /*D0*/GERE1126 
THEN DIAG =DIAG#tl,. _ /*#UPDATE DIAGONAL COUNT */DEREL130 





If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
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following constitute the possible error conditions 
that may be detected: 


1g means, N< 0 or H=0 

'1' means no convergence was obtained 
with stepsizes H/2! for i=0, 1,. 
wee, 20 | | 


ERROR = 
ERROR = 


The last case may occur if stepsize | H| is unreal- 
istically large or if tolerance EPS is too small. 
Suggested values are | H | = 1 and EPS = 107° in 
single precision and EPS = 10°~* in double 
precision. 


If ERROR is changed in the user- supplied pro-— | 


cedure F(X, Y, DY) to a nonzero value, ERROR | 


remains unchanged and DERE returns to the call- : i“ 


ing procedure immediately. 

In all cases of a nonzero value of ERROR the 
parameters H,X,Y remain unchanged. The step-- - 
size H of the integration step gets divided by a 
power of two if accuracy requirements are not | 
met otherwise. 


Method: 
DERE uses a rational function for extrapolation and 
is based on the midpoint rule as the underlying dis- 


cretization method. 


For reference see: 


R. Bulirsch and J. Stoer, "Numerical Treatment of | 


Ordinary Differential Equations by Extrapolation 
Methods", ‘Numerische Mathematik vol. 8, 1966, 
pp. 1-13. 


Mathematical Background: 


Notation 


The problem is to solve the system of differential 
equations | 


yy a f RKsVys vee y,) a o 


Y= 4, Bs Vy. ces V,) 
with given initial values 


A) = Sno | 
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4 | 
_ T(Q, x) a3 (45, + 4 


oa 
p 


Using capital letters for vectors, this is written | | 
more eames in vector form: 


¥' = F@,Y¥), Y@,) = 


- Disoretization method 


; The underlying diseratmarion ey proceeds as 


follows: 


- Set h=H/2m, x. =X, + ih and let Z, = Z(x,,h) 


‘denote approximations to the exact value Y(x.) 
-. obtained with stepsize h by means of the midpoint 
rule: ; 


ZyaXy 2,7 2%) +hFe,, Z,) 


= + i= woe, 2m-1 
Zed Ze 2hF(x,, Z.) for i 1,2,. , 2m 1 


Extrapolation is based on 


+ 
om-1 7 UF @ 25,.)) 


Under suitable differentiability assumptions the 
asymptotic expansion of oe proceeds with even 
powers of h: 


T(h, x) = Y(x) + t (yh 4 t ()h act 


Rational extrapolation method 


Rational extrapolation is used to approximate 


T(0, x) = Y(x) | 


Assume (hj,) to be a strictly decreasing sequence 


of stepsizes tending to zero and let 


() qy = 7 “i : a b+... + pt a 


(i) (i) _2 (i), 21’ 
I +d, h +... tq) oh | 


k-[2]. Tepe 


be the rational function defined by p + 1 nodes: 


j=iitl, ...,it+p 


- | 7 : 
aa a.) a0) x), 


‘Then the extrapolated values TO) = RG) (0) that 


approximate T(0,x) are obtained from the formulas 


or @ X 


~1 
sa Sena 

| | (i+1) (i) 
ec) a a 
k  “k-1 | 2 | (i+1) (i) 


k-1 Tk 2 


for k21 


The above formulas connect by a rhombus rule 
the elements 


G1) @ pGt) pO) oe the tableau 


Thee? Tew Teel? “k 
(T array): 
(0) 
nal 
7 
7. 
Qo 0) 
0 p 
(p-1) 
1 
7 ® 
(p+1) 
oa 


Programming Considerations: 
DERE uses the stepsize sequence 


_H _H _H_;---) 
(hy = 5 » hoy eee igs 


for extrapolation. 
The square numbers 


2 
( ) = (m=k)* are 





m-k 


generated successively using the identity 


G2 Sa & i 21) 


(7 fg Ment 7 Tea | 
h, k T (i+1) _ mp (itl) 


which means that the next lower squares are 
obtained by subtracting decreasing odd integers. 
To avoid repeated calculation of differences, 


_ the rhombus rule is modified to 


(m-k+1) _ ,,(m-k) 


panrktl) __“k-1 Tet | 
vk - H/2 cen) H/2 (mk) 
(22)" anf ol 
m m-k 
r (m-k) /H/2 . Gm ~k+1) (m-k+1) 
k af Dest Ce k-1 


: | 
(m-k) /H/2 (m-k) (m-k+1) 
Ch ; (i a 


for k= 1,2,...,m 


Starting values are 


(i) (i) _ 
AT,’ =C)’=T (3%) 


and the notation 


(i) _ ‘age p (Fd) i) ,~@ _, fi 
a ee a a ie eee 


implies 


(0) (m-k) 


mM 
» AT, 
k=0 


The above formulas are evaluated successively 
for m=1,2,... Only one linear array is needed 
for storing the differences AT | 


Control of accuracy is done in a natural way: 
Comparing -‘T pnd - one increases the subscript 


I (0) are 


m until this difference and the difference A T 

small enough, which means less than the user-speci- 
fied tolerance EPS times absolute maximum of the 
approximate function values Z; obtained in the current. 
interval of length H. This convergence test is ap- 
plied componentwise. 

The sensitivity of the extrapolation process to 
roundoff increases with the order of extrapolation. 
Therefore, the number of columns of the T array 
is limited to c = 5 for the single-precision version 
and to c = 10 for the double-precision version. The 
number of rows is limited to r = 8 and r = 14 re- 
spectively. 
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If k is not less than the maximum number of 


} -ct1 
columns, the values pike are taken as succes- 


sive approximations to the resulting values of Y. 
This continues up to Pot 1) | If no convergence 
is reached at that point, the whole procedure is re- 
peated with H/2 instead of H. DERE provides at 
most 20 iterations, each with half the stepsize of 
the one before. When there is no convergence, 
DERE returns to the calling procedure with | 
ERROR='1' and parameters H,X, Y remain un- 
changed. 

Adjustment of the stepsize H is a by-product of 
the above iteration process on length of stepsize. 
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If convergence was attained with stepsize H/2), then 
H/2) is returned as the adjusted stepsize if at least 
4 (7) extrapolation steps have been performed in 
single (double) precision to obtain the result values 
Y(X+H/2J) from input values Y(X), X. 

Otherwise, H/2J71 is returned as adjusted step- 
size in order to speed up calculation time. 

Since the extrapolation method does not neces- 
sarily work with a fixed order, adjustment of step- 
size is uncritical. It does not critically affect 
accuracy, but only speed of computation. 
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e Subroutine CEL1/CEL2 


CEL1.. CEL 
THR RR RRR RR RB RK aE Fe tai a ck ke a a a ae dea ek ak teak fk kek eo ek woe KR KK KZ CEL 
/* */CEL 
/* COMPLETE ELLIPTIC INTEGRAL OF FIRST KIND */CEL 
/* */CEL 
/ SR Ra Ra i tok do kok lok io tok gtaigiotoi tot ik ioiciuig talcicioi gt ioi tctiok tok tok kok tom tore SCE L 
PROC EDURE(RES+K) >. 
DECLARE 
ERRGR EXTERNAL CHARACTER(1), /*EXTERNAL ERROR INDICATOR 
(RESeKsAsByBlsARI pAARI > GEQy AAs ANGW) - 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/CEL 
/* BINARY FLOCAT(53)¢ /*0QUBLE PRECISION VERSION /*0*/CEL 
SWITCH CHARACTER(1) 9. : CEL 
SWITCH="1',. _ J/*INIT. CELL ENTRY */CEL 
B1,AN=2,. CEt 
GO TO COM;. : CEL 
CEL2. Cc 
1 ** AEE REC E OEE EE IEEE a OREO RE REE EIA IE J CEL 
/* */CEL 
/* GENERALIZED COMPLETE ELLIPTIC INTEGRAL OF SECOND KIND */CEL 
1% */CEL 
[RRR BK RK KKK fo HK Hecororeaioosoodionanna i piaaionoaor Bona sadt/ CEL 
ENTRYCURES Ky AeB)¢. CEL 
SWITCH='2!',, /*INIT. ceL2 ENTRY */CEL 
=Ay ° CEL 
=AtBy. CEL 
=BtB,. CEL 
oe 7*START COMMON CALCULATION */CEL 
ERROR='Ct,. /*PRESET ERROR PARAMETER #/CEL 
GEO =(0.5-K)#0.5,y. /7*COMP. GEO = 1—-K*K | */CEL 
GEO =GEO+GED*K,. CEL 
IF GEO LE C /*TEST FOR SPECIAL CASES OF K ¥*/CEL 
THEN DO,. /*ABS(CK) NOT LESS THAN. ONE 
RES =L.E75S 9. /*IS ENTERPRETED AS IF EQUAL 1 
IF BL LT C 
THEN RES =-RES¢.- /*CEL2.eNEGATIVE PARAMETER B 
IF B1=0 
THEN RES =AAy. 
IF GEO NE O 
THEN ERROR='1',. 
GO TO RETUPN,. 
END». 
ARI =2¢9-6 7*PROCESS OF THE ARITHMETIC~ - 
ITER... /*GEOMETRIC MEAN 
GEO =SQRT{GEO).. 
GEO =GEO+GEO,. 
AARI =ARIy. 
ARI =ARI+GEO,. 
IF SWITCH="2! 
THEN DO,. 
=WtAA*GEO>. 
=WtWe. 
=W/ARI 5. 
@tANy. 


/*CEL2-eZERO PARAMETER B 


BL, AN=AN¢Bly. 
IF. GEQ/AARI LT .9999 
/*1F GEO/AARI LT .999999995 


/*S INGLE PRECISION VERSION /*S#/CEL 
/*DOUBLE PRECISION VERSION /*D*/CEL 
THEN ae CEL 
=GEO*AARI +6 : CEL 

GO TO ITER». CEL 


: END». 
RES =1.5707963267948STEQ#AN/ARI yo 
RETURN. 
_ ENDy. © 7*END OF PROCEDURE CEL 





Purpose:. 


CEL1 computes the complete elliptic integral of the 


first kind: 


0/2 2.2 
; dt/ 1 -k‘sin’t, 0<k <1 


0 
Usage: : 
CALL CELI (RES, kK); 
RES - BINARY FLOAT [(53)] 
Resultant value of elliptic integral. 


K- BINARY FLOAT [(53)] 
Given modulus of elliptic integral. 
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Purpose: 


CEL2 computes the generalized elliptic integral of 
the second kind: 


1/2 - | ; 
[a + (b - a)sin t] dt 


\ 1- i sine 





0<k<1 


Usage: 
CALL CEL2 (RES, K, A, B); 


RES - BINARY FLOAT [(53)] 
__ Resultant value of elliptic integral. 
K - BINARY FLOAT [(53)] | 
Given modulus of elliptic integral. 
A - BINARY FLOAT [(53)] 
Given primary term in numerator. 
B - BINARY FLOAT [(53)] 
Given secondary term in numerator. 


Remarks: 


If no errors are detected in the processing of data 
the error indicator, ERROR, is set to zero. The 
following constitutes the possible error condition 
that may be detected: 
| ERROR ='1' means |k| > 1. 
An input value of k with |k|> 1 is treated as if 


it were equal tol. The value of k, however, re- 


mains unchanged. 
Instead of + infinity, the © procedure returns a0? 
as result values. 


Method: 

Calculation is based on the process of the avrdmietie 
geometric mean, combined with Landen's transfor- 
mation. 


For reference see: 


R. Bulirsch, "Numerical Calculation of Elliptic 


Integrals and Elliptic Functions", Handbook Series 


of Special Functions, Numerische Mathematik 
vol. 7, 1965, pp. 78-90. 

M, Abramowitz andI, A, Stegun, Handbook of 
Mathematical Functions, Applied Mathematics 
Series 55, National Bureau of Standards, 1964, 
pp. 597- 599, | 





Mathematical Background: 
Notation and equivalent definitions 


Let kg denote oe complementary modulus defined 
through k2 + k =1, 0<ke <1. 


m/2 dt 


0 y 1k" sin“t 


cell(k) = K(k) = 


“1 ae oe (+k, 2.4) 


1/2 2 
+ (b- 
cel2(k;a,b) = at(b-ajsint 


0 y 1k? since 
a f at be” 
O (1+ xx" 1 (1+ x (1+ kx’) 


Important special cases of cel2 are the complete 
elliptic normal integrals: 


K(k) = cel2 (k31, 1) = 


0 Y ic" int 
n/2- 


2 | 
E(k) = cel2 (k31,k) = f 1 sint dt 


at (1k ¢ ) 


ain’ t a | 
0 | erate 


1 


D(k) : cel2(k;0, 1) 


t” at 


if 7 (1—t4) (1-714 


n/2 
B(k) = cel2(k31, 0) = [== 


cost t 


41 ici aint 
1 : 
2 
= i dt 
0 | 


2 
1-k ° 





Process of the arithmetic-geometric mean 
Starting with the pair of numbers: 

a= 2, ¢ = 2k, 
the sequences of numbers (a,), (g,,) are generated 


using the definition: 


= + = : 
an oer By-1)? Bn 2 


This iteration process is stopped at the nth step 
when a,. = £n to the degree of accuracy of the finite 
arithmetic employed. 

In case cel2 the sequences (A;), (Bj) are also 
needed. They are defined by means of 


A.=A,  B. = 2B 


0 0 
A, = Boiy/41 * Ay 
B a (Bo -4 bn- A A - D 


n 


Result values obtained are 








rE uk 
cell(k) ars : oe 
| N 
A 
4 . 
cel2(k, A,B) = > — : 
N 


Programming Considerations: 


The equality ay = gn must be interpreted as 
|an - gn| is less than ay - 10-D, where D is 
the number of decimal digits in the mantissa | 
of floating-point numbers. 

Since the sequences (2-"*a,), (27+ g,) Conve TES 
quadratically to the same limit (arithmetic— : 
geometric mean), the above test may be replaced 
by comparing lant -gn-1| against ay-1 -10-D/2, 


thus saving one calculation of the geometric mean, 


r 
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® Subroutine ELI1/ELI2 t 


x  d 
: elil (x, ck) = f ia ial ee aa 
| 2 2. 2 
ee I 1 @ : 
FS Ree Ce Te eT eee ERT IT ITT MENTS DS PDE CT TOTO IEE 5 . 0. (1+ t ) (1+ ck t ) 


/* */ELI 30 
f* “ELLIPTIC INTEGRAL OF FIRST KIND *JEL!I 40 
7* ; */ELI 50 
J RRA RR KR RHR KKH AHA EK KSEE RARER KEKE KSEKEKSR KEES ELT 60 Usage: 
PROCEDURE(RES,ARG,CMOD) 1. ELI TO 
DECLAFE ELI 80 | 
EFRO® EXTERNAL CHARACTER({1), /*EXTERNAL Accra ie eG 26 
’ ? 2A ’ IM,sPIM,ARI,AARI2GEO?S ’ ? i‘ 
Keeeteitas ai ite| CALL ELI (RES, ARG, CMOD); 
BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/ELI 120 
/* BINARY FLCAT(53),. /*DOUBLE PRECISION VERSION da uae 
ISI BINARY FIXED, 
ve I 150 om : 
ee eee sets eoccaa enene ae 160 RES BINARY FLOAT [ (53) J 
locteieegee eLT 120 Resultant value of elliptic integral. 
Fae es Suede SESSA TORRNENSA EO AIRS a ee 200 ARG = BINARY FLOAT [ (53) ] 
/ _ ¥/ELT 210 " otc cactn, 
y GENERALIZED ELLIPTIC INTEGRAL OF SECOND KIND pa : a Given argument of elliptic integral. 
/* | 
/ xe ee eK eH ae he He a ae HE a a a I AHH AKKEKAKAKKEREKKRREKEKE/Z EL I 240 ms 
PEN TVERES ARE: HUD GAB) Ge ELI 250 CMOD BINARY FLOAT [(53)] 
oo eae Peat at eee nen “ cut 270 _ Given complementary modulus of 
i eae ELT 290 elliptic integral. 
R =Bye “ ELI 3C0 
AMB =AA-R,. ELI 310 
Relais cs , /®START COMHON CALCULATION eet ac6 
OO Re cate. /*SET ERROR PARAMETER */ELI 340 ; Purpose: 
X ° =ARGy. ELI 350 
IF X = ¢ . /*TEST FOR ZERO ARGUMENT eee ace : ; | 
_ GEO" One ELT 380 ELI2 computes the generalized incomplete elliptic 
GO RE ve . 
eo ELI 400 ; ; 1 ’ ~ 
ee eee ea das ideaet | ger ace integral of second kind for given values of an argu 
Peas fo ORO eons hee taae ment x, complementary modulus ck, and constants 
AN,ANG=1l,- ELI 440 
AANG pGEO=SQRT(14X*X) 96 ; ELI 450 a and b. 
0 =ABS(X) ¢e ELI 460 
GEO =R*LOG(04+GEN),. ELI 470 
GO TO TwO,. ELI 480 
ENO>. ; ELI 490 X 
ARI =ly.e /7*SET UP pea oer y Ze , 4 2? 
G =ABS(1/X),. 4*SET UP ANG(O : 
aie rg : /*INIT. MULTIPLE OF PI */ELI 520 eli2 (x ck: a b) _ (a+ bt ) dt 
ISI =0,. €LI 530 . SS 
LOOP... /*START CENTRAL Looe #/ELI 540 ? : 2 
me are /*COUNTER ele WITH ONE vt 350 0 1+ 2 | + 2 1+ ha 4" 
=ARI 9. /*SAVE ARICI-1 */EL 56 7 
ARI =ARI4+GEG,. /*CALCULATE ARIC I) */ELI 570 ( ) ( t ) ( Cc ) 
SGEO =AARI*GE0,. ; ELI 580 
ene ennai eeay /*CALCULATE ANG(UI) ee ea 
IF ANG=0 u /*INCREASE ANG(I) IF ZERO */ELT 610 Usage: 
THEN ANG =SGE0*1.E—-8,. /*SINGLE PRECISION VERSION /#*S*/ELE 626 
7*THEN ANG =SGE0*1.E-169. /*DOUBLE PRECISION VERSION /*0*/ELI 630 
THEN DOvs ELT 650 A 2 (RES, ARG, CMOD, A, B 
T ge e 
PIM =3.141592653589793E0+PIM,. ELIT 660 C \LL ELI ( Ss ? 3 > ) 
ISI =ISI+l,. ELE 670 
END». ELI 68C 
IF SWITCH=*2!? I 69¢6 : 
THEN 00s. ELT 700 RES - BINARY FLOAT [(53)] 
R =AA*GEOtR,. /*CALCULATE BCI) *JELI 710 = e e 
AA =ANy« SAVE ACT) #/ELT 720 Resultant value of elliptic integral. 
AN =0.S5*(ANtR/ARI),. S*CALCULATE ACI+#1) */ELI 730 
AANG =ARI*ARI+ANG*#ANG,>. ELI 740 =e 
P =D/SQRT(AANG) ». S*CALCULATE I-TH TERM OF SUM */ELI  750C ARG BINARY FLOAT [ (53) J 
THEN IST. Depeaat _ Sic aee Given argument of elliptic integral. 
IF I GE 2 S*CHANGE SIGN IF ANGLE IS IN */ELI 780 
THEN P =—-Pp. /*THIRD OR FOURTH QUADRANT */ELI 790 CMOD - BINARY FLOAT [ (53) ] 
C =C+Po. . : ELT sco : 
0 =D*( AARI~GEO) #0. 5/ ARI». Lt 10 i 
aes 3 ) _ | ut aio . Given complementary modulus of 
*TEST FOR CONVERGENCE */ELI 830 7 . . 
re ABS(AARI~GEO) GT AARI*1E-4 /J*SINGLE PRECISION ait /*S*/ELT 840 elliptic integral. 
7*1F ABS(AARI~GEC) GT AARI*5E-9 /*DQUBLE PRECISION VERSION /*D*/ELI 850 
THEN 00,. ELI 860 A = BINARY FLOAT | [ (53) ] 
GEG =SGEO+SGE0,. ELI 870] - Given rimar t ; t 
PIM =PIM+APIM,. ELI 880 } 
ISI =ISI+ISI,. ELI 890 1 = p a erm in numera or 
GO TO LOOP,. ELI 900 . : 
END». 7*END OF CENTRAL LOOP */ELI 910 (see Purpose )e 
E =(ATAN(A PIM Roe tI 920 
A : ( NCAR I/ANG)+PIM)/ARI ae aac B “2 BINARY FLOAT [ (53) ] 
IF SHITCH="2! ; ELI 940 é Z 
Teneo | , ELI 950 Given secondary term in numerator 
Cc =C+D0*ANG/AANG?~ ELI 960 4 
GE =GEO*AN+C *AMB,. fs ELI 970 
libs: ELI. 980 (see Purpose ). 
IF X LT 0 ELI 990 
THEN GEO =-GEO,. © €LI 1000 
RETURN... . ELI 1010 
RES =GEO,. ELI 1020 Remarks: 
END,. /*END OF PROCEDURE ELI */ELI 1030 
Modulus k and complementary modulus isfy 
| | | a 4 ck satisfy the. 
Purpose:. : a | relation k? + ek? = 1. Internally, ck is needed fo 
Y> r 
| 7 calculation rather thank. Therefore, ck is used as 
ELI1 computes the incomplete elliptic integral of input parameter. This allows the modulus k to be 
first kind for given values of an argument x and any pure imaginary or real number such that k? <1, 


complementary modulus ck. 
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Method: 


Calculation is based on the process of the arithmetic- 


geometric mean, combined with descending Landen's 
transformation. 


For reference see: 

R. Bulirsch, "Numerical Calculation of Elliptic 
Integrals and Elliptic Functions", Handbook Series 
of Special Functions, Numerische Mathematik 

vol. ce 1965, pp. 78-90. 


Mathematical Background: 


Notation and equivalent definitions: 


x 
elil(x, ck) = f dt . 
0 (14t") (L+ck"+ +”) 
arctan xX ae xX 
_f— a Bb re.s 
o cos t Vick": tan“t Vi-K'sin 
- D 
eli2(x, ck, a, b)= | RT aPoaks Soblee eae id a 
at ) 1 (1st? ) (Lok “47 ) 
arctan x 


= | (a +btan t) dt 
2 2 2 
\(1-+tan t)(1+ck * tan t) 
0 
arctan X 
| 2 
7 | (a+(b-a)sin t) dt 
fae sin’t 
0 , 
Important special cases are: 


Ce) 
elil (tan ~, ck) = | 


0 


dt 


F(@, k) 


1 ae sant 


= eli2 (tan ¢, ck; 1, 1) 


| | | Z | 
E(, k) =eli2(tang, ck; 1, ok”) = J y 1-ksin“t dt 
| 0 


D(o, k) = Sa = eli2(tan «, ck; 0, 1) 
k 


o 
2 
| sin’ t dt 
| 2 2. 
0 1 -k sin t 


E(g,k) - ck“ F(,) 
2 


k 


Bio, k) = = eli2(tan «, ck;1, 0) 


Z { cos“t dt 

0 “J 1 ac’ sin“t 
Process of the arithmetic-geometric mean 
Starting with ari,=1, geo = | ck | , the sequences 


(ari,), (ge0p) are generated using the recursion 
formulas 


ari 4 7 ari, + geo, | (1) 
geo 4 = 2 ari, : geo, | (2) 


This iterative process is stopped at the nth step, 
when ariy = geow to the degree of accuracy of the 
finite arithmetic employed. 


Descending Landen's transformation 


For the descending Landen transformation the mod- 
ular angle a defined by k = sin a decreases, while 
the amplitudinal angle defined by x = tan 9 in- 
creases. 


Successive values of o and ~ are combined as fol- 
lows: 
(1+sin «a 


(1+cos 0) = 2 asa (3) 


D 


tan (~ ,- 0) = cos a-tan ~ 0.7 (4) 


Expressed in terms of argument x and comple- 
mentary modulus ck, these equations read 


2 Vck 


ck, ~ 1+cek ©) 
i ie (1+ck)x | 6) 
1-ck: SG | 
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For values of argument and modulus that are con- 
nected by (5) and (6) we have | 


elil (x, ck) = 7 


eli2 (x, ck;a,b) = eli2(x, » Ck, 3a,,b,) 


ae 
1+ck 


Xx 
+2) =) 


2 2 
14x, 
where 
a= (a+b) /2 | (9) 
b, = == (b+a° ck 10 
1 1+ck ae | 7) 
xy . 
The sign determination of ———— = sin oO, 
1+x,2 


must be done such that o, = arctan x; is monotonic- 
ally increasing (0,7 (). 


Final iteration process 


We set: Xo =|x|and ang) = 1/x, 








ari, | 
% = ang. (11) 
i 
geo, | 
ck, = — | (12) 
i ari 
Furthermore, in case eli2 we use: 
A. =a., B. =b.- ari. 
i i’ i i i 
then: 
Ag =a, By =hb 
= 1/2 + | 13 
Aid / (A; ari,’ -) 
B. , = B, + geo,-A, | 
B. geo, A. — (14) 


it+1 
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elil (x, ck,) (7) | 


Successive application of the descending Landen 
_ transformation gives | 


| | ari 
elil (x, ck) = 


ari 


ari 





ae 


1 


ari 





ari 
N 


eli2(x, ck;a, b) = 


a- ® 


Beh (— HEE 
a a —_——— + 


ari 


O <. -_ 
ari, elil(x,, ck,) 


ari 


ari 
2 


elil (x 


ae —— eli2 (> ck 
al 


_ sing, 


2 ari, 


ari 





ari 
1 


a ee 
——— elil(x,, ck 


an eli2 ps ck)sa 


iets 


n, “y) 


Po) 


1 


- geo, sing, 


ari 2-ari 





7 





ari 
ers eli2 (Xe ck. a by) + SUM 
N 
where: 
gb 1 es eee sin Po 
SUM = “2 la a 2s ari. ari ‘ 
ri, 2 1 2 


“F ° e e + 


arin SOx, o 


ari 





ari..° . ari 
N 


N-1 2 


1 ari)-Be0) 


1 


| a 
° N-1 . 


Since cky = 1 to working accuracy: 


elil (Ke Soe = 


N 


,» where tan ~.. 


ari 
ae i 


N- | Ang 





eli2 (Xs ck an? by) = — > On 
NPN a: 
4 car va sin On - cos On 
The final result is 
| ~p 
elil (x, ck) = — 
N 
j 
eli2 (x, ck; a,b) oe o,. + SUM 
ari N 
N 
a. —b 
+ aPS) sin On . COs On 


Degenerate cases of argument and modulus 
x = 0 gives result eli2 = 0 


ck = 0 gives result eli2 = (b -In ({x|+-V 1+x%) 


i (a-b)) xX Sgn X 


1g 


Programming Considerations: 


as equality ariy = ge0y must be interpreted as 
‘arin -geoy| is less than ariy . 10-D, where D is 
the number of decimal digits in the mantissa of 
floating-point numbers. 

Since the sequences (ari, . 2°"), (geo,,- 27N) 
converge quadratically to the same limit (arith- 
metic-geometric mean), the above test may be re- 
placed by comparing 


|ariy_4 - geoy_1|against arin-1 + 10-D/ 2, thus 
saving one calculation of the geometric mean... 


e Subroutine JELF 


JELF.. JELF 
SERRE EREKSEKKEKRE KEKE KE KEES RKSKEKE RK KEKKEKKHK KKARKRKRKEE KEKE KE KAERKKEK, JEL PF 
*/JELF 

JACOBIAN ELLIPTIC FUNCTIONS SNy CN, ON */JELF 
a/JELF 

SHERERKEE EERE EEK EKER EAR ERR EK REHM KAKA ARERR EKER RKEEKKKKEKERKKEKKE S/S JEL 
PROCEDURE (SN eCNyDNoXySCK) ye JELF 
DECLARE JELF 
ERROR EXTERNAL CHARACTER(1), /*EXTERNAL ERROR INDICATOR */ SELF 
(SNyCNeDON 9 Xs SCK pCMe Ve lL SNoLCNyLON Ke ARIC 12) »GEOC12) 9A, B,C, D) JELEF 
BINARY FLOAT, /*SINGLE PRECISION VERSION /¥*S*/JELF 
BINARY FLOAT(53)¢ /*DOUBLE PRECISION VERSION /*D*/JELF 
(I,J) BINARY FIXED;. JELF 
ERROR="0',. JELF 
CM =SCKy. JELF 
Y =Xye ' JELA 
IF CM= 0 /*TEST VALUE OF MODULUS SIELF 
THEN OO0,. /*DEGENERATE CASE SCK = C */JELF 
LCN; LDN=1/COSH(Y) ,». JELF 

LSN =TANH(Y),. JELF 

GG TO RETURN:. JELF 
END,. JELF 

IF CM LT ¢ JELF 
THEN 00,. /*MODULUS TRANSFOR MATION */JELF 
K =(0.5-CM)+0.596 JELF 

CM =-CM/Ko. JELF 

K =SQRT(K) 5. JELF 

Y =K*Y >. JELF 
END». JELF 
CytON=1l,. /*PROCESS OF THE ARITHMETIC— e/JELF 
DO I=l TO l2>9. /*GEOMETRIC MEAN */JELF 


ARI (I) eLCN=Co. | JELF 
GEO(1),CM=SQRT(CM)». JELF 
Cc =.5*(LCN+CM) 4. JELF 
IF ABS(LCN-CM) LE 1E-4*LCN /*SINGLE PRECISION VERSION /*S*/JELF 
IF ABS(LCN-CM) LE 5E-9*LCN /*DQUBLE PRECISION VERSION /*D*/JELF 


THEN GO YO CONV,. JECF 

CM =CM*LCNo. JELF 
ENDe. JELF 
CONV... /*INIT. INVERSE GAUSS— */JELF 
Y =Y*Cye /*TRANSFORMATION */JELF 
LSN»eD=SIN(V)¢. JELF 
LCN =COSIY),. JELF 
IF LSN= 0 JELF 
THEN GO TO TEST,. JELF 
A =LCN/LSNee JELF 
Cc =A*C ye JELF 
00 J =I TO 1 BY —le. /*INVERSE GAUSS-TRANSFORMATION #/JELF 

8 =ARI (J) oe JELF 

A =A*Cy. JELF 

Cc =LON*Cy. JELF 

LDN =(GECIJ)+A)/(BtA),.~ JELF 

A =C/By. JELF 
END». JELF 
=SQRT(1/(01+C #C)),. JELF 

LT 0 JELF 

LSN =-LSNy. JELF 
=C*LSN»« JECLF 
/*INVERSE MODULUS-TRANSFORMAT. */JELF 

IF SCK LT 0 JELF 
THEN O0O,. JELF 
A =LDNy. JELF 

LON =LCNe. JELF 

LCN =A¢.- JELF 

LSN =LSN/Koe- JELF 
ENDe. : JELF 
RETURN... /*RETURN RESULT VALUES */JELF 
=LSNe. JELF 
=LCNy. JELF 
=LDNy. JELF 
/*END OF PROCEDURE JELF : */JELF 





Purpose: 


JELF calculates the three Jacobian elliptic functions 
SN, CN, DN. 


Usage: 
CALL JELF (SN, CN, DN, X, SCK); 


SN - BINARY FLOAT [(53)] 
Resultant value of the sine of the pee: 
CN - BINARY FLOAT [(53) ] | 
Resultant value of ime cosine of the ampli- 
tude. 
DN - BINARY FLOAT [(53) ] 
Resultant value of the delta of the amplitude. 
X  - BINARY FLOAT [(53)] 
Given argumentof Jacobian elliptic functions. 


‘SCK - BINARY FLOAT [(53)] 


Given square of complementary modulus, 
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Remarks: 

The values of SN, CN, DN are frequently needed 
together. 
three of them. This is no disadvantage, since com- 
putation of all three result values is no more compli- 
cated than computation of any one of them. The 
value SCK is chosen as an input parameter in order 
to aie for complex values of ck (k is not restricted 
tok? <1). 

Method: 

The calculation is based on the process of the 


arithmetic-geometric mean together with Gauss! 
transformation. 


For reference see: 

R. Bulirsch, "Numerical Calculation of Elliptic 
Integrals and Elliptic Functions", Numerische 
Mathematik, vol. 7, 1965, pp. 78-90. 

Mathematical Background: 

Notation and definition 

The value k is the modulus, ck is the complementary 


modulus, and sck is the square of the comple- 
mentary modulus. 


sck = ae = i? -~ < gck <o 


~The three Jacobian elliptic functions arise as 


inverse functions of elliptic integrals. 
Set: 


| p 
Via ain't 
0 
Then ~ is called the amplitude of x. 
p= am (x,k) | (1) 
Jacobi's functions are defined through 
sn(x,k) = sin © = sin am (x, k) (2) 


cn(x,k) = cos @ = cos am (x,k) : (3) 


dn(x,k) = Vi1-k"sin’ © ba, 3 (4) 


178 Mathematics--Special Functions 


Therefore, procedure JELF computes all | 


The degenerate case sck = 0 (that is, |k| = 1) must 
-be treated separately: 

sn(x,1) = tanh x; 
en(x, 1) = dn (x, 1) = 1/cosh x 


Jacobi's modulus transformation, applied to nega- 
tive values of sck, gives 


sn(x,k) = 1/k+ sn (kx, 1/k) | (5) 
on(x,k) = dn(kx,1/k) 6) 
dn(x,k) = en(kx, 1/k) | (7) 


Process of the arithmetic-geometric mean 


Starting with ari, =1, geo, = +/sck, the sequences 
(ari, ); (geo, ) are generated using the recursion 
formulas 


cs (ari, + geo _)/ 2 | (8) 


geo =. / ari + geo, -_ (9) 


Numerical experience shows that eleven iterations 
are sufficient to obtain convergence, to full working 
accuracy, for all values of the squared comple- 
mentary modulus that may be represented in floating 
point. The iteration process is stopped at the nth 
step, as soon as arin 1 8° ony is negligibly small. 


Gauss transformation 
Gauss' transformation gives 
FOpk)=Q+HF@K ~~ (0) 


for values of modulus and amplitudinal angle that are 
combined through 





—  aalk | 
a ek | ™) 
- and 
ke) i 
sin 9, = Ce eme - 4 (12) 
1+k sin © 


Inversion of this transformation results in 


F(@,k) = (14k,) F(@).k,) (10') 


where: 


(1+k,) sin ~ 





sin p= + (11') 
tk, sin 9, 
and 
24/1 
k= (12') 
tk, 


Inversion of F(~, k) 


Successive application of transformation (10'), with 


geo. 
-+- 
ck, = — : (13) 
i+1 


leads to F(p,k) = (1+k,). . . (14k) Fy ky). 





1-ck. 
i 
or : ___t 
Equation (12') implies that Kd i +k, 
and that 
sae) 
1 of. k. = +—___—__ 
itl ari. 
i+2 
If Ky = 0, it follows that 
ari, 
x= F(@,k) =— 
ariel 
ari 
Py ky) = a ON | (14) 


N+1 


or Oy = aig. -x 


Back transformation of On 





To obtain the Jacobian elliptic functions, the inverse 
transformation must be performed on Ow Equation 
(11') implies 


cot ~ = cot YP, 4/1 - ky” sin” Y, 
1 


or generally 
(15) 


Lyfe Bcd cies 
ace cot ?,- i ari vd cot Py 1 KY sin 


From (11') and (12') it follows that 


_2 
aes! ee Ont 





2,2 2 
1-k, sin 9, = 


2 
+ e 
. Kel si nad 


2 
_ CO Pee el 


2 
+ 1+ 
cot Ont 1 Kel (16) 


. 2 
+ ° 
geo ari cot o, 41 


n+1 n+2 


— 
— 


ari + ari 


ey ok 
n+1 n+2 Ont 


1-k geo 
since ——- =ck = 


zi : 
1 Kel " art atl 


nt+1 





and 


ari 


+ 
WK = _ 
_ n+2 





Final iteration scheme 


Setting cn+] = arin+1- cot Oy, with dy+) =1, the 
following iteration is performed for n=N, N-1, 
ee ee | | 


9 
Cc ari + ¢eo 
n+1/ ~ n+2 BOO nad 
d = 
n e e 
ari + ari 
n 


“nt1/ n+2 +1 


The final result is 


c= cot ~ 


dy = af1-k sine D 
and therefore: 


sn(x,k) = = sin ~ 


2 
itc, 


en(x,k) = sn-c, =cos 


1 
dn(x,k) = d, = afi-K sine % 
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e Subroutine LGAM 


LGAM.. LGAM 
DRCOG io ai a io ai ok iia io gor ar iat i i kk iC / LG AM 
/* */LGAM 
/% COMPUTES THE DOUBLE PRECISIGN NATURAL LOGARITHM OF THE GAMMA */LGAM 
/* FUNCTION OF A GIVEN DOUBLE PRECISION ARGUMENT. */7LGAM 
/* */LGAM . 


(ROR OR Rak tak ok tok Rok kkk kk te ti fk kc ak ak te te i ok PEALE Sarena re ae ene ee Tee eee EON 
PROCEDURE (XXyDLNG)y. LGAM 


DECLARE LGAM 
(XXpZZ_TERMy»RZ2_DLNG) FLOAT BINARY (53), LGAM 
EFFOR EXTERNAL CHARACTER (1)y. LGAM 

ERROR="O',. LGAM 

ZZ =XXo0 LGAM 

IF XX LE'1.E10 LGAM 

THEN IF XX LE 1.€-09 /* XX IS NEAR O OR NEGATIVE */LGAM 
THEN O0G,. /* SET ERROR INDICATOR */LGAM 

ERROR="2'", LGAM 

DLNG =-l. E75 ys LGAM 

GO TO S204. LGAM 
END,. LGAM 

ELSE DO,. /* XX > 0 AND < OR = TO 1.E+10 */LGAM 
TERM =1.E0,. LGAM 
$10.. LGAM 
: IF ZZ LE 18.E0 /* ZZ < OR = 18 */LGAM 
THEN DO,y.. /* TRANSLATE ARGUMENT */LGAM 
TERM =TERM*ZZ,. LGAM 

ZZ. =ZZ+1.EO,. LGAM 

GO TQ S1Q,. ' LGAM 

END,. LGAM 

ELSE DOy. “/* CALC. EQUATION 1 */LGAM 

RZ2 =1L.EO/7ZZ**2,. LGAM 

DENG =(2Z2Z~C.5EC) *LOG( ZZ)-2240 .91893853320467 2E0 LGAM 

: ~LOG( TERM) +(1.E0/2Z) *(.833333333333333E-01 LGAM 

“(RZ2*( 27777 77 7T 7777 TTE-024+ (RZ2*% LGAM 
(.793650793650793E-03-(RZ2* LGAM 
(.595238095238C95E-03)))))))5. LGAM 

GO TO S2C,. LGAM 

END,. LGAM 

END, . LGAM 

ELSE IF XX LT 1.E70C /* XX > 12E+10 AND < 1.E+70 */LGAM 

THEN DQ;. LGAM 

DLNG =ZZ*(LOG(ZZ)~-1.EC),./* CALC. EQUATION 2 */LGAM 

GO TO S2Cr. LGAM 

END,. LGAM 

ELSE O00). /* XX > OR = 1.E+70 */LGAM 

ERROR="1',, /7* SET ERROR INDICATOR */LGAM 

DLNG =1.E75;. LGAM 

END,. we LGAM 

S20e- LGAM 

RETURNe. , LGAM 

END,. /* END OF PROCEDURE LGAM */LGAM 
Purpose: 


LGAM computes the double-precision natural loga- 
rithm of the gamma function of a given double- 
precision argument. 
Usage: : 

CALL LGAM (XX, DLNG); 


BINARY FLOAT (53) 


XX - 
Given double-precision argument for the 
| log gamma function. 
DLNG - BINARY FLOAT (58) 
Resultant double-precision variable con- 
taining the log gamma function. 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - If XX is greater than or equal to 10/0, 
| If this condition exists, the value of 
DLNG is set to 1. E75. | 
ERROR=2 - If XX is less than or equal to 1079, 
DLNG is set to -1. E75. 
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Method: 


For reference see: 


M. Abramowitz and I. A. Stegun, Handbook of 
Mathematical Functions, U. S. Department of 
Commerce, National Bureau of Standards Applied 
Mathematics Series, 1966, equation 6.1.4. 


Mathematical Background: 


This subroutine computes the double-precision 
natural logarithm of the gamma function of a given 
double-precision argument, xx, where 1079< xx <10 
The Euler-McLaurin expansion, to the aolea de- 
rivative term, is used. For xx>0: 


70 


log I (xx) = (xx - 1/2) log xx 


+ 1/2 log 2m - xx + 1/(12 xx) - 1/360 xx® 


1 
+ 1/1260 KK? = : (1) 


1/1680 xx 
This expression is very accurate for xx>18. If 

xx = 18, xx is replaced by z =k + xx, where k is an 
integer such thatz>18. Log I'(z) is then evaluated 
by (1), and log xx.+ log (xx +1) +... + log (xx + k-1) 
is subtracted to obtain the desired result. 


If xx is between 1010 and 10/9, terms of lowest 
order in (1) are nee Ore: and log I’ (xx) is computed 
as: 

log I’ (xx) = xx (log(xx) - 1) (2) 
Subroutine LGAM is available in a double-precision 
format only. If the single-precision value of the log 


gamma function of a given single-precision argu- 
ment is desired, subroutine LGAM should be changed 


to single precision. 


STATISTICS Usage: 


Data Screening and Analysis CALL TALY (A, 8, TOTAL, AVER, SD, VMIN, 
VMAX, NO, NV); 


@ Subroutine TALY 


Description of parameters: | 





Vee a ckais sue hcg eeoskassniacua tee ee 
: * 
. TO CALCULATE TOTAL,» MEAN, STANDARD DEVIATION, MINIMUM, i A(NO, N V) = BINARY FLOAT 
MAXIMUM FOF EACH VARIABLE IN A SET (OR A SUBSET) OF OBSER- x/TALY ‘ 7 : 
VARIONS A , Given observation matrix. 
earner ieee a |  S(NO) - BINARY FLOAT 
Y e : . ° . 
eee ERROR EXTERNAL CHARACTER (1), racy Given vector indicating subset of 
(IyJeK»NO NV) TALY a . 
FIXED BINARY,» TALY A. Only those observations with | 
(AC¥, *) 9S 0) TOTAL (#) p AVER (¥) 9 SD(*) »VMIN(%) sVMAX(*) SCNT:0) TALY j 
ye EEA EINEN Ys Pe a nonzero S(J) are considered. 
/* CLEAR OUTPUT VECTORS AND INITIALIZE VMINyVMAX. */TALY TOTAL(NV) 7 BINARY FLOAT 
1% e/TALY 
=! "ye T 
eRRORDO TZ TO NV. TALY Resultant vector of totals. 
TOTAL(I) =0,. TALY 
a eee a AVER(NV) - BINARY FLOAT 
eRgtt saa TaLy Resultant vector of means. 
E fe . : " 7 
IF NV fe O OR NO LE O /* NUMBER OF OBSERVATIONS OR x/TALY SD(N V) _ BINARY FLOAT 
THEN O00,. 7* THE NUMBER OF VARIABLES LESS*/TALY é 
ERROR=*1" 7* THAN OR EQUAL TO ZERO. */TALY 2 Resultant vector of standard devia- 
GO TO S5Q,. 
Sonate 1 TO NV- . TALY > tions. 
AVER(S) Guy. TALY VMIN(NV) - BINARY FLOAT 
=0.0%. L e e 
END». TALY Resultant vector of minima. 
= ge TALY 
ee TALY VMAX(NV) - BINARY FLOAT 
THEN 00). . 
GO TO Sits. ray Resultant vector of maxima. 
zy. VTALY - NO - BINARY FIXED 
e/TALY 
NO OBSERVATIGNS ARE IN SUBSET a | Given parameter equal to the num- 
. */TALY B 
="2t,. TALY 
Lea raty ber of observations. 
* po uy = 1 TO NV. TALY NV - BINARY FIXED 
? ve : : A ; ° 
VMAX} = SWINGS 7 TALY Given parameter equal to the number 
E ge T e 
ace /* TEST SUBSET VECTOR er TALY : of variables. 
00 [I = K TO NOge ; TALY 
IF S(I) NE 0.0 TALY 
ve ae =SCNT+1.0 , Tey 

bDO J=1 TO NVy. /* CALCULATE TOTAL yMAX,MIN */TALY Remarks: 

TOTAL CJI=TOTAL(JIFACIT J) 9 TALY 

IF AC(I,J) LT VMINGJ) TALY 

THEN VMIN(JI=HACT oJ) oe TALY . ° 

IF A(Tod) GT VHAX(J) TALY If no errors are detected in the processing of data, 

THE AX(JIHA(T J) oe ALY 7 . 

SDL SPEAR Leal AU et hy ut the error indicator, ERROR, is set to zero. The 
einer ay following constitute the possible error conditions 
CALCULATE MEANS AND STANDARD DEVIATIONS. #7 TALY that may be detected: 

*/TALY 
RVER CIV ETAT ALT SEN: /* COMPUTE MEAN eirncy . 
Apes at a ERROR=1 - number of observations or the number 
Sse ii le io am of variables less than or equal to zero. 
TO" ve TALY ° ° 
END, = | Tay ERROR=2 - no observations in subset vector. 
DO,. 
D_') Z8DLJ)-TOTAL( J)#TOTAL(S)/SCNT TALY ERROR=3 - sample size in subset equal to one. 
IF DLE O. 
TEN eee heii we innricenenes eae ERROR=4. - variance equal to ZeLO. 
SO(J)=C.0>. ; TALY 
GO TO S20,. ay 
° END >. 
SD(J)=SQRT(D/(SCNT-1.0)) 9 TaLy | Method: 
° AL 
Se ee 7 | rat | 
a eerie: Thy All observations corresponding to a nonzero element 
ve & 
was sla ccna dill in the S vector are analyzed for each variable in 
Purpose: — | matrix A. Totals are accumulated and minimum and 
maximum values are found. Following this, means 
TALY calculates total, mean, standard deviation, and standard deviations are calculated. The divisor 
minimum, maximum for each variable in a Set (or for standard deviations is one less than the number 
a subset) of observations. | _ Of observations used. 
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e Subroutine BOUN 


BOUN.. BOUN 
[RRR RARR RE ERK RE ROR RR RR RE AEH RE KEKE EEE ERE RK EEE EE EE EEE KEK / BOUN 
/* i: : */BOUN 
TO SELECT FROM A SET (GR A SUBSET) OF OBSERVATIONS THE */BOUN 

‘ NUMBER OF OBSERVATIONS UNDER, BETWEEN AND OVER TWO GIVEN */BOUN 
BOUNDS FOR EACH VARTABLE. */BOUN 

/ */BOUN 
[RR ARR RR RR RR RR RR RO RTE EIR RR REE RE ERE EEK KEE EE ERE ER E/ BOUN 
PROCEDURE (AyS,BLOeBHI, UNDER »BETW,OVERyNOy NV) 6 BOUN 
DECLARE BOUN 
(1eJsNO,NV) BOUN 

FIXED BINARY, BOUN 

ERROR EXTERNAL CHARACTER(1) + BOUN 

(AC#,*) ¢S(*) BLOC *) » BHI (#) »UNDER(*) , BETH(*) ,OVER(*) ) BOUN 

FLOAT BINARY,. BOUN 

/* */BOUN 
ERROR='C'y. BOUN 

IF NV LE C OR NO LE 0 NUMBER OF OBSERVATIONS OR */BOUN 
THEN DO,. THE NUMBER OF VARIABLES LESS*/BOUN 
ERROR="1°,. THAN OR EQUAL TO ZERO. */BOUN 

GO TO FINy. BOUN 

END»). BOUN 

DO J = 1 TO NV¢e. CLEAR OUTPUT VECTORS */BOUN 


UNDER(J)=0.09. BOUN 
BETW(J)=0.0,.- . BOUN 
OVER(J)=C.0%.- BOUN 
ENDy. BOUN 


DO J = 1 TO NVy. BOUN 

IF BHI(J) LE BLO(J) LOWER BOUND GREATER THAN */BOUN 

THEN 00; UPPER BOUND. */BOUN 
ERROR="2',, BOUN 

GO TO FIN,. BOUN 

END¢s. BOUN 

END;:. BOUN 

DN I = 1.TO NO,y. BOUN 

IF S(T) NE 0.0 /* TEST SUBSET VECTOR */BOUN 

THEN DO,. BOUN 
*/BOUN 

COMPARE OBSERVATIONS WITH BOUNDS */BOUN 
*/BOUN 

oc J = 1 TO NV». . BOUN 

IF AC(I,J) GE BLOIJ) BOUN 

THEN DO,y. BOUN 

IF A(IyJ) LE BHI(J) BOUN 

THEN BETWI J) =BETW(J) 41.0). BOUN 

ELSE OVER(J)=OVER(J)4+1.0;. BOUN 

END». F BOUN 

ELSE UNDER( J) =UNDER (J)41.0,. BOUN 

ENO,. BOUN 

END». BOUN 

ENO,. BOUN 

INee. : BOUN 
RETURN, .« BOUN 
ENDy. 7*END OF PROCEDURE BOUN */BOUN 





Purpose: 

BOUN selects from a set (or a subset) of observa- 
tions the number of observations under, between, 
and over two given bounds for each variable. 


Usage: 


CALL BOUN (A, S, BLO, BHI, UNDER, BETW, 
OVER, NO, NV); | 


Description of parameters: 


A(NO,NV) - BINARY FLOAT 
Given observation matrix. 
S(NO) - BINARY FLOAT 
Given vector indicating subset of A. 
Only those observations with a non- 
| zero S(J) are considered. . 
BLO(NV)  - BINARY FLOAT | 
Given vector of lower bounds on all 
variables. a 
BHI(NV) - BINARY FLOAT | 
Given vector of upper bounds on all 
variables. a 
- BINARY FLOAT 


UNDER(NV) 

: Resultant vector indicating, for each 
variable, number of observations 
under lower bounds. 
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BETW(NV) - BINARY FLOAT: | 3 
Resultant vector indicating, for each 
variable, number of observations 
equal to or between lower and upper 
bounds. 

OVER(NV) - BINARY FLOAT 
Resultant vector indicating, for 

each variable, number of observa- 
tions over upper bounds. 

NO | - BINARY FIXED 
Given number of observations. 

NV - BINARY FIXED | 
Given number of variables for each 
observation. 

Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 -- number of observations or number of 
variables less than or equal to zero. 
ERROR=2 - lower bound greater than upper bound. 


Method: 


Each row (observation) of the matrix A with corre- 
sponding nonzero element in S vector is tested. Ob- 
servations are compared with specified lower and 
upper variable bounds and counts are kept in vectors 
UNDER, BETW and OVER. 


e Subroutine ABST > is at Method: 


pear ee A test is made on the I-th row (observation) of the 
/ * ** * 7AB ° ° ° . 
SEKEKSEEKKEEKE KEKE EK SERKEKKKKKKKKEEEES it ten eye nt Gi eT gy anee matrix A, I _ 1, eee NO, If there is not 2 missing 
TO TEST MISSING OR ZERO VALUES FOR OBSERVATION MATRIX A. */ABST , eS ‘ 
- */ABST or zero value, 1 is placed in S(). If at least one 


SESEREKERKESRERESKSESESSESESEEKEKRSEKKERSEKHEKESE SERKEKERKEKEEEKES EKEEKEKEREEREE/ ABST 


DECLARE ABst variable has a value missing or zero, 0 is placed in 


(IeJeNO,NV) ABST 
FIXED BINARY, ; ABST Sq). 

ERROR EXTERNAL CHARACTER(1),» ABST 

(AC#®,*),S(*)) FLOAT BINARY,. ABST 

. */ABST 

ERROR="0°,. ABST 

IF NV LE 0 OR NO LE O /* NUMBER OF OBSERVATIONS OR */JABST 

THEN DO,. /* THE NUMBER OF VARIABLES LESS*®/ABST 

ERROR='1*,. /* THAN OR EQUAL TO ZERO. *JABST 

GO TO FIN,. ABST 

* ABST 

= 1 TO NO>. ABST 

DO J = 1 TO NV,. A8ST 


1* 


IF ACI,J)= 0.0 | ABST, 
THEN DO,. ABST 
S(I) =0.05. ABST 
GO TO S1l0;. ABST 
END?~ ABST 


ENDs. ABST 

=1.09. ABST 

ABST 

ENDs. ABST 

FINe. ABST 
RETURN». ABST 
END? /*END GF PROCEDURE ABST */ ABST 





Purpose: 


ABST tests for missing or zero elements in obser- 
vation matrix A. 


‘Usage: 
CALL ABST (A, S, NO, NV); 


Description of parameters: 


A(NO,NV) - BINARY FLOAT 
Given observation matrix. 

S(NO) - BINARY FLOAT 
Resultant vector indicating one of the 
following codes for each observation: 
1 There is not a missing or zero value. 
0 At least one variable has a value 

missing or zero. 

NO - BINARY FIXED 
Given number of observations. 

NV - BINARY FIXED 

| Given number of variables for each 

observation. 

Remarks: 


If no errors are detected in the processing of data, | 
the error indicator, ERROR,.is set to zero. The 
following constitutes the possible error condition 
that may be detected: 


ERROR=1 - number of observations or number of 
variables less than or equal to zero. 
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6 Subroutine SBST of the variable (column of matrix A) 
to be tested. The second element of 
each column is a relation code as 


SBST.e. SBST 





AERTS TESTERS even eaA WHEN TROANR TORT CASAS TSSONEAESESE AU LESPERESEDE AT SOSE follows: : 
fe A'SET HAVE SATISFIED CERTAIN CONDITIONS #/8BST 50 1 - less than _ 
fe. | | */SBST 
(DERI GOR ROG IOI IO GGIGIO GORI IO ig ioi tol ci ioiai lol iluitoiaic kot talabi dott iiuticitaiaeks SB ST | 2 -_ less than or equal to 
PROCEDURE (ArCeReBySeNOeNVeNC) yg. S8ST 
CLAR ST aa 
DECUA RE ace. | | a | | 3 equal to 
ERROR EXTERNAL CHARACTER(1), SBST - 
(EF ICOL ¢1G0y J;NCyND} SBST . 4 - not equal to — 
FIXED BINARY) eio@sTR) nae > ~ greater than or equal to 
BINARY FLOAT, SBST 7 
T(6) LABEL). | pest 6 - greater than 
ERRORSPON ye | | SesT The third element of each column is 
S(1) =O. ae — sest a quantity to be used for comparison 
NO LE © OF NV LE OR N * NUMBER OF OBSERVATIONS, */S8B ° ° 
THEN oOs " : ae i VARIABLES, OR CONDITIONS IS */SBST with the observation values. For ex- 
ERROR="1'"%y. 7* LESS THAN OR EQUAL TO ZERO. */S8ST . ° 
GO 70 FING. S837 ample, the following column in C: 
00 ee 1 TO NO». SBST 2 
DG J = 1 TO NCy. SBST . 
R(J) =0209-6 7* CLEAR R VECTOR */SBST 5 
: */SAST ° 
LOCATE ELEMENT IN OBSERVATION MATRIX AND RELATION CODE */SBST ; 
eae ' 92. 5 - 
ICOL =COlsJ)e- Ss ° ‘ 
IG =C(2sJ)4. ; SBST | causes the second variable’ to be 
IF IGO LT 1 OR IGO GT 6 . /* CONDITION VALUE INVALID */SBST 
THEN Oy. S8sT | tested for greater than or equal to 
aoe sea 92.5. 
hii ee ee peer R(NC) - BINARY FLOAT 
ERROR ="3'y. /*® INVALID VARIABLE NUMBER */SBST 7 ; 
GO 70 FIN. 8ST - Resultant working vector used to 
Sate ee ere eR Veer aeeet store intermediate results of above 
ene tests on a single observation. [If 
Viel 60 $6°st0y S87 S30 cs ye Sees nur rege ee 
GO TO S20). spss condition 1s satisrieda, R() 1s set to 
IF Q LE 0.0 SBST 1. If it is not, R() is set to 0. 
GOTO S20s6 SBST B ENTRY 
SBST . . 
SHEN Chaos | ener Given name of subroutine to be sup- 
T te : . fe 
. oe : sest | plied by the user. It consists of a 
THEN GO TO S10¥- SBST Boolean expression linking the inter- 
ey a ee mediate values stored in vector R. _ 
gota s20;e SBS The Boolean operators are "*" for 
IF Q LE 0.0 SBST | | Nand", "+" for "or", 
THEN GO TO S20;-. SBST 
. SBST 
R(J) =1.09. | SBSt | Example 
BCR ,TR) /* CALCULATE S VECTOR #/SBsT 
CALL B (Fy, ve : 
S(I) =TRe. SBST BOOL. e 
END». SBST 
Re, So PROCEDURE (R, T), ° 
END». . /7*END OF PROCEDURE SBST */SBST DECLARE 
| | : (R(*), T) 
Purpose: FLOAT BINARY, . 
| | : T=R(1)*R(2), . 
SBST derives a subset vector indicating which ob- RETURN, . 
servations in a set have satisfied certain conditions END, . 
on the variables. The above tests for R(1) and R(2). 
S(NO) - BINARY FLOAT 
Usage: Resultant vector indicating, for 
| | each observation, whether or not 
CALL SBST (A, C, R, B, S, NO, NV, NC); | proposition Bis satisfied. If it is, 
Parameter B must be declared as an entry attribute S(I) is nonzero. Ifit is not, Sq) is 
in the calling program. | ZeCLO. 
| NO - - BINARY FIXED | 
A(NO,NV) - BINARY FLOAT : _ . Given number of observations. 
| Given observation matrix, NV - BINARY FIXED 
C(3, NC) - BINARY FLOAT Given number of variables. 
Given matrix of conditions to be con- NC - BINARY FIXED ~ 
sidered. The first element of each 7 Given number of basic conditions to 
column of C represents the number | be satisfied. 
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Remarks: 
- Subroutines and function subroutines required: 


B - The name of the actual subroutine 
supplied by the user may be differ- 
ent from B (for example, BOOL), 
but subroutine SBST always calls B. 
In order for procedure SBST to do 
this, the name of the user-supplied 
procedure must be defined by an 
entry attribute in the calling program. 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - number of observations, number of 
variables, or number of conditions is 
less than or equal to zero. 

ERROR=2 - condition value invalid. 

ERROR=3 - variable number is less than 1 or great- 
er than the number of variables. 


Method: 


The following is done for each observation. Condi- 
tion matrix is analyzed to determine which variables 
are to be examined, The intermediate vector R is 
formed. The Boolean expression (in subroutine B) is 
then evaluated to derive the element in subset vector 
5 corresponding to the observation. 


6 Subroutine TABI 

TABl.e TABL 10 
TR RR ER a He a a a RR RR RC RK RO Ke eK KEKE, TAB] 20 
4* */TABL 30 
1% TO TABULATE FOR ONE VARIABLE IN AN OBSERVATION MATRIX (OR A ¥*/TABL 40 
4% SUBSET), THE FREQUENCY AND PERCENT FREQUENCY OVER GIVEN */TABL 50 
1% CLASS INTERVALS. IN ADDITION, CALCULATE FOR THE SAME VARIABLE*/TABL 60 
7% THE TOTAL», -MEAN, STANDARD DEVIATION, MINIMUM, AND */TABL 70 
/* MAXIMUM. */TABL 80 
1% */TABL 90 
ORR RRR RO RO RO ta ito a ik ik tok ioiai ik toi tok dotot tok dot dak kk tok a tok te / TAB] 100 
PROCEDURE (A gSsNOVAR ,UBO sFREQ yPCTySTATS »sNOeNV) oe TAB] 110 
DECLARE TABL 120 
EPFOR EXTERNAL CHAPACTER (1), TABL 130 
CIs INNe INTXsJ eK epNOeNOVAR SKK) TAB1L 140 
FIXED BINARY, TABL 150 
(CAC, *),S0*) ,UBO(*) »,FREQ(C*) » PCT(*) » STATS (*) »SCNT »VMIN,VMAXKy TABL 160 
SINT, TEMP) TABl 170 
BINARY FLOAT,. TABl 180 
1% */TABL 190 
ERROR='Cf,. : TABl1l 200 
IF NOVAR LE O GR NOVAR GT NV /* VALUE OF THE VARIABLE TO BE */TAB1 210 
THEN OO. /* TABULATED IS INVALID */TAB1 220 
ERROR="6!',. TAB1 230 
GO TO S50;. TAB1 240 
END»). TABl 250 
IF Nv LE © OR NO LE O TABL 260 
THEN DO,. /* NUMBER OF OBSERVATIONS OR */TABL 270 
ERROR="1%,.6 /* THE NUMBER OF VARIABLES ARE */TAB1L 280 
GO TO S50;.- /* LESS THAN OR EQUAL TO ZERO. */TAB1L 290 
END,. TABL 300 
INN =UBOC2)_. /* CALCULATE INTERVAL SIZE */TABL 310 
00 J = 1 TO INN,. 7* CLEAR OUTPUT VECTORS */TABL 320 
FREQ(J)=0.C,. TABL 330 
PCT(J)=0.09. TABL 340 
END,. TABL 350 
CO J = 1 TO 5S. TABl 360 
STATS(J)=C.09. TAB1 370 
END,. TABL 380 
IF URC(L) GT UBO(3) OR UBO{2) LE 2.9 TABL 390 
THEN CO,. /*® INVALID BOUNDS GR THE NUMBER*/TAB1L 400 
ERROR=!2t,,. /* OF INTERVALS LESS THAN OR */TABL 410 
GO TO S5C,y. /* EQUAL TO TWO. */TABL 420 
END,. TABL 430 
DO I = 1 TO NOy. /* CALCULATE MAX ANDO MIN */TAB1 440 
IF SCI) NE Q.C : TABL 450 
THEN DO,. TAB1L 460 
KK =I. TABL 470 
VMIN =ACITsNOVAR) :.- TABL 480 
VMAX =VMINee TAB] 490 
GO TO S$10,. TABL 500 
END, « TABL 510 
END,. TAB1 520 
ERROR=!3°,, /* NO OBSERVATION IN SUBSET */TABL 530 
GO TO S5C,. TABL 540 
S1Q.. TABl 550 
DO I = KK TO NOge TAB1 560 
IF SCI) NE 0.0 TAB1 570 
THEN O00, TABl 580 
IF ACI,yNOVAR) LT VMIN TAB1 590 
THEN VMIN =A(I,NOVAR),. TABI 600 
IF AC(I,NOVAR) GT VMAX TAB1 610 
THEN VMAX =A(T »NOVAR) >. TABl 620 
END»). TAB1 630 
END; TAB1 640 
STATS(4) =VMIN,. TAB1 650 
STATS(5)=VMAXs. TABl1 660 
IF UBO(1)= UBD(3) TABL 670 
THEN DO;. TABL 680 
UBO( L)=VMIN,. TAB1 690 
UBO{ 3)=VMAX,. TABL 700 
ENDs. TAB1L 710 
SINT =(UBO(3)I—-UB0N(1))/(UBO(2)—-2),. TABL 720 
SCNT =0.0,. 7* TEST SUBSET VECTOR */TABL 730 
DO I = KK TO NQ,. TABlL 740 
IF S{I) NE C.0 TA81 750 
THEN DO,. TABL 760 
SCNT =SCNT+1.0,. TABl 770 
/%* *J/TAB1L 780 
/%* DEVELGP TOTALS AND FREQUENCIES *x/TABL 790 
/*® *x/TABL 800 
STATSCLI=STATSC(LIFAUTsNOVAR),. TABL 810 
STATS(3)=STATS(3)+A(1,NOVAR) **¥2,. TABL 820 
TEMP =UBOI1L)-SINT,. TABlL 830 
INTX =INN-1l oe TAB! 840 
00 J = 1 TO INTX;. TABL 856 
TEMP =TEMP+SINT,. TAB1 860 
IF ACI,NOVAR) LT TEMP TAB1 870 
THEN DOy.' TAB1] 880 
K =HJpe TAB1L 890 
GO TO S2Cy. TABL 900 
END, . TAB1 910 
END». TAB1 920 
IF ACI,eNOVAR) GE TEMP. TAB1 930 
THEN DQ,). TAB1 940 
FREQCINN) =FREQC INN) +1.0¢. TAB1L 950 
GG TO $30,. TAB1 960 
END». TABL 970 
S20... ' TABL 980 
FREQ(K)=FREQ(K) 41-07. TAB1 9390 
ENDy,. TAB11000 
S30. TAB1L1LOLO 
: END,» TAB11LO20 
1% */TAB11030 
1% CALCULATE RELATIVE FREQUENCIES */TAB1L1040 
1% : */TABLIO50 
00 J = L TO INNy. oo TAB1L1060 
PCTCJJ=FREQ( J) *100.0/SCNTe. TAB1L1070 
END,. TABLLC8O 
1% "ge ; : */TABLLCIOO 
1% CALCULATE MEAN AND STANOARD OEVIATION */TAB1L1100 
/* ; ‘ : */TAB11110 
STATS(2)=STATS(1L)/SCNT,. TAB1L1120 
IF SCNT= 1.0 TAB1113C 
THEN 00-7. TAB11140 
ERROR="4*,. . /* SAMPLE SIZE = 1 */TAB11150 
STATS(3)=0.0 TABL1160 
GO TO S503. JAB1L1170 
END;. TAB11180 
ELSE DO». TABLILIOO 
. TEMP =STATS(3)-STATS(CL) ¥STATSOELISSCNT,- TAB1120C 
IF TEMP LE ©.0 TAB11210 
THEN DO,. i, : Roto TAB1L220 
ERROR='5',. /* VARIANCE = 0.0 */TAB11230 
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STATS(3)=0.09. 


TABL1L240 


GO TO S50;. 


END». 
ELSE STATS(C3)=SQPT(TEMP/(SCNT~1.0))9. 


END,. 


S0<6 
RETURN... 
END» ° 


Purpose: 


TABLL270 
TAB11280 


7*END OF PROCEDURE TAB1 */TAB11310 





TAB1 tabulates for one variable in an observation 
matrix (or a matrix subset), the frequency and per- 
cent frequency over given class intervals. In addi- 


tion, 


it calculates for the same variable the total, 


mean, standard deviation, minimum, and maximum. 


Usage: 


CALL TABI (A, S, NOVAR, UBO, FREQ, PCT, 
STATS, NO, NV); 


| Description of parameters: 


A(NO, NV) 
S(NO) 


4 


NOVAR 


_ UBO() 


FREQ (INN) 
PCT(INN) © 
STATS(5) . 
NO 


Nv 


186 


BINARY FLOAT 

Given observation matrix A. 
BINARY FLOAT 

Given vector that indicates which of 
the observations enter the calcula= 
tion. A zero element in § indicates 
that the corresponding observation 
of A is not to be included. 

BINARY FIXED 

Given variable to be tabulated. 
BINARY FLOAT 

Given vector containing lower ie. 
number of intervals, and upper limit 


_of variable to be tabulated in UBO(1), 


UBO(2), and UBO(8) respectively. 

If lower limit is equal to upper limit, 
the program replaces these with the 
minimum and maximum values of 
the variable. Number of intervals, 
UBO(2), must include two cells for 
values under and above limits. 
BINARY FLOAT 7 
Resultant vector of frequencies. 
INN is given in UBO(2). 

BINARY FLOAT | | 

Resultant vector of relative fre- 
quencies. Vector length is UBO(2). 
BINARY FLOAT 


Resultant vector of summary Sites | 


tics, that is, total, mean, standard 
deviation, minimum, and maximum. 
BINARY FIXED 

Given number of observations. 
BINARY FIXED 


Given number of variables es each 
observation. - | 
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Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero.. The 
following constitute the possible error conditions 
that may be detected: : 


ERROR=1 - number of observations or number of 
variables less than or equal to zero. 


ERROR=2 - invalid bounds or number of intervals 


— less than or equal to two. 
ERROR=3 - no observations in subset. 
ERROR=4 - sample size equal to one. | 
ERROR=5 - variance equal to zero. 
ERROR=6 - value of the variable to be tabulated is 
invalid. 


Method: 


The interval size is calculated from the given infor- 
mation or optionally from the minimum and maximum 
values for variable NOVAR. The frequencies and 
percent frequencies are then calculated along with 
summary statistics. The divisor for standard de- 
viation is one less than the number of observations 
used. : 


Mathematical Background: 


This subroutine tabulates, for a selected variable in 
an observation matrix, the frequencies and percent 
frequencies over class intervals. Interval size is 
computed as follows: 


UBO, - UBO 
k= aaa eee | 1 
UBO, - 2 (1) 
2 
where UBO, = given lower bound 
UBO, = given number of intervals 
UBO, = given upper bound 


‘Tf UBO, = UBOg, the subroutine finds and uses the 


minimum and maximum values of the variable. 

A table lookup is used to obtain the frequency, Fj, 
of the i class interval for the variable, where 
i=1, 2,..., UBOg. Then each frequency is 
divided by the number of observations, n, to obtain 
the percent frequency: 


1O0F. 
i 





P, = 
1 n 


(2) 


In addition, the following statistics are calcu- 
lated for the variable: 


n 
Total: T= uy Aa 
— 


where j = selected variable 


Mean: X = 


= 
n 


Standard deviation: 





e Subroutine TAB2 


TAB2.. TAB2 
LRREEKEREK EERE REER ER EK ORES EEE EERE ERA EE EEE EEA OKE ERE EE EEEE REE REE /TABZ 
‘* : */TAB2 
(3) /* TO PERFORM A TWO-WAY CLASSIFICATION OF THE FREQUENCY, */TAB2 
/* PERCENT FREQUENCY, AND OTHER STATISTICS: OVER GIVEN */TAB2 
/* CLASS INTERVALS, FOR TWO SELECTED VARIABLES IN AN OBSERVATION*/TAS~ 
/* MATRIX. */TAB2 
/* */TAB2 


10 
20 
30 
40 
50 
60 
70 
80 


LEELA EEK MAAR EEE EH EERE EKER KE KEK ERE EER SEEK KEKE EEEE KEANE EEREKE/TAB2 8690 


PROCEDURE (AySaNOVs:UBO, FREQ, PCTs STATL,STAT2Z2sNOsNV) =~ TAB2 100 

DECLARE TAB2 110 

ERROR EXTERNAL CHARACTER (1), TAB2 120 

(AC %,%) ,UBO( **) ,FREQ( &y*) »PCT (Ky *) gSTATLI¥, ¥) pSTAT2 (0% 9%) TAB2 130 

S(*),SINTC2) ¢-VMIN» VMAX eSCNT,TEMPL »TEMP2) TAB2 140 

BINARY FLOAT, TAB2 150 

(4) CIe INTL INT2Z 939 Ke KXepbLeNoNl eN29NO sNOV(*) sKK) TAB2 160 

FIXED BINARY... TAB2 170 

/* */TAB2 180 

ERROR="0!,. TAB2 190 

DO I=1 TO 2,. TAB2Z 200 

IF NOV({(I) LE O OR NOV(I) GT NV/* INVALID VALUE OF VARIABLE TO*/TAB2 210 

THEN O0O,. /* BE CROSS TABULATED */TAB2 220 

ERROR="6',. : TAB2 230 

GO TO S50,y. TAB2 240 

END». TAB2 250 

END;. TAB2 260 

IF NV LE O OR NO LE O 7* NUMBER OF OBSERVATIONS GR */TAB2 270 

THEN DO,. 7* THE NUMBER OF VARIABLES ARE */TAB2 280 

ERROR="1',. /* LESS THAN OR EQUAL TO ZERO. */TAB2 290 

GO TO S50,. TAB2 300 

END;:. TAB2 310 

(5) INTL =UBO(2e91),. TAB2 320 

INT2 =UBO(292),. TAB2 330 

Nl =NOV(L),. TAB2 340 

N2 =NOV(2)_- TAB2 350 

00 I= 1 TO 2s. TAB2 360 

IF UBO(1,I) GT UBO(3,I) OR UBO(2,I) LE 2.0 TAB2 370 

THEN DO,. 7* INVALID BOUNDS OR THE NUMBER*/TAB2 380 

ERROR=" 2',. /* OF INTERVALS LESS THAN OR */TAB2 390 

GO TO S5Q-e.- 7* EQUAL TO TWO. */TAB2 400 

END,. TAB2 410 

ENDy. TAB2 420 

00 I = L TO INTl,. /* CLEAR OUTPUT VECTORS */TAB2 430 

00 J = 1 TO INT2;. TAB2 440 

PCT(I sJ)=0-09. TAB2 450 

FREQ( I, J)=0.096 TAB2 460 

END,. TAB2 470 

END»o. TAB2 480 

00 I= 1 TO 3y.e TAB2 490 

pO J = 1 TO INTl,. TAB2 500 

STATL(I,JS)=0.0,. TAB2 510 

END,. TAB2 520 

DO J = 1 TO INT2),). TAB2 530 

STAT2(1,J3)=0.096 TAB2 540 

END,. TAB2 550 

END). TAB2 560 

OO I= 1 TO 29. TAB2 570 

IF UBOC1l,I)= UBOC3,1) /* DETERMINE LIMITS */TAB2 580 

THEN O00). : TAB2 590 

00 J = 1 TO NO». TAB2 600 

IF S(J) NE 0.0 TAB2 610 

THEN DO,. TAB2 620 

KK =Je6 TAB2. 630 

N. .=NOV(I),.. TAB2 640 

VMAX =AlJaeNJ oe TAB2 650 

_VMIN =VMAXee TAB2 660 

GO TO S10;. TAB2 670 

END». TAB2 680 

END». TAB2 690 

$10.. TAB2 79S 

0O J = KK TO NOs. TAB2 710 

IF SJ) NE 0.0 TAB2 720 

THEN DO,. TAB2 730 

IF AlJeN) LT VAIN TAB2 740 

THEN VMIN =AlJeN) ye TAB2 750 

IF AlJ»N2 GT VMAX TAB2 760 

THEN VMAX =Al(JyN)_- TAB2 770 

END,. TAB2 780 

END se. TAB2 790 

UBO(1,I)=VMIN,. TAB2 800 

UBO(3_"I )=VMAX~e. TAB2 810 

ENO,. TAB2 820 

END,. TAB2 830 

/* ; ; : : ; */TAB2 840 

/* CALCULATE INTERVAL SIZE */TAB2 850 

/* ; */TAB2 860 

DO J= 1TO 29. : TAB2 870 

SINT(J) =(UBO(3, J)-UBO(1»,J))/(UBO(2,J)-(24+1LE-3)),. TAB2 880 

END,. TAB2 890 

SCNT =0.0y. TAB2 900 

oo J = KK TO NO,. /*® TEST SUBSET VECTOR */TAB2 910 

IF SJ) NE 0.0 TAB2 920 

THEN DO,. TAB2 930 

SCNT =SCNT#1.0;7.- : TAB2 940 

TEMPL=UBO(1,1)—-SINT(1)¢- /*® CALCULATE FREQUENCIES */TAB2 $50 

00 L = 1 T0 INTl=-1>).- : TAB2 960 

TEMPL=TEMP1L+SINT(1),.- TAB2 970 

IF A(JeNL) LT TEMP1 TAB2 980 

THEN DO,;. TAB2 990 

. . «K =Loe TAB21000 

GO TO S$20,%. TAB21010 

END». TAB21020 

END»). TAB21030 

K =INT1,. _ TAB21040 

S20c6 d ; ; : TAB21050 

STATL(1L sKI=STATLILSKIFACJeNL) oe TAB21060 

STATLO2,KJ=STAT1(29K)4+1-09.- TAB21070 

STAT1 (3 gKI=HSTATLOI3S eK +AC J eN1L) ¥¥290 TAB21080 

TEMP2=UBO(1,2)-SINT(2) 96 TAB21090 

00 tL = 1 TO INT2-l>. TAB21100 

TEMP2=TEMP2+SINT(2)_6 TAB21110 

IF A€JeN2) LT TEMP2 TAB21120 

THEN DO,. TAB21130 

KX =Lee TAB21140 

GO TO $307. TAB211L50 

END,. TAB21160 

END,. TAB21170 

KX =[NT2;- TAB21180 

S30ce6e TAB21190 

FREQ( Ky KX I=FREQ(K »KX)4+1.0,- TA821200 

STAT2ZC1 sKXI=STATZC1L eg KXI4AC IS 9N2Z) 5 TAB21210 

STAT2(2 gKXI=STAT2 (2 9 KX941.05 TAB21220 

STAT2 (3 KX )=STAT2Z(3 sKX)4A( J 2N2) ¥*2,. TAB2 1230 
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END,. 
END». 


IF SCNT= 0.0 _ 


' THEN 


00s. 
ERROR="3'*y.6 
GO TO S50;. 
END». 


CALCULATE PERCENT FREQUENCIES. 


DO I = L TO INTls. 
DO J = 1 TO INT2, 
PCT (1, d)=FREQUI yd #100. O/SCNT+ 6 
END». 

END?>. 


“CALCULATE TOTALS, MEANS, STANDARD DEVIATIONS 


DO J = 1 TO INTly. 
IF STATI(2,J3) LE 1.0 
THEN DOy. 

ERROR="4'y 

STATL(3 JS) =0. Ove 

STAT (29 )= STATL(Led)s» 

END». 

00 
TEMPL=STAT1(3)d )-STATLO 19d) ##2/STATL(2 9d) 90 
STATL(2,JI=STATLU Le JISSTATIC 2:3) 26 
IF TEMPL LE 0.0 
THEN D0O0,. 

ERROR="5',. 


/* NUMBER OF OBSERVATIONS IS 
/* LESS THAN OR EQUAL TO 1 IN 
/* SOME INTERVAL 


/* VARIANCE IS 0.0 
STAT1(39J)=0.09.- 


/* NO OBSERVATIONS IN SUBSET 


TAB21240 
TAB21250 
TAB21260 
' TAB21270 
*/TAB21280 
TAB21290 
TAB21300 
*/TAB21310 
*/TAB21320 
*/TAB21330 


TAB21340 | - 


TAB21350 
TAB21360 
TAB21370 
TAB21380 
*/TAB21390 


*/TAB21400. 


*/TAB21410 
TAB21420 
TAB2 1430 
TAB21440 

*/TAB21450 

*/TAB21460 

*/TAB21470 
TAB2 1480 
TAB21490 
TAB21500 
TAB21510 
TAB21520 
TAB21530 

*/TAB21540 
TAB21550 


END» « ~ TAB21560 
ELSE STAT1(3sJ)=SQRT(TEMPL/(STATL(29J)-1.0) ) 96 TAB21570 
END;,. TAB21580 
END,. 


DO J = 1 TO INT2;.- 

IF STAT2(29J) LE 1.0 

THEN DO; 
ERRGR="4°, 
STAT2(3,J)= =0. Or 
STAT2(29J)= STAT2U 19d) 9 
END». 
DO». 
STAT2(29 J)=STAT2( Le JI /STAT2Z( 205) 90 
‘TEMP2=STAT2Z(39J I-STAT2Z( 155) *#2/STATZ(29J3) 90 
IF TEMP2 LE 0.0 
THEN DO,. 

ERROR='5°,. 


/* NUMBER OF OBSERVATIONS IS 
/* LESS THAN OR EQUAL TO 1 IN 
/* SOME INTERVAL 


/* VARIANCE = 0.0 
STAT2(32J3)=0 209 


ENDs. 
ELSE STAT2(39J)=SQRT(TEMP2/(STAT2(22J)-1.0) 956 
END». 
é . END»). 
$506. 
RETURNg « | 
END». : /*END OF PROCEDURE TAB2 





Purpose: 


TAB2 performs a two-way classification for two 
variables in an observation matrix (or a matrix sub- 
set), of the frequency, percent frequency, and other 
statistics over given class intervals. 


‘Usage: 


CALL TAB2 (A, S, NOV, UBO, FREQ, PCT, 
STATI, STAT2, NO, NV); 


Description of parameters: 


BINARY FLOAT 

Given observation matrix. 
BINARY FLOAT 

Given vector that indicates which: 
of the observations enter the cal- 
culation. A zero element in § 
indicates that the corresponding 
observation of A is not to be 
included. 7 | 

BINARY FIXED | | 

Given variables to be cross- 
tabulated. NOV(1) is variable 1; 
NOV(2) is variable 2. 


A(NO,NV) —- 


| S(ND) = 


“NOV(2) - 
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BINARY FLOAT 

Given matrix giving lower limit, 
number of intervals, and upper 
limit of both variables to be tab- 
ulated (first column for variable 1, 
second column for variable 2). If 
lower limit is equal to upper limit 
for a variable, the program 
replaces these with the minimum 
and maximum values of that vari- 
able. Number of intervals must 
include two cells for under and 
above limits. 

BINARY FLOAT 

Resultant matrix of frequencies in 
the two-way classification. INT1 
equals UBO(2, 1) and INT2 equals 
UBO(2, 2) where UBO(2, 1) is the 
number of intervals of variable 1 
and UBO(2, 2) is the number of 
intervals of variable 2. UBO(2, 1) 
and UBO(2, 2) must be specified in 
the second position of the respec- 
tive column of UBO matrix. 


UBO(3,2) — - 


FREQ - 
(INT1, INT2) 


PCT - 


BINARY FLOAT 

(INT1, INT2) Resultant matrix of percent 
frequencies. 

STATI BINARY FLOAT 

(8, INT2) Resultant matrix summarizing 
totals, means, and standard devi- 
ations for each class interval of 
variable 1. 

STAT2 - 

(3, INT2) Same as STATI but over variable 
2. 

NO - BINARY FIXED 
Given number of observations. 

NV - BINARY FIXED 
Given number of variables for 
each observation. 

Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the POBEUNE, error conditions 
that may be detected: 


ERROR=1 - number of observations or number of 
variables less than or equal to zero. 

ERROR=2 - invalid bounds or number of intervals 
less than or equal to two. 

ERROR=3 - no observations in subset. 

ERROR=4 - number of observations one or less in 
some interval. 


ERROR=5 - variance equal to zero. (If error con- 
ditions 4 and 5 exist, the last condition 
encountered overrides. ) 

ERROR=6 - invalid value of variable to be cross- 
tabulated. 


Method: 


Interval sizes for both variables are calculated from 
the given information or optionally from the minimum 
and maximum values. The frequency and percent 
frequency matrices are developed. Matrices STAT1 
and STAT2 summarizing totals, means, and stan- 
dard deviations are then calculated. The divisor for 
standard deviation is one less than the number of 
observations used in each class interval. 


Mathematical Background: 


This subroutine performs a two-way classification 
of the frequency, percent frequency, and other sta- 
tistics over given class intervals, for two selected 
variables in an observation matrix. 

Interval size for each variable is computed as 
follows: 


UBO,. - UBO.,. 
en) eee (1) 
j UB 5, - 2 
where aes = given lower bound 
UBO,, = given number of intervals 
UE a = given upper bound 
j=1, 2 
if UBO,, = UBO3;, the subroutine finds and uses the 


minimum and maximum values of the jth variable. 

A frequency tabulation is then made for each pair 
of observations in a two-way table as shown in 
Figure 10. 

Symbols > and < in Figure 10 indicate that a 
count is classified into a particular interval if the 
data point is greater than or equal to the lower limit 
of that interval but less than the upper limit of the 
same interval. 

‘Then, each entry in the frequency matrix, Fi. 
_ divided by the number of observations, N, to 
obtain the percent frequency: 


se 


LO0F,, 
2 a a (2) 


lower 
bound 


first variable 


upper 
bound 





lower upper 


bound bound 


second variable 


Figure 10. Frequency matrix 


wherei=1, 2, ..., UBO,, 


jail, 2, ..., UBO,, 


As data are classified into the frequency matrix, the 
following intermediate results are accumulated for 
each class interval of both variables: | 

1. Number of data points, n 


n 
2. Sum of data points, >, X, 
i=1 


8. Sum of data points squared, > x 
i=l 


From these, the following statistics are calculated 
for each class interval: 


yx, 


Mean: wero = 
n 





(3) 


Standard deviation: 





(4) 
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© Subroutine SUBM 


SUBMee SUBM 10 
7 ROR RO a toi ote dat Rokk ok ok matoiok atom tok iek soktictk okie ake kk eek er eke kee/ SBM 20 
/* */SUBM 30 
/* BASED ON VECTOR S DERIVED FROM PROCEDURE SBST OR ABST, THIS */SUBM 40 
at PROCEDURE COPIES FROM A LAPGER MATRIX OF OBSERVATION DATA A ¥*/SUBM 50 
‘4% SUBSET MATRIX OF THOSE OBSERVATIONS WHICH HAVE SATISFIED . */SUBM 60 
% CERTAIN CONDITIONS. . */SUBM 70 
(% */SUBM 80 
JDC at; Sato i ok iG a iia sat iio Sak aiuto toioicgok tok goik ioioiok tok doketok tok keke ERS SUBM 90 
PROCEDURE (AsDySyNOsNViN) oe SUBM 100 
DECLARE SUBM 110 
(IyNyNO) SUBM 120 

FIXED BINARY, SUBM 130 

FRROR EXTERNAL CHARACTER(1), SUBM 140 

(AU %_*) 00%, %*),S0%)) FLOAT BINARY). SUBM 150 

/* */SUBM 160 
ERROR='O',, SUBM 170 

0 =O, SUBM 180 

N =096 SUBM 190 


TF NV LE 9 OR NO LE O 
THEN EFROR="1',, 


ELSE ON,. /* LESS THAN OR EQUAL TO ZERO. */SUBM 220 
DO J.= L TO NOge SUBM 230 

IF S(I) NE 0.0 SUBM 240 

THEN DOy. SUBM 250 

N FNtloe SUBM 260 

00 J = L TO NVye SUBM 270 

DIN» JISACT oJ) 90 SUBM 280 

.  ENDge SUBM 290 

END ye SUBM 300 

ENDy. SUBM 310 

ENDy. SUBM 320 
RETURN?¢» SUBM 330 


END,. (*END OF PROCEDURE SUSM */SUBM 340 


Purpose: 

SUBM copies a submatrix from an observation ma- 
trix, The elements of this submatrix satisfy con- 
ditions specified by an input vector. This subroutine 


is used in preparing data for input to a statistical 
analysis such as multiple regression, 


Usage: 
CALL SUBM (A, D, S, NO, NV, N); 


Description of parameters: 


A(NO,NV) - BINARY FLOAT 
Given matrix of observations. 

D(N, NV) - BINARY FLOAT 
Resultant matrix of observations. 

S(NO) - BINARY FLOAT 

| Given vector containing the codes 
derived from procedures SBST or 
ABST. | 

NO -— BINARY FIXED 
Given number of observations. 

NV - BINARY FIXED | 
Given number of variables for each 
observation. 

N - BINARY FIXED 
Resultant variable containing the 
number of nonzero codes in vector §, 

Remarks: 


Matrix D can be in the same location as matrix A, 
If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
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/7* NUMBER OF OBSERVATIONS OR */SUBM 200 
/* THE NUMBER OF VARIABLES ARE */SUBM 210 


The following constitutes the possible error con- 
dition that may be detected: 


ERROR=1 - number of observations or number of 
variables less than or equal to zero, 


Method: 


If S(1) contains a nonzero code, the I-th observation 
is copied from the input matrix to the output matrix. 


Elementary Statistics 


e Subroutine MOMN 


MIMN ee MOMN 
(J SORRONOR RI IROIIOROR ROK IR RII IORI ROR RCROIRR IOI RCO ie RRO I gat aig soo to ak ack ke & 7M OMN 
7* */MOMN 
(* TO FINO THE FIRST FOUR MOMENTS FOR GROUPED DATA ON EQUAL */MOMN 
/* CLASS INTERVALS. */MOMN 
/* */MOMN 
(DO ORIG III ROR iG RO IOI IG FOIOI OR RIO IOR IO SOR III ORI I I OIOIOR RU acto HOt 7M OMN 
PROCEDURE (Fy»UBO,yNOP,ANS) 9. MOMN 
DECLARE MOMN 
(FC *),UBO(%) pANS(4eT,E,EE) MOMN 
BINARY FLOAT, MOMN 
ERROR EXTERNAL CHARACTER (1), MOMN 
(1, JUMPyNOP) MOMN 
FIXED BINARY, MOMN 
S(5) LABEL,s. MOMN 
*/MOMN 
T BOre 4* INITIALIZE */MOMN 
ANS 24.6 MOMN 
ERQORaz'C!,, MOMN 
TF UBO( 2) GT UBC(3) = UBO(L) MOMN 
THEN 00). MOMN 
ERROR@!2',, /* INCORRECT NO. OF INTERVALS */MOMN 
GO TO S(l)y. /* FOR THE SPECIFIED SOUNDS */MOMN 
END? . MOMN 
IF UBOCL) GT UBO(3) OR UBO(2) LE C /* INVALIO BOUNDS */7/MOMN 
THEN O00; MOMN 
ERRORs?Lt,, MOMN 
GQ TN Sl)dee . MOMN 
END ¢.e 7* CALC. NO. OF CLASS INTERVALS*/MOMN 
ZFLOOR((UBO(3)—-URO(1) )/UBO(2)+1 .0E-3)). MOMN 
Oo I = 1 TO Noe /7* CALCULATE TOTAL FREQUENCY */MOMN 
STt+F(1),. MOMN 
MOMN 
MOMN 
MOMN 
THEN O00). MOMN 
NOP =5,. MOMN 
JUMP 21). MOMN 
ENDge MOMN 
=UBO(1L)-0.5*UBN(2)4. MOMN 
DDN I = 1 TO Noe /* FIRST MOMENT */40MN 
E =E + UBO(2)¢. MOMN 
ANS(L)=ANS( LIF (1) *Ey. MOMN 
ENDee MOMN 
ANS(LI=ANS(1L)/T,. MOMN 
E =UBO(1)-C.5*UB0( 2)—ANS(1),. MOMN 
$05) =S(2),. MOMN 
GO TO S(NOP)¢. MOMN 
S27. MOMN 
EE =Eye MOMN 
00 I = 1 TO Nee /* SECOND MOMENT */MOMN 
EE =EE+UBO(2),. MOMN 
ANS(2)=ANS(2)+4F (1) EE**2,. MO MN 
ENDye MOMN 
ANS(2)=ANS(2)/T,. MOMN 
IF JUMP= 2 MOMN 5 
THEN GO TN S(1)-. MOMN 
$(3).. MOMN 
EE TE,. MOMN 
CO I = 1 TO Nee /* THIRD MOMENT ; */MOMN 
FE =EE+UBO(2),. MOMN 
ANS(3)=ANS(3)+F (1) *EE**3,. MOMN 
MOMN 


END? 
ANS(3)=ANS(3)/T,. MOMN 
IF JUMP = 2 ‘ MOMN 
THEN GO TO SO1),. MOMN 
$(4).. MOMN 


MOMN 
/* FOURTH MOMENT %/MOMN 


EE =Eye . 
0DO I = 1 TO Ny. 
EE =EE+UBC(2),. MOMN 
ANS(4)=ANS(4) 4+F (1) *¥EE**4,. MOMN 
END». MOMN 
ANS(4)=ANS(4)/T? MOMN 
oe MOMN 
MOMN 
/* END PROCEDURE MOMN * 7MNMN 





Purpose: 


MO MN finds the first four moments for grouped 
data on equal class intervals. 


Usage: 


CALL MOMN (F, UBO, NOP, ANS); 


F(N) - BINARY FLOAT 
Given vector containing grouped data, 
(frequencies), where N is the number 
of class intervals. 

UBO(3) - BINARY FLOAT 


Given vector containing the lower bound, 
UBO(1), the class interval, UBO(2), and 
the upper limit, UBO(3). 


NOP - BINARY FIXED 

Given option code with the following 
values: 

NOF=1 calculate first moment 

NOP=2 calculate second moment 
NOP=3 calculate third moment 

NOP=4 calculate fourth moment 

NOP=5 calculate all four moments 
Resultant vector containing the moments 
calculated. 


ANS(4). - 


Remarks: 


Note that the first moment is not central but the 
value of the mean itself, The mean is always 
calculated. Moments are biased and not corrected 
for grouping, 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 


' The following constitute the possible error con- 


ditions that may be detected: 
ERROF=1 - lower bound greater than upper 
bound or number of intervals less 
than or equal to zero. 
KRROR=2 - incorrect number of intervals for 
| the specified bounds. 
Method: 
Refer to M, G, Kendall, The Advanced Theory of 
Statistics, vol. 1, Hafner Publishing Company, 1958, 
Chapter 8, 
Mathematical Background: 
This procedure computes four moments for grouped 
data Fy, Fo, ..., Fy on equal class intervals. The 
number of class intervals is computed as follows: 
where: 
N = (UBOg - UBO,)/UBOp 
UBO, = given lower bound 
UBO, = given class interval 
UBOg = given upper bound 


and the total frequency 
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where F; = frequency in the i-th interval. 
If we set 
X, = UBO, - 0.5UBO., + i UBO Ply s05g0 
1 ad 2 2 


then the first moment (mean) | 


| N 
ANS, = 1/T > PX, 


and the jth moment (j=2,3, 4) is 
. ee 
ANS, = 1/T 2, F, (X, - ANS,) 


These moments are biased and not corrected for 
grouping, 
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® Subroutine TTST 


TYST.. TTST 1¢ 
7 R08 SOR ROR oko teak ok kK ok ok ok kkk fete ick ok deta io lekki otk kk dk tk ak kok ok ato gak doe S TT ST 20 
1% x/TTST 3¢ 
1% TO FIND CERTAIN T-STATISTICS ON THE MEANS OF POPURET IONS */TIST 40 
7% */TTST 50 
he R SHANE ERAEA RS AREAL HEREK GRE EHO RE EER aE eR KERR EE KKK RRR KK R/T TST 60 
PROCEDURE (A,NA.ByNE »NOP yNDF ANS)». TYTST 70 
DECLARE TTST 80 
ERROR EXTEFNAL CHARACTER (1), TTST 90 
(AC*).5(0*) 2ANS,AMEAN,BMEAN,FNAsFNB eSAZ2 sSB27SeAl 9 A2) TTST 100 

FLOAT BINARY, TTST 110 

(T(6)) LABELs. TTST 120 

/* */TTST 130 
NOF ="'C',. /* INITIALIZATION */TTST 140 
ERROR="0',. TTST 150 
ANS =0.0, e TTST 160 

If NOP LT 1 OR NOP GT 4 TYST 170 
THEN DO,. ' TTST 186 
ERFOP="1l',. /* WRONG OPTION CODE */TTST 190 

GO TO FINy. TTST 2060 

END,. TTST 210 

IF NOP=1 AND NA NE 1 TTST 220 
THEN 0Q,. /* NA MUST BE L WHEN NOP=1 */TTST 230 
ERROR='5',, TTST 240 

GO TO FINge. TTST 250 

END,. TTST 260 

IF NOP=4 AND NB NE NA TTST 270 
THEN 00,. /* NA MUST EQUAL NB WHEN NOP=4 */TTST 280 
ERROR="6',y. TTST 290 

GO TO FIN». TTST 300 

ENDy. TTST 210 

/* */TTST 320 
7*® TEST SAMPLE SIZE */TTST 330 
/* */TTST 34C 
IF NA LE 2 TTST 350 
THEN Of,. TTST 360 

IF NOP GT l TTST 370 

THEN DOy. ; TTST 380 
ERROR="2' 4. 7* FIRST SAMPLE FOR OPTICNS */TTST 390 

GO TO FIN»g. 7* 2-46 1S 1 OR LESS -*/TTST 400 

END? TTST 410 

END». TTST 42¢ 

IF NB LE l TTST 430¢ 
THEN 007. TTST 440 

. ERROR=*2',. 4* SECOND SAMPLE SIZE 1S 1 GR ¥*/TTST: 46C 

GO TO FIN;». /* LESS */TTST 460 

END,. TTST 470C 

FNA =NAy. TTST 480 
FNB =NBy. TTST 490 
AMEAN=(0.0;~ /* CALCULATE MEAN OF A */TTST 500 

DO f = 1 TO NA,y. TTST 510 
AMEAN=AMEAN+tA(T),_. TTST S2C 

END». TTST 530 
AMEAN=AMEAN/FNAy. TTST 540 
BMEAN=0.0,. /* CALCULATE MEAN OF 8 */TTST 550 

DO I = 1 TO NB;. TTST 560 
BMEAN=BMEAN+B(1),. TTST 570 

END? TTsST 580 
BMEAN=BMEAN/FNB». TTST 590 
1% */TTST 600 
/% CALCULATE THE VARIANCE OF A */TTST 610 
/* */TTST 620 
IF NOP LT 4 AND NOP GT 1 TTST 630 
THEN DO,. TTST 640 
SA2 =O0.Cr. TTST 650 

00 I = 1 TO NA». TTST 660 

SA2 =SA2+ (ACT) —AMEAN) **2,. TTST 670 

END; TYST 680 

SA2 =SA2/(0FNA~1.0) 9. ‘TTST 690 

IF SA2 LE 0.0 TTST 700 

THEN DOs. TYST 710° 
ERROR='3',. /7* FIRST SAMPLE VARIANCE = 0.0 */TTST 720 

GO TO FIN,. TTST 730 

ENDy. TTST 740 

ENDe TTST 750 

IF NOP LT 4 TTST 760 
THEN. 00,. TTST 770 
SB2 =0.Cy. TTST 780 

00 I = 1 TQ NBy. TTST 790 

S82 =SB2+(B(1)—BMEAN) **2,. TTST .800 

END? TTST 810 

SB2 =SB2/(FNB-1.0) 9.6 TTST 820 

IF SB2 LE C.0 TTST 830 

THEN DOy. TTST 840 
ERROR="3',. /7* SECOND SAMPLE VARIANCE = 0.0*/TTST 850 

GO TO FIN». TTST 860 

ENDee — TTST 870 

END». TTST 880 

GO TO T{NOP),. TTST 890 
T(1l).. 7* OPTION ONE */TTST 900 
ANS =(CBMEAN-AMEAN) /SQRT(SB2))*SQORTCFNB) ». TTST 910 
NDF =NB-ly. TTST 920 

GO TO FIN,. TTST 930 
TZ) 6. /* OPTION TWO */TTST 940 
NDF =NA+NB-2,. TTST 950 

S =SQRT(( (FNA-L.C) *SA24+(ENB-1.C)*SB2)/NDF) 96 TTST 960 
ANS =CUBMEAN-AMEAN) /S)*(1.0/SQRT(1.C/FNAFL. O/FNB) +. TTST 970 

GO TO FIN,. TTST 980 
T(3).. /* OPTION THREE */TTST 990 
ANS =(BMEAN-AMEAN) /SQRT(SA2/FNA+SB2/FNB) 5. TTST1000 

Al =(SA2/FNA+SB2/FNB) **2 5. TTST1010 

A2 =(SA2/FNA) **2/(FNAtL. 0) 4#(S82/FNB) *#2/(FNB41. O)s. TTSTLO20 
NDF =AL/A2-2-0t+C.5y¢. TTST1030 

GO TO FIN,. TTST1040 
T(4).. /* OPTION FOUR */TTST1050 
Al =BMEAN-AMEAN?. TTST1LQ60 

A2 =O.Cs. TTST1070 

DO I = 1 TO NB8y. TTST1080 

A2 =A2+(BU1T)—-AC1)- Al) #42. TTST1090 

eNO rs TTST1100 

IF A2 LE ¢.0 TTST1110 
THEN DO... TTST1120 
ERROR=*4*,, /* TWO SAMPLES ARE IDENTICAL */TTST1130 

GO TO FIN,. TTST1L140 

~ END,. TTST1150 
A2 =SORT(A2/(FNB—1L.C)) 96 TTST1L160- 
ANS =(€A1/A2)*SQETCFNB) 9. TTST1L170 
NDOF =NB-le. TTST1180 
FIN. TTST1190 
RETURN,’ « nee | TTST1200 
ENDe. /*END OF PROCEDURE TYST */TTST121¢6 


Purpose: 


TTST calculates certain t-statistics on the means 
of populations. 


Usage: 
CALL TTST (A, NA, B, NB, NOP, NDF, ANS); 


BINARY FLOAT 

Given vector containing data, 

BINARY FIXED 

Given number of observations in A, 

BINARY FLOAT 

Given vector containing data, 

BINARY FIXED 

Given number of observations in B, 

BINARY FIXED 

Given options for various hypotheses: 

NOF=1 - That population mean of B= 

given value of A (set NA=1). 

That population mean of B= 

population mean of A, given 

that the variance of B= the 

variance of A, 

That population mean of B= 

population mean of A, given 

the variance of B is not equal 

to the variance of A, 

That population mean of A= 

population mean of B, given 

no information about variance 
7 of A and B (set NA= NB). 

BINARY FIXED 

Resultant variable containing degrees of 

freedom associated with t-statistic 

calculated. 

BINARY FLOAT 

Resultant variable containing t-statistic, 


A(NA) - 
NA - 
B(NB) - 
NB - 


NOP - 
NOP=2 - 
NOP=3 - 
NOP=4 - 
NDF - 


ANS - 


Remarks: 


NA and NB must be greater than one, except that 
NA=1 in option 1. NA and NB must be the same in 
option 4, If NOP is other than 1, 2,3, or 4, degrees 
of freedom and t-statistic will not be calculated. 
NDF and ANS will be set to zero, 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitute the possible error con- 
ditions that may be detected: | 


ERROFF1 - 
ERROR=2 - 


invalid option code. 

sample size of one of the variables is 
less than or equal to 1 (except 
variable A in option 1). 


ERROR=3 - variance of one of the variables is 
ZeYO,. 

ERROR=4 - two samples identical. 

ERROR=5 - NA must be 1 when NOP is 1. 

ERROR=6 - NA must equal NB when NOP is 4, 

Method: 


Refer to Ostle, Bernard, "Statistics in Research", 
Iowa State College Press, 1954, Chapter 5. 


Mathematical Background: 


This subroutine computes certain t-statistics on the 
means of populations under various hypotheses, 

The sample means of Aj, Ag, ..., ANA, and 
By, Bo, ..., Byp are normally found by the 
following formulas: 


NA | NB 
A. > B. 
1 ] 
— j=] =e a 
7 NA” oe NB _ 


and the corresponding sample variances by: 


NA _ NB 
YA ~ Ay2 > (B, - BY? 
sa? - EL __§__,  sp°- EL _____ 


NA-1 NB - 1 


The quantities uw and o” stand respectively for pop- 
ulation mean and variance in the following hypotheses, 


Hypothesis: Up= A; A= a given value (option 1). 


Let B= estimate of , and set NA= 1 (Ais stored 
in location Ay). 


The subroutine computes: 


ae _— 
ANS <a ‘ aj NB (t-statistics) (8) 


NDF = NB-1 (degrees of freedom) 


| (4) 
iH a iz {£2 . 2 : 
ypothesis: 7} i‘ U B (0 ROB (option 2) 


The subroutine computes: 


B-A 


e 1 i i 
= fare (t-statistics) (5) 
| NA NB 
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ANS = 


(6) Correlation and Regression Analysis 





NDF = NA+ NB-2 (degrees of freedom) 
e Subroutine CORR 


2 





2 
h g = (NA-1)SA + (NB-1)SB 
— en Eee 
wnere NA+ NB-2 (7) CORR. coRR 10 
PRR RR RR RI RF ROR OR RO Ro RO tek ok oi ate tek ok otek ito i tok sok tk a tot toick tek tok detox S CORR - 20 
1x #/CORR 3¢ 
/* TO COMPUTE MEANS, STANDARD DEVIATIONS, SUMS OF CROSS—PRODUCTS*/CORR 40 
/* OF DEVIATIONS, ANO CORRELATICN COEFFICIENTS. */CORR 50 
hesi 2 2 I* */CORR 60 
e = e . 7% 4% Bote Ro dak ek tok ok tok tok tk kk tok dak mak tok dk ka dak doko dot tok doko dot teak / CORR 70 
Hypot eSI1s: aa Un; on # op (option 3) PROCEDURE {NyMy10yXpXBAR pSTDy PX pF 1B) pe coRR 8c 
. DECLARE CORR 90 
| ERROR EXTERNAL CHARACTER (1)+ CORR 100 
. (110yd9K¢KKy My ND CORR 110 
: . FIXED BINARY, CORR 120 
The subroutine computes: UX) 8) 900M) ENG EKK) | CARR 130 
FLOAT BINARY, | | CORR 140 
(ROS) RKC, H) yp XBAR(#) pSTOL*) 9 BU) o TUMD) CORR 150 


/7*SINGLE PRECISION VERSION /*S*/CORR 160 
/*DOUBLE PRECISION VERSION /*D*/CORF 170 
; */CORR 180 
ERROR="Cty, CORR 190 
IF N LE 0 OR MLE © /* THE NUMBER OF OBSERVATIONS */CORR 200 
THEN 00%. /* OR THE NUMBER OF VARIABLES */CORR 210 
ERROR="1l'ty. /* ARE LESS THAN OR EQUAL TO ¥*/CORR 220 

GO TO FIN». /* ZERO. */CORR 230 
ENDy. CORR 240 

FN  =Nee /* INITIALIZATION */CORR 250 
T =O.N9. CORR 26C 
00 I = 1 TO My. CORR 270 

BUI) =0.09. CORR 280 

DO J = 1 TO My. CORR 290 
2, | RETySI=0.0y. CORR 300 

2 2 ENDy. CORR 310 


END? . CORR 320 
SA of SB (9) IF 10 NEO CORR 330 


THEN DOO;y. CORR 340 


ee BINARY FLOATy. 
B-A fe BINARY FLOAT (53) 9. 
—_ /* 


ANS (t-statistics) — (8) 








00 J = 1 TO Mee /* DATA ° ~ IN CORE */CORR 350 
DO 1 = 1 TO Ny. CORR 360 


TIS) STOJ)+X0T yd) 9. CORR 370 


NDF = 


Note: The program returns a rounded NDF, not a 


‘truncated NDF. 


NA NB 

2\2 2\2 -2 
SA | re 
x) / + 1 +(-) Anse Se 


END,. 
00 I = 1 TO Nye 


DO J = 1 TQ Me. 
DOJ) =X(I,J)-7 


(degrees of freedom) BtJ) =B(y)er 
—ENDy. 

DO J = 1 

or 


ef 
END,- 
GO TO CA’ 
ENDy. - 
/* 


1F N° 


Hypothesis: pu Am Hp} (no assumption on 0”) re a 


(option 4) 


The subroutine computes: 


. D 
ANS = <5 P NB 


NDF = NB-1 
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THE’ 
Ej 


(t-statistics) - (10° 


(degrees of freer 


‘OUD #D(K) 96 


CCRR 380 

CORP 390 

CORR 400 

CORR 410 

CORR 420 

CORR 430 

CORR 44C 

CORR 450 

CORR 460 

CORR 470 

CORR 480 

CORR 490 

CORR 500 

CORR 510 

CORR 520 

CORR 530 

COFRR 540 

*/CORR 550 

EANS */CORR 560 
*/CORR 570 
CORR 580 
CORR 590 

_ COPR 600 
CORR 610 
CORR 620 
CORR 630 
CORR 640 
CORR 650 
CARR 660 
CORR 676 
CORR 680 
CORR 690 
CORR 700 
CORR 710 
CORR 720 
*/CORR 73C 
*/CORR 740 
*/CORR 750 
*/CORR 760 
CORR 770 
CORR 780 
caoRR 790 
CORR 800 
CORR 810 
CORR 820 
CORR 830 
CORR 840 
CORR 850 
CORR 860 
CORR 870 
CORR 880 
*/CORR 890 
*/CORR 900 
*/CORR 910 
*/CORR 920 
*/CORR 930 
CORR 940 
CQRR 950 
CORR 960 
CORR 970 
CORR 980 
CORR 990 
CORR1000 
CORP 1010 
C2RR1O20 
CORR1030 
CORR1040 
CORRLOS5O 
CORR1LO60 
CORR1070 
CORR1080 
*/COPR1LO9O 


ATIONS FROM 


TIME, SUM THE 
SODUCTS OF 


JUST SUMS OF CROSS-PRODUCTS OF DEVIATIONS FROM TEMP. MEANS */CORR1100 


alc. ° 
00 I = 1 TO My. 
XBAR(T)=XBAP (1) /FNy. 
‘OO J = [ TO My. 


RX(T,JV=R(T,JI-B(I) *805)/FNy 


RXCJsTI=ARX(I ad) oe 
ENDe. 


*/CORR1110 
CORF1120 
CORR1130 

*/CORR1140 
COPFR1150 
CORR1160 
CORR1170 
CORR1180 


/* CALCULATE MEANS. 


STOLT)=SOFTCABSORXCLTs1I)))+. 


COPY THE DIAGONAL OF THE MATRIX OF SUMS OF CROSS PRODUCTS OF 
DEVIATIONS FROM THE MEANS. 


BCI) =RX(IsT) 96 
ENDy. 


COMPUTE CORRELATION COEFFICIENTS 


00 J = 1 TO - 
00 K = 


CORR1190 
*/CORR1200 
*/CORRL210 
*/CORRL220 
*/CORR1230 

CORR1 240 

CORRL250 
*/CORR1260 
*/CORR1L270 
*/CORR1280 

CORR1290 

CORRL300 


R(M, M) = 


B(M). - 


sums of cross—products of deviations 
from means. 

BINARY FLOAT [ (58) ] 

Resultant matrix (M by M) containing 
correlation coefficients. 

BINARY FLOAT [(53)] 


FKK Se rotavestackins CORR1310 
IF FKK= 9.6 CORR1320 
CORR1 330 
*/CORR1340 
CORR1350 
CORR1360 
CORR1370 


THEN DOs 
ERROR=!2', 
Eth =0.0)- 


/* SOME VARIANCES ARE ZEPO 


ELSE a0, yKD= Forests 
R(KyJI=AR(J CNFR1380 
END». CORR1390 
END». CORR1 400 
*/CORPL41¢6 
*/CORR1420 
*/CORR1430 
IF M=] CORR 1440 
THEN DO. CORR1450 

OG I=1 TO Ne. CORR1L460 

STOCT) EROee CORR1470 


COMPUTE STANDARD DEVIATIONS 


CORR1490 
ND». CORRL500 

FN E SORTING l)e. CORR1510 

DO I = 1 TO My CORR1L520 

STOCT)= STOLL) /EN« CORRL53C 

END,. CORRL540 

FINee CORR155C 
RETURN». CORR1L560 
ENDs. /*END OF PROCEDURE CORR */CORRL570 


END... 
TO FINy. 


Purpose: 

CORR computes means, standard deviations, sums 
of cross-products of deviations, and correlation 
coefficients. 

Usage: 

CALL CORR (N, M, IO, X, XBAR, STD, RX, R, B); 


Description of parameters: 


N - BINARY FIXED 
, Given number of observations. 
M - BINARY FIXED 
Given number of variables for each 
observation. | 
IO - - BINARY FIXED 


Given option code for input data. 

BINARY FLOAT 

TO=0 If data are to be read in from 
input device in the special pro- | 
cedure named DAT2 (see 
'" Remarks''), 

1040 If all data are already in core. 

If IO=0, X is not used, 

If 1040, X is the input matrix contain- 

ing data already in core. 

BINARY FLOAT [(53)] 

Resultant vector of length M containing 

means, 

BINARY FLOAT (68) 

Resultant vector of length M eonparnins 

standard deviations. 

BINARY FLOAT [(53)] 

Resultant matrix (M by M) containing 


X(N, M) - 


XBAR(M) - 
STD -_ 


RX(M, M) - 


CORR1480.- 





Resultant vector of length M containing 
the diagonal of the matrix of sums of 
cross-products of deviations from 
means, 


Remarks: 
Subroutines and function subroutines required: 


DAT2(M, D). This subroutine may be provided by 
the user, but a suitable subroutine is used in several 
of the sample programs (for example, see REGR). 
Note that in using this procedure, the parameters 
NCARD and NV must be declared external and the 
proper values must be assigned to them. 


1, If 10-0, this subroutine provides an obser- 
vation in vector D from an input device. 

2. If 1040, this procedure is not used by CORR 
but must be in the job deck. [If the user has neither 
supplied a subroutine nor used the subroutine 
DAT2 from the Scientific Subroutine Package, the 
following is suggested: 


DAT2.,. 
PROCEDURE,. 
RETURN, . 
END, . 


If no errors are detected:in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitute the possible error con- 
ditions that may be detected: 


ERROR=1 - number of observations less than 
or equal to zero. 
ERROR=2 - at least one variance is zero, 


Method: 


Product-moment correlation coefficients are 


- computed, 


Mathematical Background: 


This subroutine calculates means, standard devia- 
tions, sums of cross-products of deviations from 
means, and product moment correlation coefficients 
from input data Xi; ,» where i=1, 2, ..., nimplies 
observations andj=1, 2, ..., m implies variables. 
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The following equations are used to calculate 
these statistics: | | 


Sums of cross-products of deviations: 


n e 
Pie >, aa es a ~ 
i=1 
n n 
srt 7 ie 2; ee 
= — (1) 


where j=1, 2, ..., m;k=1, 2,..., m 


cece 7 | (2) 


(These temporary means T; are subracted from 
the data in equation (1) to obtain computational 
accuracy. ) 





(3) 


Means: x, = 


where j= 1, Ay eee goin 


Correlation coefficients: 





r= ———— | (4) 


where j=1, 2,..., m;k=1, 2,..., m 
Standard deviations: 
i | 
gs =V J : (5) 
J ny n-1 | 


where j=1, 2,..., m 
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r) Subroutine ORDR 


ORDR.. QROR 
TKR Re RR a KR oo a aK ae he aK a ok ok te ak a ke ic ake a ak a teak i ok ge eae oe ok ade ake coke oe oe otek ek eae ak teak JOR DR 
*/ORDR 
TO CONSTRUCT FROM A LARGER MATRIX OF CORRELATION CCEFFICIENTS*/ORDR 
A SUBSET MATRIX OF INTERCORRELATIONS AMONG INDEPENDENT VAR- */CROR 
IAB3LES ANC A VECTCR OF INTEPCOFFELATIONS OF INDEPENDENT */QRDR 
VARIABLES WITH DEPENDENT VARTARLE. */CORDR 
x/CR DER 
[HR ROR RK tok tok tk ik kc kk ok tok kok tok toot deck diac ak ak kok te dete ke ga cok kok ok ick kok ak kok kok fp OF 
PROCEDURE (MyRyNDEPyKyISAVEyRX9RY) 9 OR OR 
DECLARE: ORDR 
(LSAVE(#) ple dy Kolo ll) pecs 
FIXED BINARY, OROR 
ERRO% EXTERNAL CHARACTER(1), | QROR 
(RO) ) RXCK 9K) pRYCK)) - QFOP 
BINARY FLOATy. /*SINGLE PRECISION VERSIGN /*S*/OROR 
BINARY FLOAT (53)4. /*DOUBLE PRECISION VERSION /*D*/ORDR 
*/QR D2 
COPY INTERCORRELATIONS GF INDEPENDENT VARIABLES WITH */ORDR 
DEPENDENT VARIABLE */GROR 
*/MROR 
EFROR='C',, OROR 
IF M LE G /* THE NUMBER OF VARIABLES IS */ORDR 
THEN 00+. 7* LESS THAN OR EQUAL TO ZERO. */GROR 
ERROR="1"y. CROR 
GO TO FINy. . ORDR 
END,. OROR 
fa tie ar Wes Golan arr CRDR 
IF ISAVE(K) = NDEP /* INVALID K */CE OF 
GR ISAVE(K) LE C ORDR 
OR ISAVE(K) GT M OPDR 
THEN DQy. NROR 
ERROR='3',. CROR 
GO TO FINy. ORDR 
END». OROR 
END». CROR 
IF NDEP LE C OP NDEP GT M /* INVALID DEPENDENT VAPIABLE */OF GF 
THEN DO,. PROR 3 
ERROR='2"y, GROR 396 
GO TO FINy. CROR 
END». . OROR 
LE C OR K GE M /*INVALIO NUMBER CF INDEPENDENT*/CRODR 
DQ,. /* VARIABLES * OF DR 
ERRCR='4",. : OROR 
GU TO FINy. ORDP, 
END». . GRDF. 
0G fT = 1 TD Kye ; PROR 
LL ° =ISAVE(I)y'. . OF DS 
RY(I)=RUNDEPsL1) 9. CRODR 
*/OROR 
COPY A SUBSET MATRIX OF INTEFCOFRELATIONS AMONG INDEPENDENT */QRDF 
VAR TABLES #/ORDR 
#/CROR 
DC J'= 1 TG Kr. OROR 
L2  =ISAVE(J)+. oRpS 
IF L2 LT LL ORDR 
THEN RXC1gJI=ERX Col) oe . oROP 
ELSE RX(1,J)=R(L14L2) 5. mROR 
END». | | ORNR § 
END». | OP pR 
fe. H/ORDR 
/* PLACE THE SUBSCRIPT NUMBER OF THE DEPENDENT VARIABLE */CROR 
/%* IN ISAVE(K41) | #/OR DR 
/* _ kN RDR 
ISAVE(K+L)=NDEP,. ORDR 
ORDR 
n2oR 


FIN 


RETURN,. ; 
END>. /*END OF PROCEDURE OPDR */OFDR 





Purpose: 

ORDR is used to choose a dependent variable and a 
set of independent variables from a matrix of corre- 
lation coefficients, and form a submatrix of correla- 
tion coefficients to be used in performing a multiple 
linear regression analysis. 

Usage: 

CALL ORDR (M, R, NDEP, K, ISAVE, RX, RY); 


Description of parameters: 


M- ——«&BINARY FIXED 


Given number of variables. 
R(M,M)- BINARY FLOAT [(53)] 
Given matrix containing correlation 
coefficients. | 
NDEP - BINARY FIXED | | 
Given subscript number of the de- 
pendent variable. 7 


From the subscript numbers of the variables to be 
included in the forthcoming regression, the pro- 
cedure constructs the matrix RX and the vector RY. 


F =SSARM/SSDRMy».- 
ANS(1)=B0,. 
ANS(2)=RMo. 
ANS(3)=SYe. 
ANS(4)=SSAR_s.- 
ANS(5)=FKy. 
ANS(6)=SSARMy.~ 
ANS(7)=SSDR;.~ 
ANS(8)=FNN,. 
ANS(9)=SSORM¢s. 
ANS(10)=F;,. 


Purpose: 


K - BINARY FIXED @e Subroutine MLTR 
Given number of independent variables 
to be included in the forthcoming ae Bia 
s LHEREEKAEKEESERERKEES SAKES AATHHKEA CHER HKHKESE EH A SETHE SK EKE KEKE EK EEE EKEEREEEK/ML TR 
regression. /* ieee a */MLTR 
oO RFORM ULTIPLE LINEAR REGRESSION ANALYSIS FOR A * 
ISAVE - BINARY FLEXED DEPENDENT VARIABLE AND A SET OF INDEPENDENT VARIABLES. 7a Th 
(K+1) Given vector containing, in ascending PROCEDURE (NsKyXBAR¢STD;DsRXsRYGISAVE*BsSBsTSBETAGANSD 30, MLTR 
e DECLARE 
order, the subscript numbers of K ERROR EXTERNAL CHARACTER (1), HLTA 
Z . é C1 sTOgJSsMe MMe MPyMQyNeoNlyISAVE(*)) MLTR 
independent variables to be included FIXED BINARY, MLTR 
‘ . ‘ (XBAR(*) »STD(*) .D(*) gRX(*,_*) »,RY(*) 3 B(#) »SB(*) gT(*), BETA ®), MLTR 
ANS(10) eRM,BOsSSAR,SSDRyFKyFNNy SYySSARMySSORM,F) M 
im the forthcoming regression. Upon BINARY FLOAT >. /*SINGLE PRECISION VERSION (aeepncra 
returning to the calling program, this BINARY FLOAT (53) 96 /*DOUBLE PRECISION VERSION fase Sieh 
e e e,e ERROR=!0°,. 
vector contains, in addition, the sub- IF K LE 0 OR N LE K /* THE NUMBER OF VARIABLES IS e/MLTR 
A t b f th d d t “ bl THEN ean ea . /* LESS THAN OR EQUAL TO ZERO */MLTIR 
um RROR="1% 5. /* OR THE NO. OF OBSERVATIONS ¥*/HML 
Scrip n er o e epen ent varia e GO TO S10,. 7* IS LESS THAN OR EQUAL TO THES HLT 
in K+1 position, END 96 /*. THE NUMBER OF VARIABLES icles 
RX(K,K) - BINARY FLOAT [(53)] DOJ = 1 TO Kee aeee 
7 é.2% ‘e BETA(J)=0.0y.~ MLTR 
Resultant matrix containing intercor- BUI) =0.05. MLTR 
2 Z . DO I = 1 TO Kg. MLTR 
relations among independent variables SELB HSBEI ALTERS hve Hs 
to be used in forthcoming regression, “0:0; HLTR 
RY(K) - BINARY FLOAT [(58)] =ISAVECHH) 5 NUTR 
ae P —-*/ MLTR 
Resultant vector containing intercor- COEFFICIENT OF DETERMINATION S/MLTR 
e e e 1 = T an 
relations of independent variables pete ae tat tnvaaice aae 
e e * 
with dependent variables, TEST ACCURACY OF THE RESULT a/HLTR 
* 
IF RM LT O OR RM GT 1 sr 
THEN DO;y. MLTR 
Remarks: ERROR="2',. /*® INVALID MULTIPLE R */MLTR 
GO TQ S$10,>. MLTR 
END,. : 
j cece te iee /* REGRESSION COEFFICIENT Pye 
e e =BETAC(I) *(STDILID/STD(L)),. 
If no errors are detected in the processing of data, =BO+B(1) #XBARIL) 4. }% INTERCEPT */MLTR 
ie se : . MLTR 
the error indicator, ERROR, is set to zero. The =XBAR(L1)-BO)« Mtr 
following constitute the possible error conditions SUM OF SQUARES ATTRIBUTED TO REGRESSION o7eTR 
that may be detected: | Pe cele Gr ILL /* TEST SUM OF SQUARES REDUCED SimTK 
ba ERROREHSt /*-REDUCED SUM OF SQUARES ALT 
* GO TO Sl0>%. /* GREATER THAN THE TOTAL */MLTR 
ERROR=1 - number of variables less than or END) /* SUM OF SQUARES */MLTR 
=SQRT(ABS(RM) Doe /* MULTIPLE CORRELATION COEFF. ate 
. */MLTR 
equal to zero, SUM OF SQUARES OF DEVIATIONS FROM REGRESS:iON */MLTR 
e e ° e * 
ERROR=2 - invalid dependent variable subscript. SSDR =D{L1}-SSARy« “MLTR 
e e e * FNM = =N-K-Lye /* DEGREES OF FREEDOM */MLTR 
ERROR=3 - invalid independent variable sub- IF FNN LE 0.0 HLTR 
script. If this condition exists, erat PP EnE Ree T ER OR SEaee ae 
e e e eo ve : : MLTR 
RX and RY will contain invalid ESSOR/ENNs« /* VARIANCE OF ESTIMATE */HLTR 
*/MLT 
values, STANDARD DEVIATICNS OF REGRESSION COEFFICIENTS */MLTR 
*/MLTR 
ERROR=4 - invalid number of independent eee re | | es 
: . (J)= T SC(RXO5S9J)/D(L)) Ye. MLTR 
variables. 7d) cat si/saisiee : : Vs COMPUTE T-VALUES */MLTR 
END. MLTR 
. SY =cant (AastS¥i1¥< /4* STANDARD ERROR OF ESTIMATE */MLTR 
SSARM=SSAR/FKy- /* F-VALUE : */MLTR 
Method: SSDRM=SSDR/FNNs« MLTR 


MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
MLTR 
*/MLTR 


/*END OF PROCEDURE MLTR 





MLTR performs a multiple linear regression analysis 
for a dependent variable and a set of independent 


variables. 
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Usage: 


CALL MLTR (N, K, XBAR, STD, D, RX, RY, 
ISAVE, B, SB, T, BETA, ANS); 


Description of parameters: 
N - BINARY FIXED | | 
Given number of observations (N must 
7 be greater than K). 
K - BINARY FIXED 
Given number of independent variables 
in this regression, 
BINARY FLOAT [(53)] 
Given vector containing means of all 
variables, M is the number of 
variables in an observation, 
BINARY FLOAT [(58) ] 
Given vector containing standard de- 
viations of all variables. 
BINARY FLOAT [(58) ] 
Given vector containing the diagonal 
of the matrix of sums of cross- 
products of deviations from means 
for all variables. 
BINARY FLOAT [(53)] _ 
Given matrix containing the inverse 
of intercorrelations among inde- 
pendent variables. | 
BINARY FLOAT [(53)] 
Given vector containing intercorrela- 
tions of independent variables with 
- dependent variable. 
BINARY FIXED 
Given vector containing subscripts 
of independent variables in ascending 
order, The subscript of the dependent 
variable is stored in the last, K+1, 
_ position. 
BINARY FLOAT tea) 
Resultant vector containing regres sion 
coefficients. 
BINARY FLOAT [(53)] 
Resultant vector containing standard 
deviations of regression coefficients, 
BINARY FLOAT [(53)] 
Resultant vector containing T values. 
BINARY FLOAT [(53)] 
Resultant vector ee beta 
coefficients, | 
BINARY FLOAT [(58) ] 
Resultant vector containing the 
following information: 


XBAR(M) - 


— STD(M) - 


D(M) - 


RX(K,K) - 
RY(K) - 


ISAVE - 
(K+1) 
B(K) - 
SB(K) - 


TK) - 


BETA(K) - 


ANS(10) - 


ANS(1) Intercept 
ANS(2) Multiple correlation 
coefficient 


198  Statistics--Correlation and Regression 


error indicator, ERROR, is set to zero, 


ANS(8) Standard error of estimate 


ANS(4) . Sum of squares attributable 
: to regression (SSAR) 
ANS(5) Degrees of freedom asso- 
ciated with SSAR 

ANS(6) Mean square of SSAR 

ANS(7) Sum. of squares of de- 
viations from regression 
(SSDR) 

ANS(8) Degrees of freedom asso- 
ciated with SSDR 

ANS(9) Mean square of SSDR 

ANS(10)  F value 


Remarks: 


If there are no errors in the processing of data, the 
The fol- 
lowing constitute the possible error conditions that 
may be detected: | 


ERROR=1 - number of independent variables K 
less than or equal to zero or the 
number of observations N is less 
than or equal to K. 
coefficient of determination (RM) 
less than zero or greater than one. 
ERROR=3 - reduced sum of squares (SSAR) 
greater than the total sum of 
squares, 


ERROR=2 - 


Method: 


The Gauss-—Jordan method is used in the solution of 
the normal equations. Refer to W.W. Cooley and 
P, R. Lohnes, Multivariate Procedures for the 


Behavioral Sciences, John Wiley and Sons, 1962, 


Chapter 3, and B. Ostle, Statistics in Research, 
The Iowa State College Press, 1954 Chapter 8. 


Mathematical Background: 


This subroutine performs a multiple regression 
analysis for a dependent variable and a set of inde- 
pendent variables. | 

Beta weights are calculated using the following 
equation: 


k , 
-1 
‘ais ee 1 
fet var mae) 
i eg | 
where 
Co intercorrelation of i-th independent 


variable with dependent variable 


-1 
la. 
Ij 
i, j=l, 2,. 


the inverse of intercorrelation Ts 
.-, k imply independent variables 


ry and are input to this subroutine, 


Then the regression coefficients are calculated as 
follows: 


b=B +» 2 
B = (2) 
J 
where: 
ey = standard deviation of dependent variable 
s. = standard deviation of j-th independent 


variable 
j = 1, 2; eeey k 
af and s, are input to this subroutine, 


The intercept is found by the following equation: 


k 
b, = ¥ - > b, + X, 3 
0 ; (3) 
jl 
where: 
Y = mean of dependent variable 
x, = mean of ‘igs independent variable 


Y and x, are input to this subroutine 


Multiple correlation coefficient, R, is found first 
by calculating the coefficient of determination by the 
following equation: 


2 ‘i 
= is BX ty (4) 


R= VR (5) 


The sum of squares attributable to the regression 
is found by: — | 


SSAR = R? - D (6) 
yy 


where: 


D = sum of squares of deviations from 
YY mean for dependent variable 


De is input to this subroutine. 


The sum of squares of deviations from the re- 
gression is obtained by: 


SSDR= D_ - SSAR (7) 
yy 


Then, the F value for the analysis of variance is 
calculated as follows: 


— SSAR/k _ _SSAR(n-k-1) 8) 
~ SSDR/(n-k-1) SSDR({k) ( 


Certain other statistics are calculated as follows: 
Variance and standard error of estimate: 


2 _ SSDR 


: n-k-1 (9) 


y-12...k - 


where n= number of observations 


[2 
. 1k: 57.12... a) 


Standard deviations of regression coefficients: 





mH AD 57.12, ..k a) 
J JJ 
where D,. = sum of squares of deviations from 
No mean for jth independent variable. 
D., is input to this subroutine, 
j = 1 2, eooes k 
Computed t: 
i 
t==— (12) 
JS, 
J 


j=1,2,...,k 
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e Subroutine STRG 


STRGee STRG 10 
TH RRR RR HB RR RI HR I Re a A RE OR a ee a he a te Rea ee i Ae he a ae te ee a ek ee ae KK ok AK / ST RG 20 
/* aaeea */STRG 30 
/* TO PERFORM A STEP-WISE MULTIPLE REGRESSION ANALYSIS FOR A */STRG 40 
/* DEPENDENT VARIABLE AND A SET OF INDEPENDENT VARIABLES. */STRG 50 
/* */STRG 60 
SRE RR RH HR HR RH He eR Re Re a a eR ae a a a a RR EK A OK EK KA EREKKKK,ASTRG 70 

PROCEDURE (MyNrD¢XBARyIDXoPCTsNSTEPyANSyLy By STD) 90 STRG 80 

DECLARE STRG 90 

(LylDyIJyIKydaKyKKyMyMK py MX MY pNyNEW, NFOQNZyNSTEP(*) y IDX(*)y .STRG 100 

L(*),LLCM)) STRG 110 

FIXED BINARY» STRG 120 

(D(*,*) yXBAR(*) ANS (#) »B(*) »STO(*) 9 T(M) 9S (0M) » BETAC(M) RE) STRG 130 

BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/STRG 140 

/* BINARY FLOAT (53), /*DOUBLE PRECISION VERSION /*D*/STRG 150 

(PCT,ONM,RD) STRG 160 

FLOAT BINARY, STRG 176 

{ERROR,»NSTOP) EXTERNAL CHARACTER (1) 5- STRG 180 

/* */STRG 190 

ERROR="0'y. /* INITIALIZATION */STRG 200 

IF M LE 1 OR N LE M41 /* THE NUMBER OF VARIABLES M IS*/STRG 210 

THEN DOy. /* NOT GREATER THAN 1 OR THE */STRG 220 

ERROR="1" ». /* NUMBER OF OBSERVATIONS N IS */STRG 230 

GO TO S150. /* NOT GREATER THAN M41 */STRG 240 

END». STRG 250 

IF PCT GE 1.0 STRG 260 

THEN DO,. STRG 270 

ERROR="4'y. /* SPECIFIED CONSTANT IS */STRG 280 

GO TO S150,. /* GREATER THAN OR = 1.0 */STRG 290 

END. STRG 300 

ONM =N—Loe. STRG 310 

NFO =09. STRG 320 

NSTEP(3)=09.. STRG 330 

ANS(3)=0,. STRG 340 

ANS(4)=0y. . STRG 350 

NSTOP="0',y. STRG: 360 

/* */STRG 370 

/* FIND DEPENDENT VARIABLE» NUMBER OF VARIABLES TO BE FORCED TO */STRG 380 

/* ENTER IN THE REGRESSION, AND THE NUMBER OF VARIABLES TO BE */STRG 390 

/* DELETED */STRG 400 

/* */STRG 410 

DO I = 1 TO My. STRG 420 

LLUIT)=ly. STRG 430 

IF IDX(I) LE 0 STRG 440 

THEN GO TO S10y- STRG 450 

IF IDX(I) LT 2 STRG 460 

THEN DOy. STRG 470 

NFO =NFO+1,. STRG 480 

IDX(NFO)=I,. STRG 490 

GO TO S10,. STRG 500 

END, . STRG 510 

ELSE IF-IDX(1)= 2 STRG 520 

THEN DOs. STRG 530 

NSTEP(3)=NSTEP(3)+1y. STRG 540 

LL(I)=-1y. ~ STRG 550 

GO TO S10,. STRG 560 

ENDy. STRG 570 

MY =Iy. STRG 580 

.NSTEP(1J=MY>y. STRG 590 

ANS(5)=D(MY MY) 9 STRG 600 

$10.. STRG 610 

END». -STRG 620 

NSTEP(2)=NFOy. STRG 630 

/* */STRG 640 

/* FIND THE MAXIMUM NUMBER OF STEPS */STRG 650 

/* */STRG 660 

MX  =M-NSTEP(3)—Ly. STRG 670 

/* */STRG 680 

/* START SELECTICON OF VARIABLES */STRG 690 

/* */STRG 700 

DO NZ = 1 TO MX,. STRG 710 

IF N-NZ-1 LE 0 STRG 720 

THEN DOe. STRG 730 

ERROR='3',. /* DEGREES OF FREEDOM IS 0 */STRG 740 

GO TO S150;.- STRG 750 

END; . STRG 760 

RD =O9- STRG 770 

IF NZ GT NFO STRG 780 

/* */STRG 790 

/* SELECT NEXT VARIABLE TO ENTER AMONG FORCED VARIABLES */STRG 800 

/* */STRG 810 

THEN GO TO S205. STRG 820 

DO I = 1 TO NFO,. STRG 830 

K =IDX(1) 96 STRG 840 

IF LL{K) GT O STRG 850 

THEN DOy. ; STRG 860 

RE =D(KyMY)**2/D(KeK) >. STRG 870 

IF RD LT RE STRG 880 

THEN DO>. STRG 890 

RD =RE,. STRG 900 

NEW =Ky. STRG 910 

END». STRG 920 

END». STRG 930 

ENDy.« STRG 940 

GO TO S259. STRG 950 

/* */STRG 960 

/* SELECT NEXT VARIABLE TO ENTER AMONG NON-FORCED VARIABLES */STRG 970 

/* */STRG 980 

S200« STRG 990 

DO I = L TO My. STRG1000 

IF I NE MY STRGLO1O 

THEN DOy. STRG1020 

IF LL{I) GT O STRG1O30 

THEN DO. STRG1040 

RE =D(IlyMY)**2/D(1y1)y. STRG1050 

IF RD LT RE STRG1060 

THEN DOy. STRG1O070 

RD =REye. STRG1080 

NEW =I,. STRG1090 

ENDy. STRG1100 

END». STRG1110 

ENDy. STRG1120 

ENDy. STRGL130 

S256 STRG1140 

IF RD LE 0 OR ANS(5) LE ANS(3)+RD STRG1150 

THEN DO,. STRG1160 

ERROR="2' 9. /* NEGATIVE SUM OF SQUARES */STRG1170 

GO TO S150y.- STRG1180 

ENDy. STRG1L190 

RE =RD/ANS(5)>. STRGL200 

/* */STRGL210 

/* TEST WHETHER THE PROPORTION OF THE SUM OF SQUARES REDUCED BY */STRG1220 

/* THE LAST VARIABLE ENTERED IS GREATER THAN OR EQUAL TO THE */STRG1230 
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/* SPECIFIED PROPORTION */STRG1240 

/* */STRG1250 

IF RE LT pct STRG1260 

THEN GO TO S150,. STRG1270 

LLO(NEW) =0 9. /* IT 1S GREATER THAN OR EQUAL #*/STRG1280 

L(NZ)=NEW,. STRG1290 

ANS(1)=RDe~ STRG1300 

ANS(2)=RE>~ STRG1310 

ANS(3)=ANS(3)4RD». STRG1320 

ANS(4)=ANS(4) 4#RE,. STRG1330 

NSTEP(4)=NZ90 STRG1340 

NSTEP(5)=NEW ee STRG1L350 

/* */STRG1360 

/* ‘COMPUTE MULTIPLE CORRELATION, F-VALUE FOR ANALYSIS OF */STRGL370 

/* VARIANCE, AND STANDARD ERROR OF ESTIMATE */STRG1380 

/* */STRG1390 

: ANS(6)=SQRT(ANS(4)) 9 STRG1400 

RD =NZ¢.- STRGL410 

RE  =ONM-RDy. STRG1420 

RE =(ANS(5)—ANS(3))/RE?. STRG1430 

ANS(7)=(ANS(3)/RD)/REs. STRG1440 

ANS(8)=SQRT(RE) 9. STRG1450 

/* */STRG1460 

/* DIVIDE BY THE PIVOTAL ELEMENT */STRGL470 

/* */STRG1480 

RD = =D(NEWeNEW) STRG1490 

DO J = 1 TO Me. STRG1500 

IF LL(J) LT O STRG1510 

THEN GO TO S40y. STRG1520 

ELSE IF LL(J) GT O STRG1530 

THEN GO TO S30;- STRG1540 

IF J = NEW STRG1550 

THEN DOs. STRGL560 

D(NEWsNEW)=L/RD,e STRG1L570 

GO TO S40,. STRG1580 

END». STRG1590 

DJ 9 J) =0( 52 J) +DU NEW) J) ®#2/RD yo STRG1600 

S300 STRG1610 

D(NEW,sJ)=D(NEW,J)/RDoe . STRG1620 

S40.- STRG1630 

END,. STRG1640 

/* */STRG1650 

/* COMPUTE REGRESSION COEFFICIENTS */STRG1660 

/* */STRGL6T0 

BINZ)=D(NEW? MY) 90 STRG1680 

IF NZ GT l STRG1690 

THEN CO,. STRGL700 

IO =NZ~-1,. STRGL710 

DO J = 1 TO IDs. STRG1720 

IJ =NZ—Jee STRG1730 

KK =LCIJdD ye STRG1LT40 

B(IJ)=D(KKs MY) 96 STRG1750 

DO K = 1 TO Jy. STRG1760 

IK =NZ-K#l1,). STRGL770 

MK =LOIK) pe STRG1780 

BIJ) =BCIJI-D(KKy MK) *B0 IK) 96 STRG1790 

ENDy. STRG1800 

END». STRG1810 

END». STRG1820 

ANS (9)=XBAR(MY) 5. 7* COMPUTE INTERCEPT */STRG1830 

DO I = 1 TO NZ¢.e STRG1840 

KK =LUI) 9. STRG1850 

ANS(9)=ANS(9)-B(1) ®XBAR(KK) 96 STRG1860 

SCI) =ANS(B8) *SQRTUDIKK KK) D9. STRG1870 

TCI) =BCI)/SC1I)»- STRG1880 

BETA(I)=B(1) *STDO(KK)/STDCMY) ¢« STRG1890 

END». STRG1900 

/* */STRG1910 

/* PERFORM A REDUCTION TO ELIMINATE THE LAST VARIABLE ENTERED */STRG1920 

/* . . */STRG1930 

DO I = 1 TO My. STRG1940 

IF LL(I) GT O STRG1950 

THEN DO,y. STRG1960 

DO J = 1 TO My. STRGLOTO 

IF LL(J) GE O STRG1980 | 

THEN DOs. STRG1990 

IF J NE NEW STRG2000 

THEN D(1,J)=D(1,J)—DU1sNEW) *¥D(NEW 2 J) 96 STRG2010 

END». STRG2020 

END». STRG2030 

D( I ,»NEW)=D(1,NEW)/(-RD)¢e STRG2040 

END». STRG2050 

END? STRG2060 

/*, */STRG2070 

/* ADJUST STANDARD ERROR OF THE ESTIMATE AND MULTIPLE */STRG2080 

/* CORRELATION COEFFICIENT */STRG2090 

/* */STRG2100 

RD =N-NSTEP(4),. STRG211L0 

RD =ONM/RO,. STRG2120 

ANS(10)=SQRT(1—C1—-ANS (6) **2) #RD) 96 STRG2130 

ANS (11)=ANS(8)*SQRT(RD) »- STRG2140 

CALL SOUT (NSTEP sANSylsByS7T BETA) ¢0 STRG2150 

/* */STRG2160 

/* TEST WHETHER THE STEP-WISE REGRESSION WAS TERMINATED */STRG2170 

/* IN PROCEDURE SOUT. + */STRG2180 

/* ‘#4 STRG2190 

IF NSTOP GT "0! STRG2200 

THEN GO TO $150,. STRG2210 

END,.~ STRG2220 

$150.2. STRG2230 

RETURN». STRG2240 

END, /7*END GF PROCEDURE STRG */STRG2250 
Purpose: 


STRG performs a stepwise multiple linear regression 
analysis for a dependent variable and a set of inde- 
pendent variables, : 


Usage: 


CALL STRG (M, N, D, 
ANS, L, B, STD); 


XBAR, IDX, PCT, NSTEP, 


Description of parameters: 


M - BINARY FIXED 
Given total number of variables in data 
matrix, 


N - BINARY FIXED 
| Given number of observations. 
BINARY FLOAT [(53) ] 
Given matrix of sums of cross- 
products of deviations from mean. 
This matrix will be destroyed. 
BINARY FLOAT [(53)] 
Given vector containing the means. 
BINARY FIXED 
Given vector containing the following 
codes: 
0 - independent variable available for 
selection, 
1 - independent variable to be forced 
into the regression equation. 
2 - variable not to be considered in 
the regression equation, 
3 - dependent variable. 
This input vector is destroyed. 
BINARY FLOAT 
Given constant value indicating the 
proportion of the total variance to be 


D(M, M) ~ 


XBAR(M) - 


IDX(M) - 


PCT - 


explained by any independent variable. 


Those independent variables that fall 
below this proportion will not enter 
the regression equation. To ensure 
that all variables enter the re- 
sression equation, set PCT=0. 0. 
BINARY FIXED 

Resultant vector containing the fol- 
lowing information: 


NSTEP(5) - 


NSTEP(1) - number of the dependent 
variable. 

NSTEP(2) - number of variables 
forced into the regres- 
sion equation. 

NSTEP(8) - number of variables 
deleted from the re- 
eression equation. 

NSTEP(4) - the number of the last 

step. 

NSTEP(5) - the number of the last 
variable entered, 

BINARY FLOAT [(58) ] 

Resultant vector containing the fol- 

lowing information for the last step: 


ANS(11) - 


ANS(1) - Sum of squares reduced 
by this step 
ANS(2) - Proportion of total sum 


of squares reduced 


ANS(8) - Cumulative sum of 
squares reduced, up to 
this step 
Cumulative proportion 
of total sum of squares 
reduced 
Sum of squares of the 
dependent variable 
Multiple correlation 
coefficients 
F ratio for sum of 
squares due to regres- 
sion 
Standard error of the 
estimate (residual mean 
square) 
Intercept constant 
Multiple correlation co- 
efficient adjusted for 
degrees of freedom | 
BINARY FIXED 
Resultant vector containing the 
independent variables entered in the 
regression, 
K is the number of independent 
variables in the regression equation, 
BINARY FLOAT [(58) ] 
Resultant vector containing the 
partial regression coefficients cor- 
responding to the variables in vector 
Ts 
BINARY FLOAT [(58) ] 3 
Given vector containing the standard 
' deviations. 


ANS(4) - 


ANS(5) - 
ANS(6) - 


ANS(7) - 
ANS(8) - 


ANS(9) - 
ANS(10) - 


L(K) - 


B(K) - 


STD(M) - 


Remarks: 


There must be one, and only one, dependent variable 
and at least one independent variable. | 

The number of data points must be greater than 
the number of independent variables plus one. 
Forced variables are entered into the regression 
equation before all other independent variables. 
Within the set of forced variables, the one to be 
chosen first will be the one that explains the greater 
amount of variance. 

Instead of using, as a steapine criterion, a 
proportion of the total variance, some other 
criterion may be added to the output routine. 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero, 
The following constitute the possible error condi- 
tions that may be detected: 


ERROR=1 - number of variables M not greater than 
1, or N not greater than Mtl. 
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ERROR=2 - reduced sum of squares exceeds total 
| sum of squares, 

ERROB=8 - degrees of freedom is zero, for the 

| variable that is currently active. 

_ ERROR=4 - specified constant, PCT, is greater 

| than or equal to one. 


Subroutines and function subroutines required: 
SOUT, a special output routine that must be pro- 
vided by the user, The routine prints out the 
results of the stepwise regression, An example of 
such a routine may be found in the sample program 
STEP, 


Method: 


The abbreviated Doolittle method is used to (1) 
select variables entering the regression and (2) 
compute regression coefficients. Refer to C, A, 
Bennet and N, L. Franklin, Statistical Analysis in 
Chemistry and the Chemical Industry, John Wiley 
and Sons, 1954, Appendix 6A, 


Mathematical Background: 


This subroutine performs a stepwise multiple re- 
gression analysis for a dependent variable and a 
set of independent variables. In each step of the 
regression i=1,2,...,q4, where q is the number of 
independent variables, the abbreviated Doolittle 
method is used to calculate the following statistics: 
The independent variable entering in the regres— 
sion is selected, first, by computing the amount of 
reduction of sum of squares for each variable: 


_ where: 


aj is initially an element in the sums of cross- 
products of deviations matrix which will be 
modified in successive steps. 

j= 1,2,..., q are independent variables (j # 
variables deleted and variables entered 
before the i-th step) 

y = dependent variable 


and, second, ‘by finding the largest value of C;. 
Set S; = C; to indicate the sum of squares that 
will be reduced in the i-th step. 
The proportion of S; to the total is obtained by: 


+ | | | 
Bie (2) 
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where: 


n 


D = "9° 


j=l 


Comal © 


(n= number of observations) 


If pis less than the constant specified by the 
user to limit independent variables, the analysis 
will be terminated without entering the last variable | 
selected; otherwise, the following calculations _ are 
continued: 

The cumulative sum of squares reduced is ob- 
tained by 


= + 
Scum Scum , (8) 


and the cumulative proportion reduced by 


cum 7 Poum 7p | (4) 


The multiple correlation coefficient is computed 
by 


R= ./P - | (5) 


and adjusted for degrees of freedom by 


R, = 4 1-(1-R2) (n-1) / ok) 


where there are k independent variables in the 


regression, 
The F value for analysis of variance is given by 
S k 
1 es ork) " 
| ( cum / 


The standard error of the estimated y is obtained 


_by the use of the formula 


D-S 
cum 


"y.12...4 Vun-k-1 | (7) 


and adjusted by 
S. = s -+y(n-1) / (n-k) 


Then the following is computed: . 


2 
, Begs 
2 4. 


a.. "ae 
JJ JJ ii 





(8) 


where: 
i= variable entered in the i-th step 


j= V1sVoreeesVjoy are the variables entered 
in the regression before the i-th step, and 


ae oie 


cj. = (9) 
ik a, 


where k= 1,2,...,m are variables including 
y k # variables deleted or the variable 
entered in the i-th step). 

Regression coefficients are computed by 


a ? Biy 


Ba Baeayy 7 Py Sa-tyi (10) 


D182 4-9) (4-1) 


be" Ei-2)y ~ bBo) 17 
etc, 
and the value of the intercept as 


b =7F- b. x 
> es 2, j j 


(ay) 


where k = number of independent variables in the 
regression, 
Standardized regression coefficients, beta weights 


B.=b,° — | (12) 





where Sj and Sy are standard deviations. 
Standard errors of regression coefficients are 
given by | 


os | ec (13) 


I, 


where j = vj, Vo, .-- , Vj are variables in the 


regression and t-values as 


ee | HS (14) 


— 'T(M - 


Perform the reduction to eliminate the variable 
entered in i-th step: 


Qa, = Ay, ~ Bi Bap ae) 
where: 


i = variable entered in i-th step 


j =1, 2, »eo, Mm (j # variables deleted and 
variables in the regression) 


k =1, 2, ..., m k# variables deleted or the 
variable entered in i-th step) 


| a= as / “2,5 (16) 
a7 ier 4 aay (17) 


Programming Considerations: 


If the user provides the routine SOUT, the argument 
list must be consistent with the argument list of the 
call statement in subroutine STRG, 

A description of the parameters follows: 


NSTEP(5), ANS(11) - These parameters are the 
L(K), B(K) same asin STRG, When used 
i in SOUT, however, they 

appear as input, 

BINARY FLOAT [(58) ] 

Given vector containing 
standard error of regression. 
BINARY FLOAT [(58) ] 

Given computed T value. 
BINARY FLOAT [(58) ] 

Given beta coefficient. 


S(M) - 


BETA(M - 
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@ 

e@ Subroutine CANC 
eeoys ee eee ee CANCL220 
CANC1230 
CANC1240 
CANC1250 
CANC1260 
CANC1270 
CANC1280 
CANC1290 
*/CANC1300 
*/CANCL310 
*/CANC1320 
*/CANC1330 
CANC 1340 
CANC 1350 
CANC1360 
*/CANC1370 
*/CANC1380 
CANC1390 

CANC1400 ¢ 
CANC1410 
*/CANC 1420 
TEST WHETHER EIGENVALUES ARE GREATER THAN 0.0 BUT LESS THAN */CANC1430 
1.¢ */CANC1440 
*/CANC 1450 
CANC1460 
CANC1L470 
CANC1480 
/* CANONICAL CORRELATION CANNOT*/CANC1490 
/* BE COMPUTED */CANC1L5CO 
: CANC1510 
CANC1520 
*/CANC1L530 
*/CANC 1540 


OO I = 1 TO MQ;. 
DO J = 1 TO MQ,. 
ACI, J) =OeCoe : 
O00 K = 1 TO MP,. 
ACUI J) =ACL,JP+COEFL (Ks TI *T (Ky J)y. 
END,. 
ENO,. 
ENO,. 


CANC.. CANC 10 
DEGGIE ICE ROG AGS GOR IG IG IGS aE SoS ISI oi sok iii CANC 20 
1% *X/TCANC 30 
/% TO COMPUTE THE CANONICAL COR°ELATIONS BETWEEN TWO SETS OF x/CANC 40 
s%* VARIABLES. *x/CANC 50 
1% */CANC 6C 
(DOO RO IO iGO fom i gotok dolaiak doktlot dado tacit tok da igioiiot ok iotoioiotci tot oktober JCANC 70 
PROCEDURE (NyMPyMQyRRy ROOTS» WLAM »CANR CHI SQ,NDF,COEFR,COEFL),. CANC 80 
OECLARE CANC 90 
ERROR EXTERNAL CHARACTER (1), CANC 100 

(NDF (¥) gl eJeK yb eMeMPyMQyQNy Ni, TEFR} CANC 110 

FIAED BINARY, CANC 120 

(PRU*, %),ROOTS(*) pHLAM(%) » CANRE)» CHISQ(#) » COEFRI*, *)y CANC 130 
CNEFLI*,*),DET,BAT,CON) CANC 140 

BINARY FLOAT,. /*SINGLE PRECISION VERSION /*S*/CANC 150 

BINARY FLOAT (53) 9. /*DOUBLE Feria” VERSION /*D¥*/CANC 160 

*/CANC 170 
*/CANC 180 
*/CANC 190 
*x/CANC 2C€0 
ERROR="O',. CANC 21¢ 
IERK =0,. CANC 220 
IF MP LE O OR MQ LE O /* THERE ARE NO RIGHT OR LEFT *®/CANC 230 
THEN DO;. /* HANO VARIABLES. */CANC 240 
ERRQR=F*1! 5. CANC 250 

GO TO FIN. : : CANC 260 
END»). CANC 270 

IF MP LT MQ CANC 280 


CALCULATE EIGENVALUES WITH ASSOCIATEO EIGENVECTORS OF THE 
INVERSE OF R 22% A 


CALL MGDU (MQ,A,COEFR sROOTSsX) 96 

IF ERRCR NE ‘OC! 

THEN DO,. 
ERROR="4',. 
GO TC FINs. 
END». 

IF IE2R= "]° 

THEN EPROFH!2',. 


/* ERROR CONDITION IN ROUTINE 
/* MSDU. 


CHECK WHETHER THE NUMBER OF LEFT-HAND VART ABLES TS EQUAL 1 
GR GREATER THAN THAT OF RIGHT-HAND 


DO IT = 1 TO MQ». 
IF ROOTS(I) LE 0.0 OR ROOTS(I) GE 1.0 
THEN DOy. 
“ERROR="5',y, 
GO TC FINg. 
END; 
END,» 


FOR EACH VALUE OF I = ly2eeeeeMQ CALCULATE THE STATISTICS 


THEN DG). CANC 290 


M 
MP 
MQ 


=MP,. 
=MQ,_. 
=Moe 


CANC 
CANC 
CANC 


300 
310 
320 


NOTED BELOW. 


00 I = 1 TO MQ,y. 


*/CANC1550 
*/CANC1560 
CANC1570 


7* CANONICAL CORRELATION */CANC1580 
CANC1590 
CANC1600 
CANC1L610 
CANC 1620 
CANC1L630 

*/CANC1L640 
CANC1650 

*7CANC1660 

*/CANC1LO6TO 

*/CANC 1680 
CANC1690 
CANC1LT0C0 

*/CANC1710 

*/CANC1720 

*/CANC1LT730 
CANC1740 
CANC1750 
CANC1760 

*/CANC1770 

*/CANC178C 

*/CANC179C 

DO J 1 TO MP,. CANC1800 

DET OCs. , CANC1816 

DOC K = 1 TT MQ;y. CANC1820 

=DET+T(J,K) *COEFR(KyI Dy. CANC183C 

END. CANC184C 
COEFL(JeT)=DET/CANR(T) >. CANC1850 

ENDe. CANC1 860 

END». CANC1L870 

ENDy. CANC1886 
ENDy. CANT1890 

FINe. CANC1900 
RETURN». CANC191C 

END». */CTANC1920 


ERROR='2",, CANC 330 
END». CANC 340 

COPY. CANC 35¢ 
BEGIN». CANC 360 
DECLARE CANC 370 
(RUMP MP)» TC MP) MQ) 2 ACMO9MQ) > X(MOVMQ)? CANC 380 

BINARY FLOAT). /*SINGLE PRECISION VERSION /*S%*/CANC 390 

1% BINARY FLOAT(53) 9. /*DQUBLE PRECISION VEPSION /*D*/CANC 466 
/* */CANC 410 
(* PARTITICN INTERCORRELATIONS AMONG LEFT HAND VARIABLES, BETWEEN*/CANC 420 
[* LEFT AND RIGHT HAND VARIABLES, AND AMONG RIGHT HAND VAFTABLES*/CANC 430 
/* */CANC 440 
M  - =MP+MQy. CANC 450 

FM -=M#_ly. CANC 460 

FN =Nye - CANC 470 

IF ERROR= '2! , CANC 480 
THEN DO¢. CANC 490 
IERR CANC 500 

K */CANC 51C 

*/CANC 520 


CANR(T)=SQRT(ROOTS(I))>. 

WLAM(1)=1.0,¢.- 
00 J = I TO MG. 
WLAMCT)=WLAM(I)*(1.C-RNOTS (J) Dye: 
ENDy. 

BAT =WLAM(T)y. /* CHI-SQUARE 

CHISQ(I) =-(FN-0.5¥*FM)*LCG(BAT) +. 


CALCULATE DEGFEES OF FREEDOM FOR CHI-SQUARE 


N1 =I-l,. 
NDF CI) =(MP-NL) *¥(MQ-N1),. 


I-TH SET OF RIGHT HAND COEFICIENTS 


00 J.= 1 TO MQ;. 
COEFR(JeTI=X(Jol)e. 


/* CHANGE LEFT AND RIGHT HAND ENDy. 


/* VARTABLES 
K+lpe CANC 530 
Cy CANC 540 
OJ = MQ+1 TO My. CANC 550 
=Ltly. CANC 560 
*/CANC 570 

R(KsLI=RRUI Jd) 9 ; CANC 580 

ENDy. CANC 590 

- *7CANC 600 

DO J = 1 TO MQy. CANC 610 

—— COEFL( Ky JDERRII yd) 9. CANC 620 

END». CANC 630 

END». CANC 640 

DO I = 1 TO MQy. CANC 650 

DO J = 1 TO MO,. CANC 660 

: /* | */CANC 670 

COEFRITsJI=ERRI Ly J) oe CANC 680 

END,. CANC 690 

. ENDg. CANC 700 

END,. CANC 710 

ELSE DQ,. CANC 720 
DO I = 1 TO My. CANC 730 

DO J = 1 TO My. | CANC 740 

IF I LE MP AND J LE MP CANC 750 

THEN DQ,. CANC 760 

/* */CANC 770 

R(Iyu) ERRULyJ) ve CANC 780 

GO TO S10). 7 CANC 790 

END»). CANC 800 

LE MP AND J GT MP CANC 810 

DOs. CANC 820 

K =J-MP,. CANC 830 

7*® RR */CANC 840 

COEFL(I,KI=RECI pS) 90 CANC 850 

GO TO S10,. CANC 860 

ENDy. CANC 870 

GT MP AND J GT MP CANC 880 

DO,. : , CANC 890 

L =I-MP,. CANC 900 

K =J—-MP,y. CANC 910 

/* RR */CANC 920 

COEFR(L»K)=RR(IIyJ) 96 CANC 930 

END). CANC 940 

CANC 950 

END 9. CANC 960 

ENDy). CANC 970 

*/CANC 980 
*/CANC 990 


aor 
a) 
— e e 


nae. TOO M ys I-TH SET OF LEFT HAND COEFFICIENTS 


rAo tt 


crTonn a 


7*END OF PROCEDURE CANC 





Purpose: 

CANC computes the canonical correlations between 
two sets of variables, It is normally preceded by a 
call to procedure CORR, 

Usage: 


CALL CANC (N, MP, MQ, RR, ROOTS, WLAM, 
CANR, CHISQ, NDF, COEFR, COEFL); 


Description of parameters: 
SOLVE THE CANONICAL EQUATION 


ae seancyan | INS BINARY FIXED 
Toto e wee cane hece Given number of observations, 
THEN DQ,.. CANC1LO40 
 ERROR=93%,, CANC1050 MP - BINARY FIXED 
GC TO FIN,. CANC1060 
END». CANC1070 Given number of left hand 
*/CANCLO8BO 
CALCULATE T = INVERSE OF RS 11 * RR 12 */CANC 1090 variables, 
*/CANC1100 
DQ I = 1 TO MPy. CANC1110 MQ am BINARY FIXED 
DO J = 1 TO MQ,. CANC1120 
Dre cae glee CANET IAG: Given number of right hand 
TCL J)= T(Ly J) #R(1yK) #COEFL (Ky J) ye CANC1150 a “e 
jee peace variables, 
END « _fineiis0 | RR(M, M) - BINARY FLOAT [(53)] 


*/CANC1200 


CALCULATE A = RR 21 * T 
: */CANCI210 


Given matrix (where M=MP+ MQ), 
containing correlation coefficients. 
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ROOTS(MQ) - BINARY FLOAT [ (58) ] 
Resultant vector containing eigen- 
values computed in the subroutine 
MGDU. 

BINARY FLOAT [ (58) ] 
Resultant vector of length MQ 
containing lambda, 

BINARY FLOAT [ (58) ] 
Resultant vector containing 
canonical correlations, 

BINARY FLOAT [ (58) ] 
Resultant vector containing the 
values of chi-squares., 

BINARY FIXED 

Resultant variable containing the 
number of degrees of freedom, 
BINARY FLOAT [ (58) ] 
Resultant matrix containing MQ 
sets of right-hand coefficients 
columnwise, 

BINARY FLOAT [ (58) ] 
Resultant matrix containing MQ 
sets of left-hand (genes 
columnwise, 


WLAM(MQ) ~ 
CANR(MQ) - 
CHISQ(MQ) - 
NDF - 


COEFR - 
(MQ, MQ) 


COEFL - 
(MP, MQ) 


Remarks: 


The number of left-hand variables (MP) should be 
greater than or equal to the number of right-hand 
variables (MQ). If the value of MP is less than the 
value of MQ, the input matrix is rearranged to 
satisfy the above conditions, The right-hand vari- 
ables become left-hand variables and left-hand 
variables become right-hand variables, [If this 
condition exists, the error code indicator, ERROR, 
is set to 2, 

Also, if the variables are changed, the values of 
MP and MQ are interchanged, 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero, 
The following constitute the possible error conditions 
that may be detected: | 


| ERROR=1 - no right-hand or left-hand variable -- 
| returned values are meaningless, 
ERROR=2 - number of left-hand variables smaller 
| than the number of right-hand variables. 
ERROR=8 - correlation coefficient matrix ill-con- 
| ditioned (determined by MINV). 
ERROR=4 - error condition in routine MGDU, from 
3 MSDU. 
ERROR=5 - Eigenvalues less than or equal to zero 
. or greater than or equal to one, 


Subroutines and function subroutines required: 


MINV 
_MGDU (which, in turn, calls the subroutine MSDU) 


Method: 


Refer to W.W. Cooley and P,R, Lohnes Multivariate 
Procedures for the Behavioral Sciences, John Wiley 
and Sons, 1962, Chapter 3. 


Mathematical Background: 


This subroutine performs a canonical correlation’ 
analysis between two sets of variables. 

The matrix of intercorrelations, R, is parti- 
tioned into four submatrices: 


ay 
i |e | 
. = ia eR a (1) 
21 22 | 
Ry = intercorrelations among p variables in 
the first set (that is, left-hand variables) 
Rio = intercorrelations between the variables 
in the first and second sets 
Ro = the transpose of Rio 
Roo = intercorrelations among q variables in 
the second set (that is, aes ene 
variables) 
The equation: 
ROR: Bo en er SO 3 (2) 


22 21 11 = 12 


is then solved for all values of X, eigenvalues in 
the following matrix operation: 


-1 
T= Ry Rio (3) 
A= R47 (4) 


The subroutine MGDU calculates a a 
(A), with associated eigenvectors, of R5a A 
where i=1, 2, ..«5 4 

For each subscript i=1, 2, ..., q, the following 
statistics are calculated: 


Canonical correlation: 


CANR = 4/, (5) 


where A; = i-th eigenvalue 
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Chi-square: 


2. 


where n= number of observations 


q 
A= IT 


(1 - 2.) 
i 


Degrees of freedom for 7: 
pr= [p-a@-n] [a-a-9] (7) 
i-th set of right-hand coefficients: 


(8) 


where Vig = eigenvector associated with de 


k= Ls 2, eoos q 


i-th set of left-hand coefficients: 


k=1 3 
a; — ——GANR er 
1 t ee 
re Paes 11 “12 
j = 1, 2, seo, P 
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X= - [n-0,5(p+q+1)] log.A_ (6) 





Analysis of Variance 


e Subroutine AVAR 


Cention 



















































AVAR«e AVER 


LASTSCII=LEVEL(I) 41,4. 



































. 10 

SF REELSR EES GEERHEKEMK ELE EKER ERE SREREE EEE RULERS SEEK EY BERKS SESRHAKEKEEKEREK/AV AR 20 
/* | */KVAR 30 
/* TO PERFORM AN ANALYSIS OF VARIANCE FOR A COMPLETE FACTORIAL */AVAR 40 
/* DESIGN. */AYAR 50 
/* | *7AVAR 60 
J EREEERERERERERES ERE SEE REEK EEE EERE EAES ED EEE EREEEL EE HERES ESEREEREEEELE/AV ER 70 
PROCEDURE (KyLEVELsNyXyGMEAN ySUMSQs NDE » SMEAN) » « AVAn 80 
DECLARE AVAR 90 
ERROR EXTERNAL CHARACTER( 1)» AVAR 100 

(LEVEL( *) NDF (*) »KOUNT(K) ISTEP (K) pLASTS(K) 9 Ly INCREgJyKyLyLASTsAVAR 110 

LL »NyN1yND1 »ND2 »NNyNSIZ) AVAR 120 

FIXED BINARY, AVAR 130 

(X(#) »SUMSQ(#) » SHEAN( *) » FSUM, GMEAN» FNy FNL FN2) AVAR 140 

BINARY FLOAT». /*SINGLE PRECISION VERSION /#S%/AVAR 150 

/* BINARY FLOAT (53) 5-6 _ /*DOUBLE PRECISION VERSION /#0%/AVAR 160 
ERROR="0'y. AVAR 170 
NSIZ =(2*#K)-1,. AVAR 180 

IF N LE 0 /* THERE ARE NO DATA POINTS */AVAR 190 
THEN DO). AVAR 200 
ERROR="1' ys - : AVAR 210 

GO TO FINy. AVAR 220 

END». | AVAR 230 

FN =Nye AVAR 240 

IF K LT 2 AVAR 250 
THEN DD». - AVAR 260 
ERROR="2',. /* ONE OR LESS FACTORS */AVAR 270 

GD TO FINe. - a AVAR 280 

END» « -  AVAR 290 

DO I = 1 TO Kee . AVAR 300 

IF LEVEL(I) LT 2 AVAR 310 

THEN DOs. AVAR 320 
ERROR="3',. /* 1 OR MORE LEVELS LESS THEN 2*/AVAR 330 

GO TO FIN». AVAR 340 

END» _  AVAR 350 

END». AVAR 360 

/* */AVAR 370 
/* CALCULATE MULTIPLIERS TO BE USED IN FINDING STORAGE LOCATIONS*/AVAR 380 
/* FOR INPUT DATA. */AVAR 390 
/* - */AVAR 400 
ISTEP(1)=1Lp. . AVAR 410 

DO I = 2 TO Kye AVAR 420 
ISTEP(I)=ISTEP(I-1) *(LEVEL(I-L) #1) 5 AVAR 430 

END». AVAR 440 

D0 I = 1 TO Ky. /* SET LEVEL COUNTER x/AVAR 450 
KOUNT(I)=LEVEL(I) 90 AVAR 460 

END +. AVAR 470 

Nl =Noe AVAR 480 

DO I = 1 TO Ny. /* PLACE DATA IN PROPER PLACE */AVAR 490 

L =KOUNT(1) 9 AVAR 500 

00 J = 2 TO Ky. AVAR 510 

Lo =LeISTEP(J) *(KOUNT(J)—1) 9 AVAR 520 

END,» AVAR 530 

X(L) =X(N1) 9. — AVAR 540 

Nl =Ni-1y. AVAR 550 

DO J = 1 TO Kye AVAR 560 

IF KOUNT(J) GT 1 : AVAR 570 

THEN DO». AVAR 580 
KOUNT(J)=KOUNT(J)—1es AVAR 590 

GO TO S102. AVAR 600 

ENDy. - _ AVAR 610 

KOUNT(J)=LEVEL(J) 96 : AVAR 620 

END? . 3 AVAR 630 

S100. AVAR 640 
END». _ AVAR 650 

Ls =LEVEL(1) 9. /* CALCULATE LAST DATA POSITION*®/AVAR 660 

DO J = 2 TO Kye AVAR 670 

Ls - =L#¥I STEP (J) #(LEVEL(J)—L) 9 AVAR 680 

END». AVAR 690 

/* */AVAR 700 
/* CALCULATE THE LAST DATA POSITION OF EACH FACTOR 2/AVAR 710 
/* . / » -*/AVAR 720 
LASTSUL)=L419. | ; AVAR 730 

DO 1 = 2 TO Ky. m8 AVAR 740 
LASTS(I)=LASTS(I-LI+ISTEP(I) 96 AVAR 750 

END ye AVAR 760 

00 I = 1 TO Ky. | /* PERFORM OPERATOR CALCULUS +#/AVAR 770 

L = =e. AVAR 780 

LL 1s. AVAR 790 

FSUM =0.09. : AVAR 800 

NN =LEVEL(I)». | AVAR 810 
INCRE=ISTEP(I) 96° ne, re: AVAR 820 

LAST =LASTS(1) 9. . AVAR 830 

S200. -  .  AVAR 840 
DO J = 1 TO NNg. /* SIGMA OPERATION */AVAR 850 

FSUM =FSUM#X(L) 96 AVAR 860 

Ls SL+INCREg. AVAR 870 

END; AVAR 880 

X(L) =FSUMy. | AVAR 890 

FNL =NNo. | 6 ' AVAR 900 

DO J = 1 TO‘NNe. /* DELTA OPERATION */AVAR 910 
X(LL)=FN1*®X(LL)-FSUMp » a 4 AVAR 920 

LL = =LL+INCREy. | AVAR 930 

END,. he AVAR 940 

FSUM =0.09. AVAR 950 

IF L LT LAST i AVAR 960 

THEN DOy6 : . | /  AVAR 970 

IF L LE LAST-INCRE AVAR 980 

THEN DOe. | AVAR 990 

L =L+INCRE ye AVARLOOO 

LL = =LL+INCRE». -AVARLOLO 

GO TO S20,. Pl a : AVAR1020 

END 56 c AVAR1030 

L- =L+INCRE+1-LAST,. AVARLO40 

LL =LL+INCRE#L-LAST». AVAR1050 

GO TO S205. AVAR1060 

 ENDye | -AVAR1070 

END». - % gi J AVAR1080 

DO I = 1 TO NSIZs. _ AVAR1090 
SUMSQ=0.09. AVAR1100 

END: AVAR1110 

/*. | */AVAR1120 
/* SET UP CONTROL FOR MEAN SQUARE OPERATOR */AVARL130 
/* */AVARL140 
LASTS(1)=LEVEL(1) >. AVAR1150 
ISTEP(1)=19. AVARL160 

DD I = 2 TO Ky. AVARLL70 
AVAR1180 






ISTEP(IT)SISTEPCI-1) #25. AVAR1L190 

END». AVAR1200 

NN =Hlye AVARL210 

DO I = 1 TO Kye AVAR1220 

KOUNT(I)=0.09. AVAR1L230 

END». AVAR1240 

$30.6 AVAR1250 

L =O». AVAR L260 

DO I = 1 TO Ky. AVAR1270 

IF KOUNT(I) NE LASTS(T) AVARL280 

THEN 00,5. AVARL290 

IF L LE O AVAR1300 

THEN OO,. AVAR1L310 

KOUNT(I)=KOUNT(1) +1, AVAR1320 

IF KOUNT(I) LE LEVEL(I) AVARL330 

THEN GO-TO S40,y. AVAR1L340 

GO TO S$50,. AVAR1350 

END». AVAR1360 

IF KOUNT(I)= LEVEL(T) AVAR1370 

THEN GO TO S60,%. AVAR1380 

$40... AVAR1390 

L =L+ISTEP(I),. AVAR1400 

GO TO S60,. AVAR1410 

END: AVAR 1420 

S500. AVAR1430 

KOUNT(1.)=0>. AVAR1440 

S60... AVAR1450 

END». AVAR1460 

IF . GT 0 AVAR1470 

THEN O00O,- AVAR14860 

SUMSQ(L)=SUMSQ(L)+X (NN) #X (NN) 90 AVAR1490 

NN =NN+1). AVAR1500 

GO TO S309. AVAR1L510 

ENDe. AVAR1520 

GMEAN=X(NN)/FNg- /* CALCULATE MEAN */AVAR1530 

/* */AVAR1540 

/* CALCULATE FIRST OIVISOR REQUIRED TO FORM SUM OF SQUARES AND */AVAR1550 

/* -DIVISORs WHICH IS EQUAL TO DEGREES OF FREEDOM, REQUIRED TO ¥*/AVAR1560 

/* FORM MEAN SQUARES . */AVAR1570 

/* */AVAR1580 

ISTEP=0,. AVAR1590 

ISTEP(1L)=1y,. AVAR1600 

NN =09- AVAR1610 

S70.- AVAR1620 

NDL =ls. AVAR1630 

ND2 =lee AVAR16440 

- O00 I = 1 TO Kye AVAR1650 

IF ISTEP(I) NE O AVAR1660 

THEN DO;. AVAR1670 

ND1 =NOL*LEVELI(I),. AVAR1680 

NDZ =NO2*(LEVEL(I)—-1),. AVAR1690 

ENDge AVAR1700 

END». AVAR1710 

FNL =N*ND1,- AVAR1720 

FN2 =ND2,.- AVAR1730 

NN =NNt+1l,. AVAR1740 

SUMSQ(NN}=SUMSQ(NN)/FN1L4- AVAR1 750 

“SMEAN(NN) =SUMSQ(NN) /FN2,.- AVAR1 760 

NOF (NN) =ND2,_. AVAR1770 

IF NN LT LL AVAR1780 

THEN OO, AVAR1790 

DO I = 1 TO Kee AVAR1800 

IF ISTEP(I) NE O AVAR1 810 

THEN ISTEP(I)=0,. AVAR1820 

ELSE DO;. AVAR1830 

ISTEP(I)=1,.~ AVAR1840 

GO TO S703. AVAR1850 

END». AVAR1860 

END, AVAR1870 

END». AVAR1 880 

FIN. AVAR1890 

RETURN». AVAR1900 

] END». /*END OF PROCEDURE AVAR */AVAR1910 
Purpose: 


AVAR performs an analysis of variance for a com- 
plete factorial design. 


Usage: 


CALL AVAR (K, LEVEL, N, X, GMEAN, SUMSQ, 
NDF, SMEAN); 


Description of parameters: 
K- BINARY FIXED 
Given number of variables (factors), 
BINARY FIXED 
Given vector, the i-th element being 
the number of levels for the i-th 
factor (LEVEL)). 
N - _ BINARY FIXED 
Given total number of data points 
read in (N= [2 **K]-1), 
X - BINARY FLOAT (53) ] 
| Given vector of length 


LEVEL (K) - 


K 
AL (LEVEL ; + 1) 


with data positioned in locations one 
to N, where N is the total number of 
data points readin. The length of the 
vector must not exceed 32, 767. 
BINARY FLOAT [ (58) ] | 
Resultant variable containing grand 
mean, 

BINARY FLOAT [ (53) ] 

Resultant vector of length 2 to the 
Kth power minus one, ([ 2**K ] - 1), 
containing the sums of squares, 
BINARY FIXED 

Resultant vector of length ( [ 2**K ] 
-1), containing degrees of freedom, 
BINARY FLOAT [ (53) | 

Resultant vector of length ( [ 2**K ] 

~ 1), containing mean squares. 


GMEAN - 


SUMSQ - 


NDF - 


SMEAN - 


Remarks: % 
SN 

If no errors are detected in the processing of data, - 

the error indicator, ERROR, is set to zero, The 

following constitute the possible error conditions 


that may be detected: 


ERROR=1 - N, the number of data points, less than 
| or equal to zero, | 
ERROR=2 - There is only one factoror less than one, 
ERROR= 8 - One or more factors have levels less 
than two, 


Method: 


The method is based on the technique discussed by 

H, O. Hartley in Mathematical Methods for Digital 

Computers, edited by A. Ralston and H, Wilf, John 
Wiley and Sons, 1962, Chapter 20, 


Mathematical Background: 


This procedure calculates an 
in three steps: 
1, The data is placed in properly distributed. 
positions of storage. | | 
The size of the data array named X required for 
an analysis of variance problem is calculated as 


alysis of variance 


follows: | / 
K , | 
MM= TI (L, + 1) (1) 
i=1 
where: 


L; = number of levels of i-th factor 
K = number of factors 
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The data is redistributed according to equation 
(4) below. Prior to that, multipliers, S5 to be 
used in finding proper posmions of soea nes are 
calculated as follows: _ . 


s=1 | | (2) 
j-1 e 

s = I (L, + 1) | (3) 

) i= 


where j= 2, 3, ..6, Ko 
Then the position to place each data point is 
calculated by the following equation: 


i 
S= KOUNT, + > S,* (KOUNT, -~1) (A) 
j= 2 


where KOUNT; = value of the j-th subscript of the 
data to be stored, The procedure increments the 
value(s) of subscript(s) after each data point is 
stored, 

2, The next step performs the calculus for the 
general K-factor experiment: operator © and 
operator A, An example is presented in terms of 
K = 3 to illustrate these operators, | 

Let Xape denote the experimental reading from 
the a-th level of factor A, the b-th level of factor 
B, and the c-th level of factor C, The symbols A, 
B, C will also denote the number of levels for each 
factor so thata=1, 2, ..., A; b=1, 2, ..., B; 
Cbg Ogee 

With regard to the factor, A: 

opeeeoy > = sum over all levels a= 1, 
| a 2, «c+, A, holding the other 
subscripts at constant levels, . 
operator A= multiply all items by A and 
subtract the result X from all 
items a, 
In mathematical notations, these SPSEatOEr are 
defined as follows: 


| A 

2 abe = be *. n abe." : ©) 
By | 9= ] 
a he = ee ~ ay be (6) 


The operators } and A will be applied 
sequentially with regard to all factors A, B, and C, 
Upon the completion of these operators, the stor- 
age array X contains deviates to be used for 
analysis of variance components, 
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3. In the next and final step the mean square 
operation for the general K-factor Sapo naaeue is 
performed as follows: 

a Square each value of deviate for analysis of 
variance stored in array X, which is the 
result of the Shen atore >» and A applied in 
step 2. 

b. Add the squared value into a proper sum- 
mation storage. In a three-factor experi- 
ment, for example, the squared value is 
added into one of the seven storages 
(7 = 28 -1) as shown in the first column of 
the following table, The symbols A, B, and 
C in the first column denote factors A, B, 
and C, 

After the mean square operation is completed 
for all values in the storage array X, the procedure 
forms sums of squares of analysis of variance by 
dividing the totals of squared values by the proper 
divisors, These divisors for the three-factor ex- 
periment mentioned above are shown in the middle 
column of the Table. The symbols A, B, and Cin 
the second column denote the number of levels for 
each factor, 

The procedure then forms mean squares by 
dividing sums of squares by degrees of freedom, 
The third column of the table shows the degrees of 
freedom, The symbols A, B, and c denote the 
number of levels, 


Degrees of freedom 
required to form 
mean squares | 


Divisor required to 
form sum of squares 
of analysis of variance 


Designation of store 
and of quantity con- 
tained in it 


ABC. A (A-1) 
ABC, B (B-1) 

ABC, AB (A-1) (B-1) 
ABC.C . (C-1) 

ABC,AC | (A=1) (C-1) 

ABC, BC - (Be1) (C1) 
ABC, ABC (A-1) (B-1) (C-1) 





Programming Considerations: | 


Input data must be arranged in the following man- | 
ner: Consider the three-variable analysis of vari- 
ance design, where one variable has three levels 
and the other two variables have two levels, The 
data may be represented in the form X(I, J, K). 

The left subscript — namely, I — changes first, 
When E3, the next left subscript, J, changes, and 
so on, until E83, J=2, and K=2, 


Discriminant Analysis | | | Usage: 
© Subroutine DMTX CALL DMTX (K, M, N, X, XBAR, D); 


| K - BINARY FIXED 
DMTX.« OMTX Given number of groups. K must be 


(RC IO CIO 2 IC IC RR da i tog ok doi tk / DM TX 


*/OMTX 
TO COMPUTE MEANS OF VARIABLES IN EACH GROUP AND A POOLED */JOMTX greater than 1, 


DISPERSIGN MATRIX FOR ALL THE GROUPS. */DMTX 
/% */DMTX M - BINARY FIXED 
[RRO RR ROR Ok ROR tot ROR ROR ROR RO kok a Ro ROR RO a to a atk to tok kkk ak dk ok JOM TX é ‘ 
PROCEDURE (KyMyNyX-XBAR 2D) 9 DMTX Given number of variables (must be 
DECLARE OMTX 


ERROR EXTERNAL CHARACTER (1)+ DMTX the same for all groups). 


(NC*¥) sa SeK KL ye K2 KK yb oy MyNN) DMTX 


UX 81 9FSUH bax aze | N(K) = BINARY FIXED 

UXBAR(,#) 4DE%)#) yCMEAN(M) ) abe Given vector containing sample sizes 
ve * = 

BINARY FLOAT (53) + 7*DDUBLE PRECISION VERSION 7#D=/0NTX of groups. N=(ny, No, ..., Dy) 


* ERRORE*G"y« OMT X(NN, M) BINARY FLOAT 
IF M LE L /* THE NUMBER OF VARIABLES IS */DMTX ; os 
THEN 00). /* LESS THAN OR EQUAL TO ONE. */DMTX Given matrix containing data in a 
ERRCR="1"y. OMTX 


GO TO FINy. DMTX manner equivalent to a three- 


END». DMTX 
aoe OR K GT M /* INVALIO NUMBER OF GROUPS. aie dimensional array (Xj41)- The first 
GU TO FINS. DMT subscript is case number; the second, 
END,. : OMTX . : 
00 J = 1 TO Kye | DMTX variable number; the third, group 
IF N(J) LE O /* NO OBSERVATIONS IN AT LEAST */OMTX , . 
ree ERRORS"! NE Oe kare anit number, NN=n, + not... + ny. 
END OMT x XBAR(M,K) - BINARY FLOAT [(53)] 
DMTX 32 ° ee 
= 170 My. | OMTX Resultant matrix containing means of 
00 J = 1 TO Ky OMTX 


KOAR(TJ)=0.05¢ DMTX 39C variables in K groups. 


DMTX 


| DMTX D(M, M) - BINARY FLOAT [(53)] 
Kye DMTX 


DMTx Resultant matrix containing pooled 


OMTX 
aisigas ci OMTX dispersion. 
OO KK = 1 TO My. DMTX 
XBAR(KKy I) =XBAR(KKy IT) +X( Lo KK) 9 DMTX 
END,. OMTX 
OC KK = 1 TO My. ’ aaee Remarks: 
XBAR(KKe E)=XBARCKKy 1) /FSUMye OMTX 
END,. OMTX 
END). OMTX . . 
: #/OMTX If no errors are detected in the processing of data, 
COMPUTE THE OISPERSION MATRIX */0MTX : ‘ 7 
s/0nix the error indicator, ERROR, is set to zero. The 


DO [I = 1 TO My. DOMTX 
0 


one eae male following constitute the possible error conditions 
DMT that may be detected: 
OMTX 
OMTX 
Se os ERROR=1 - number of variables less than or equal to 
O00 KK = 1 TO My. OMTX 
CMEAN( KK) =X(L,KK)-XBAR (KK pI) 90 OMTX one, 
ENDye OMTX s . 
D0 Kl = 1 TO My. DMTX ° ERROR=2 - invalid number of groups (K <lorK> M). 
00 K2 = KIL TO My. OMTX . = 
BARE Rar ROR ERG SCRE AMIR TIMEMEADIKZI¢: ia ERROR=3 - no observations in one or more groups. 
ENDr. _DMTX 
DMTX 
al The number of variables must be greater than or 
ae ee one equal to the number of groups. 
; | DNTX 
OMTX 
DO J = I TO My. DMTX Method: 
O0C1,J)=DO(1,J)/FSUM,. : : DMTX 
D(JrT)=D( Ty) OMTX 
END: OMTX 


heme. i | ps Refer to BMD Computer Programs Manual, edited 
CENDpe | | /#END OF PROCEDURE ONTX */04TX by W. J. Dixon, UCLA, 1964, and T. W. Anderson, 


Introduction to Multivariate Statistical Analysis, 
John Wiley and Sons, 1958, Sections 6, 6-6. 8. 





Mathematical Background: 


Purpose: | | This subroutine calculates means of variables in 
_ | each group and a pooled dispersion matrix for the 
DMTX computes means of variables in each group set of groups in a discriminant analysis. 
and a pooled dispersion matrix for all the groups. For each group k=1, 2, ..., K, the subroutine 
This subroutine is used in the performance of dis- calculates means and sums of cross-products of 
eriminant analysis, = | deviations from means as shown below. 
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Means: e Subroutine DSCR 
| ——— 
; DSCR.. OSCR 10 
nn . ; ; i ' (ROR ROR a ak a ok ik ik ie eke ae fe ke ake aie ofc ee ote ac ak te ake ae at oe afk ae ae ae ae a ke ate ea a eae oe a a a ek kk aR KK KKEKEK/ OSCR 20 
k i | */DSCR 30 
r /% TO COMPUTE A SET OF LINEAR FUNCTIONS WHICH SERVE AS INDICES */0SCR 40 
/* FOR CLASSIFYING AN INDIVIDUAL INTO ONE OF SEVERAL GROUPS. #/DSCR 50 
?, om /* */OSCR 60 
ijk (JOR ROI OK A tok toto i get tate tok deka tek dete tte te ak ci ak a ake tea ate te ate ote ates a aie ak ok ek ek ok oe Ke KREIS OSCR 70 
PROCEDURE (KyMyNyX_XBARyDyCMEAN,VyCoPyLG) 95 DSCR 80 
i=l DECLARE OSCR 90 





CNO*) gLGC*) Lede K Kb sy K2 9b ebb» Me Nilo NN) DSCR 100 
FIXED BINARY, DSCR 110 
ERRGR EXTERNAL CHARACTER(1), OSCR 120 
CXC 6%) FNOK)) OSCR 130 
BINARY FLOAT, DSCR 140 
(XBARC%,*) DC %_*) pC U% pe) »CMEANC *) p PO *) p Ve FSUMy PL) OSCR 150 
BINARY FLOAT ,. /*SINGLE PRECISION VERSION /*S*/DSCR 160 
‘BINARY FLOAT (53))- /*D00UBLE PRECISION VERSION /*D*/DSCR 170 

*/DSCR 180 


ik a an (1) 


where nh = sample size in the eh eroup 


j = 1, 2,..., m are variables 


Sum of cross-products of deviations from means: 


= k\ _ _= alee. 
ae ae Do Si) Bip - Sy) 


where j Ly oy ewea 


he = 1 2 sek TO 


The pooled dispersion matrix is calculated as 


follows: 
K 
ys 
‘Dp = k = 1] 


K 
n — & 


1 





k 


where K = number of groups 
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ERROR 
IF M 
THEN 


(2) 


(3) 


FINe. 


=Qy.6 
=tor,, 
LE 1 /* NUMBER QF VARIABLES LESS 
DOy. /* THAN OR EQUAL TO ONE, 
ERROR="1",y. 
GO TO FIN». 
END»s. 
LE 1 0R K GT M 
DQ). 
ERROR="2" 4.6 
GO TO FINe. 
END ¢. 
DO £ = 1 TO Kye 
IF N(I) LE O /* NO OBSERVATIONS IN ONE OR 
THEN DO,. /* MORE GROUPS. 

ERRDR="3',., 

GO TO FIN,. 

END ye 


/* INVALID NUMBER OF GROUPS. 


1 TO Ky. 
SHLtNn(I)». 


1 TO Ms. 
CeGre 
C J = 1 TO Kee 
=VEN( J) *XBARCI sd) 2. 
END). 
CMEAN(I)=V/FSUM,. 
ENDys. 


CALCULATE GENERALIZED MAHALANDBIS O SQUARE 


=Oy. 
bc I = 1 TO My. 
0Oo J = 1 TO My. 
FSUM =0.09- 
DO KK = 1 TO K,. 
FSUM =FSUMtN( KK) *(XBAR(I,KK)-CMEAN(I)) 
*(XBAR( Jy KKI-CMEAN( JD) 9~ 
END,. 
V =V+D(1I+J)*FSUMy. 
‘ END». 
END,. 


CALCULATE THE COEFFICIENTS OF DISCRIMINANT FUNCTIONS 


00 I = 1 TO Ky. 
FSUM =O. 
DO J = 1 TO My. 
DO KK = 1 TO My. 
FSUM =FSUM+D( J, KK) *XBAR( Je 1) ®XBAR(KK eI )y.~ 
END». 
END? 
C(1l,1)=-(FSUM/2),. 
00 J = 1 TO My. 
ClJ+1,1)=0.0,5. 
DO KK = 1 TO My. 
CCJtl eT =ClJt1, 12 4+0( 0 KK) XXBAR(KK oI) 9. 
END,. 
END». 
END,. 


FOR EACH CASE IN EACH GROUP, CALCULATE... DISCRIMINANT 
FUNCTIONS. 


= 1 TO Ky. 

FNCKI)=C(1LsKL)y. 
0G K2 = 1 TO Me. 
FNCKIISFNCKLIFC(K241,K1)*X(L9K2)_. 
ENDs. 

END». 


THE LARGEST DISCRIMINANT FUNCTION 


LL Fly. 
FSUM =FN(1)9. 
‘DQ Kl = 2 TO Ky. 
IF FSUM LT FN(K1L) 
THEN CO,. 
LL =Kly. 
FSUM =FN(K1),. 
END,. 
END»). 


PROBABILITY ASSOCIATED WITH THE LARGEST DISCRIMINANT 
FUNCTION. 


PL =Oee 
DO KK = 1 TO Ky. 
PL =PL+EXP(FN(KK)—-FSUM) 9. 
END». 

N1 =Ni¢l,. 

LG(N1)=LL,. 

P(NL)=1/PL,. 

: END,;. 
END,. 


RETURN». 


ENOD,. 


/7*END OF PROCEDURE DSCR . 


OSCR 190 
OSCR 200 
*/DSCR 210 
*/DSCR 220 
OSCR 230 
DSCR 240 
DSCR 250 
*/OSCR 260 
DSCR 270 
OSCR 280 
DSCR 290 
DSCR 300 
OSCR 310 
*/DSCR 320 
*/DSCR 330 
DSCR 340 
DSCR 350 
DSCR 360 
DSCR 370 
OSCR 380 
DSCR 390 
DSCR 400 
OSCR 410 
DSCR 420 
DSCR 430 
DSCR 440 
DSCR 450 
DSCR 460 
DSCR 470 
DSCR 480 
*/DSCR 490 
*/0SCR 500 
*/DSCR 510 
OSCR 520 
DSCR 530 
DSCR 540 
DSCR 550 
DSCR 560 
DSCR 570 
DSCR 580 
NSCR 596 
DSCR 600 
DSCF 610 
DSCR 62¢ 
*/DSCR 630 
*/DSCR 640 
*/DSCR 650 
OSCR 660 
‘DSCR 670 
DSCR 680 
DSCR 690 
DSCR 700 
DSCR 710 
DSCR 720 
DSCR 730 
DSCR 740 
DSCR 75C 
OSCR 760 
OSCR 770 
OSCR 780 
DSCR 790 
OSCR 800 
*/DSCR 810 
*/DSCR 820 
*/DSCR 830 
*/DSCR 840 
OSCR 850 
DSCR 860 
OSCR 870 
OSCR 880 
DSCR 890 
OSCR 900 
DSCR 910 
DSCR 926 
OSCR 930 
DSCR 946 
DSCR 950 
DSCR 960 
*/DSCR 970 
*/OSCR 980 
*/DSCR 990 
DSCR1000 
DSCRLO1C 
DSCR1020 
OSCR1930 
DSCR1040 
DSCR1050 
DSCR1060 
DSCR1070. 
DSCR1080 
*/DSCR1090 
*/DSCRLLOC 
*/DSCRLL10 


*/O0SCR1120 


OSCR1130 
DSCR1140 
DSCR1150 
DSCR1160 
DSCR1170 
OSCR1180 
OSCR1190 
DSCR1200 
0S£P1210 
OSCR1220 
DSCR1230 
*/DSCP 1249 





Purpose: 


DSCR performs a discriminant analysis by calculat- 
ing a set of linear functions that serve as indices 
for classifying an individual into one of K groups, 


Usage: 


CALL DSCR (K, M, N, X, XBAR, D, CMEAN, V, 
C, P, LG); 


K - BINARY FIXED 
Given number of groups. K must 
be greater than 1. 
M - BINARY FIXED 
| Given number of variables. 
N(K) - 


BINARY FIXED 
Given vector containing sample 
sizes of groups. 
N= (ny, Do, eee Ni) 

X(NN, M) - BINARY FLOAT 
Given matrix containing data in 
the manner equivalent to a three- 
dimensional array (XiyK3. The 
first subscript is case number; 
the second, variable number; the 
third, group number, NN= nj + 
ho +... + Ne 

XBAR(M,K) - BINARY FLOAT [(53) ] 
Given matrix containing means of 
M variables in K groups. 

D(M, M) - BINARY FLOAT [(53)] 
Given matrix containing the in- 

_ verse of pooled dispersion matrix, 
CMEAN(M - BINARY FLOAT [(53)] 


Resultant vector containing com- 
mon means, 
V- BINARY FLOAT [(53)] 
Resultant variable containing 
generalized Mahalanobis D-square. 
BINARY FLOAT [(58)] 
Resultant matrix containing the 
coefficients of discriminant func- 
tions. The first position of each 
column (function) contains the 
value of the constant for that 
function, 
BINARY FLOAT [(53)] 
Resultant vector containing the 
probability associated with the 
largest discriminant functions of 
all cases in all groups. Calcu- 
lated results are stored in the 
manner equivalent to a two-dimen- 
sional array (the first subscript | 


C(M+1,K) - 


P(NN) - 


is case number, and the second 
subscript is group number), 
NN=n, tot. . FN 


LG(NN) - BINARY FIXED 
Resultant vector containing the 
subscripts of the largest dis- 
criminant functions stored in 
vector P. 

Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERRORFF1 - number of variables less than or equal 
to one, | 
ERROR=2 - invalid number of groups (K = 1 or 
K > M). 
ERROR=8 - no observations in one or more groups. 


The number of variables must be ereater than or 


equal to the number of groups. 


Method: 


Refer to BMD Computer Programs Manual, edited 
by W.J. Dixon, UCLA, 1964, and T.W. Anderson, 
Introduction to Multivariate Statistical Analysis, 
John Wiley and Sons, 1958. 


Mathematical Background: 


This subroutine performs a discriminant analysis 
by calculating a set of linear functions that serve as 
indices for classifying an individual into one of K 
eroups, | 

For all groups combined, the following are ob- 
tained. 

Common means: 


K 
Dy Xa | 
x eo! (1) 


j K 
a 
KI 


where: 
K = number of groups 
j = 1, 2, .«-, M are variables 
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"k 


sample size in the k-th group 


mean of j-th variable in k-th group 


Generalized Mahalanobts D* statistics, V: 


m m | 
“2d, dy 4 
i=1 j=l k=1 
Mia Me Si 7 AD Fe 7 4) , 
where: 
d.. = the inverse element of the pooled dis- 


4 persion matrix D 


V can be used as chi-square (under assumption of 
normality) with m (K-1) degrees of freedom to test 
the hypothesis that the mean values are the same in 
all the K groups for these m variables, For each 
discriminant function kx = 1, 2, ..., K, the fol- 
lowing statistics are calculated, 


Coefficients: | | 
ae a 4 “ak 24 (3) 
j=l 
where 
1 a Le 2, ees m 
k = kx 
Constant: 
m m | 
= -1/2 ) ) d., Fie Fie (4) 
j=l E11 — 


For each i-th case in each k-th group, the following 
calculations are performed, 


Discriminant functions: 


mM 
., *2 “ie Xye * Som 8s 
= 
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where: 


Kx = 1, 2. eee © 


_ Probability associated with largest discriminant 


function: 
I 
P_=- 
L s 
K 5 fi) (6) 
k*¥ = 1° 
where: 


f,_ = the value of the rateest discriminant 
function 


G 
I 


the subscript of the largest discrimin- 
ant function 


Principal Components Analysis 


e Subroutine TRAC 


TRACee TRAC 
FR OK Roe MR HH HR RE RE he ee RC I RO RC KKH KK HE RK REKERKEKEKRHKARKKEERKE/ TRAC 
/* F */TRAC 
/* TO COMPUTE CUMULATIVE PERCENTAGE OF EIGENVALUES GREATER */TRAC 
/* THAN OR EQUAL TO A CONSTANT SPECIFIED BY THE USER. */TRAC 
7* */TRAC 
TRA MRR RR BB RR RR A IC RA a A a a a I eK a RHE KKK E/ TRAC 
PROCEDURE (M,R,CON,KyD)e~ TRAC 
DECLARE TRAC 
ERROR EXTERNAL CHARACTER (1), TRAC 

(LT eJd9KeM) TRAC 

FIXED BINARY, TRAC 
(R(*,*),D00*) ,CON) TRAC 


BINARY FLOAT,. 7*SINGLE PRECISION VERSION /*S*/TRAC 


7% BINARY FLCAT (53) 9-6 /*DOUBLE PRECISION VERSION /*D*/TRAC 
* */TRAC 
ERROR="0' 96 TRAC 

IF M LE O /* ORDER OF MATRIX IS ZERO. */TRAC 
THEN DO, TRAC 
ERROR="1" 9. TRAC 

GO TO S20,%. TRAC 

END,. TRAC 

0G I = 1 TO My. TRAC 

END». TRAC 

K =Cye TRAC 

/* */TRAC 
/* TEST WHETHER I-TH EIGENVALUE IS GREATER THAN OR EQUAL TO e/TRAC 
/% THE CONSTANT. */TRAC 
4% */TRAC 
DO I = 1 TO My. TRAC 

IF O(1) LT CON TRAC 

THEN GO TO S1Ce. TRAC 

K =Ktloe TRAC 

D(I) =O(1)/M,. TRAC 

END». TRAC 

$10... TRAC 
IF K LE l TRAC 
THEN O00,. ; TRAC 
ERROR="2' 4. /* NOT ENOUGH EIGENVALUES */TRAC 

GO TO S2Cy. /* ARE RETAINED */TRAC 

END ye TRAC 

DO I = 2 TO Ko. TRAC 

D(I) =D(1)I+D(I-1),. TRAC 

END». TRAC 

RETURN, . TRAC 
ENDy. /*END OF PROCEDURE TRAC R/TRAC 

Purpose: 


TRAC computes cumulative percentage of eigen- 


values greater than or equal to a constant specified - 


by the user. 
Usage: 
CALL TRAC (M, R, CON, K, D); 


Description of parameters: 

M - BINARY FIXED 

Given number of variables. 

BINARY FLOAT [(58) ] 

Given matrix containing eigenvalues in 
diagonal, Eigenvalues are assumed to 
be arranged in descending order. 
BINARY FLOAT [(53)] 

Given constant used to decide how many 
eigenvalues to retain. Cumulative per- 
centage of eigenvalues greater than or 
equal to this value is calculated. 
BINARY FIXED 


R(M, M) - 


CON - 


Resultant variable containing the number 


of eigenvalues greater than or equal to 
CON, (K is the number of factors. ) 
BINARY FLOAT [(53)] _ 

Resultant vector containing cumulative 


D(M) - 


percentage of eigenvalues greater than or 


equal to CON, 


Remark: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following constitute the possible error conditions 
that may be detected: | 


ERROR=1 - order of matrix equal to zero. 


_ERROR=2 - number of eigenvalues retained less 


than or equal to one, 


Method: 


Each eigenvalue greater than or equal to CON is 


divided by M, and the result is added to the pre- 
vious total to obtain the cumulative percentage for 
each eigenvalue, 


Mathematical Background: 


This procedure finds K, the number of eigenvalues 
greater than or equal to the value of a special con- 
stant. The given eigenvalues Ay AQ, owes AM 
must be arranged in descending order, 

Cumulative percentages for those K eigenvalues 
are: 


r 


j 
d. = soul. 
J z: M 
=] 


where: 


(1) 


j =1,2,...,K 


number of eigenvalues (or variables) 


= 
Hl 


A 
WA 


M 
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| e Subroutine LOAD 


LOAD. - LOAD 
Pret erer tren eer eet etre cereteretiereteeteretes cca eteertseresereced{f7\) 
*/LOAD 
TO COMPUTE. A FACTOR MATRIX (LOADING) FROM EIGENVALUES AND */LOAD 
ASSOCIATED EIGENVECTORS. */LOAD 

7* */LOAD 
TCR RE RAE MRE ER A RR RR RE RR ROR a RR RR a a Rk RO RE RR eR RK EEE, LOAD 
PROCEDURE (MsKyReV) 96 LOAD 
DECLARE LOAD 
(lyJd9K) LOAD 

FIXED BINARY, LOAD 

ERROR EXTERNAL CHARACTER(L), LOAD 

(RO*,*) aVO%,*) SQ) LOAD 

BINARY FLOAT;. /*SINGLE PRECISION VERSION /*S*/LOAD 

BINA°Y FLOAT (53)¢- /*DOUBLE PRECISION VERSION /*D*/LOAD 

; */LOAD 

ERROR='C",. LOAD 

IF K LE 1 QF K GT M /* INVALIO VALUE OF K */LOAD 
THEN DOQ,. LOAD 
ERROR=!2',, LOAD 

GO TO FIN,. LOAD 

END». LOAD 

LE © /7* ORDER OF MATRIX IS ZERO */LOAD 
EFROR="]',, LOAO 

DOy. . LOAD 

DD J = 1 TO Ky. LOAD 

SQ =SQRT(R(S_d))9- LOAO 

DO I = 1 TOM, LOAD 

VII J) = SO#V(T J) 9 LOAD 

END oe LOAD 

END,. LOAD 

: END,. LOAD 
FIN. LOAD 
“RETURN; LOAD 
END». /7*END OF PROCEDURE LOAD */LOAD 


Purpose: 


LOAD computes a factor matrix (loading) from 
_ eigenvalues and associated eigenvectors. 


Usage: 
CALL LOAD (M, K, R, V); 


_ Description of parameters: 


M = BINARY FIXED 
Given number of variables. 
K - BINARY FIXED 


Given number of factors, 


R(M,M)- BINARY FLOAT [(53)1 





Method: 


Normalized eigenvectors are converted to the factor 
pattern by multiplying the elements of each vector 
by the square root of the corresponding eigenvalue. 


Mathematical Background: 
This procedure calculates the coefficients of each 


factor by multiplying the elements of each normal- 
ized eigenvector by the square root of the corre- 


sponding eigenvalue. 


24 Vy VD 


1, 2, ..., Mare indices of variables 


fede 
I 


j 1, 2, ..., K are indices of eigenvalues 
retained (see the subroutine TRAC) 


KsM 


Given matrix containing eigenvalues in 
the diagonal. Eigenvalues are assumed 
to be arranged in descending order, 

The first K eigenvalues are used by this 
procedure. 

BINARY FLOAT [(53)] 

Given matrix V contains eigenvectors 
columnwise. | a 3 | 
‘Resultant matrix V contains a factor 
matrix (M by K). 


V(M, M) -— 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - the order of the matrix is zero. 
ERROR=2 - invalid number of factors es s lor 


aoeean)s 
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e Subroutine VRMX ae END». " VRMX1220 


IF B GE 0 VRMX1230 
THEN GO TO S$70%. VRHX1240 
SINP =CONS». VRMX1L250 
COSP =CONS». VRMX1260. 

GO TO $60,. VRMX1270 
VRMX1L280 

CTN4T=ABS(T/B) 96 /* NUM IS GREATER THAN DEN */VRMX1290 

IF CTN4T GE EPS VRMXL300 
THEN DOy. VRMX1L310 
SIN4T=1/SQRTCL#CTNGT*CINGT) 9. VRMX1320 
COS4T=CTN4T#SINGT»« VRMXL330 

GO TO S409. VRMX1340 

ENDy. VRMX1350 
COS4T=04. VRMXL360 
SINST=19. VRMX1370 
*/VRMX1380 

DETERMINE COS THEAT AND SIN THETA */VRMX1390 
*/VRMX1400 

VRMX1410 

COS2T=SQRT(( 1+COS4T) /2) 9~ VRMXL420 
SIN2T=SINGT/(2*COS2T) VRMX1L430 
COST =SQRT((1+COS2T)/2)9- VRMX1L440 
SINT =SIN2ZT/(2*COST) 9~ VRMX1450 
*/VRUX 1460 

DETERMINE COS PHI AND SIN PHI */VRMX1470 
*/VRMX1 480 

IF 8 GT 0 VRMX1490 

THEN DOy. VRMX1500 
COSP =COST». VRMX1L510 

SINP =SINTy. VRMX1520 

GO TO S509. VRMX1530 

END». VRMX154C 
=CONS*(COST+SINT) 9 VRMXL550 
=ABS(CONS*(COST-SINT) De VRMX1560 

VRMX1570 

LE 0 VRMX1L580 

SENP =-SINPy. VRMX1590 

VRMX1600 

DO I = 1 TO My. /* PERFORM ROTATION */VRMX1610 

AA = =AC Lyd) ®COSPHACT KL) #SENP» VRMX1620 

ACT yKL)=-ACT, J) #SINP+A(T 1K1) #COSPy VRMX1630 

AUT yJI=AAy. VRMX1640 

END». VRMX1650 

VRMX1660 

END». VRMX1670 
END». VRMX1680 
TO S10y. ¥RMX1690 
" #/VRMX1700 

DENORMALIZE VARIMAX LOADINGS */VRMXLTLO 
» 4 */VRMX1720 

VRMX1730 

DO [ = 1 TO My. : VRMX1L740 
DO J = 1 TO Ke. VRMX1750 

AUT, J)=AC1 45) 8HUTD 9. VRMX1760 
END». VRMX1770 
ENDy. VRMX1780 
=NV-1y. /* CHECK ON COMMUNALITIES */VRMX1790 
=H#Hy. VRMX1800 
00 1 = 1 TO My. 3 VRMX1810 
FCI) =Cy. VRMX1820 
DO J = 110 Ky. VRMX1830 

FUL) =FCLIFACT pJD#ACT 9 J) 90 VRMX1840 
END,. . VRMX1850 


VRMXee VRMX 10 
DR ROR RR ORR ROO RR RR ROR ROR RR RR ROC ca a aR a ae eae ak ae ak ae eR a ca He Re a a Re ee eek / YR MX 20 
/* */VRMX 30 
/* TO PERECRM ORTHOGONAL ROTATICN OF A FACTOR MATRIX. */VRMX 40 
/* */VRMX 50 
J 8k tok tok to doko tk dak kok ao ok i doko ke kote tok ok age tote de ake ge a at te keke ak ak ee J RM OX 60 
PROCEDURE (MyKyAsNCyTVeHoF 9D) 9 . YRMX 70 
DECLARE VRMX 80 
(LyIhydyKyKl ohLbyMyNCy NV) VRMX 90 
FIXED BINARY, VRMX 100 
ERROR EXTERNAL CHARACTER( 1), VRMX 110 
(AC%,*®) p TVCE) SHUR) 9FU%) pOC8) p EPSpTVLT)FNyAAy BBpCCyOD9GyByUsT, VRMX 120 
COS4T, SINGT» TANG TySINPyCOSP+CTN4T yCOS2T ySIN2TyCOSTsSINT»CONS) VRMX 130 
BINARY FLOAT). /*SINGLE PRECISION VERSION /*S*/VRMX 140 
BINARY FLOAT (53) 9. /*DOUBLE PRECISION VERSION /*D*®/VRMX 150 
*/VRMX 16C 
EPS =.0C116,. . /* INITIALIZATION */VRMX 170 
TVLT =O). VRMX 180 
LL =K-ly. VRMX 190 
NV =lye VRMX 200 
NC =0y. VRMX 216 
FN -=M&M,. VRMX 22C 
CONS =.7071066,. VRMX 230 
ERROR="0',. VRMX 240 
IF MLE 1 /* NUMBER OF VARIABLES LESS */VRMX 250 
THEN DOy. /* THAN OR EQUAL TO ONE */VRMX 260 
ERROR="1',. VRMX 270 
GO TO FIN». VRMX 280 
END». VRMX 290 
IF K LE 1 ORK GTM /* INVALID VALUE CF K x/VRUX 306 
THEN DO,. VRMX 310 
ERROR=*2"',. VRMX 320 
GO TO FIN». VRMX 330 
END». VRMX 340 
*/VRMX 350 
CALCULATE ORIGINAL COMMUNALITLIES */VRMX 360 
*/VRMX 370 
1 TO My. VRMX 380 
Ove VRMX 390 
DO J = 1 TO Ky. VRMX 400 
HCI) SHCL)#ACT J) FACT oJ) pe VRMX 410 
END». VRMX 420 
END). VRMX 430 
*/VRMX 440 
CALCULATE NORMALIZED FACTCR MATRIX */VRMX 450 
, x/VRMX 460 
DO -I = 1 TO My. VRMX 470 
H(1) =SQRT(H(I)) 9- VRMX 48C 
00 J = 1 TO Kee VPMX 490 
AUT, JI=ACTy J)/HOT) 9s VRMX 506 
END». VRMX 510 
END+. VRMX 520 
GO TO S20;. YRMX 530 
*/VRMX 540 
CALCULATE VARIANCE FOR FACTOR MATRIX */VRMX 550 
*/VRMX 560 
. . VRMX 570 
=NVtly. VRMX 580 
=TVINV-1) 96 VRMX 590 
VRMX 600 
TVUNV)=09. VRMX 610 
00 J Re VRMX 620 
AA =C VRMX 630 
BB VRMX 640 
= 1 TO My. VRMX 650 
=A(IyJ)*ACL J) 95 VRMX 660 
AK =AA+CCy. VRMX 670 
BB =BB+CC¥#CC,. | VRMX 680 
END». VRMX 690 
TVUNVI=TVO(NV) +(M#BB-AA*AA) /FNy « VRMX 700 
END;. VRMX 710 Purpose: 
IF NV GE 51 VRMX 720 : ; 
THEN DO,. /* NUMBER OF ITERATIONS = 50  */VRMX 730 . . 
coeeecatt VRMX 740 
O TO S&,. | 
ee ata Gountees VRMX performs an orthogonal rotation of a factor 
IF TV{NV)-TVLT LE 1.CE-7 7* PERFORM CONVERGENCE TEST *x/VRMX 770 fs His 
THEN 00,. VRMX 780 matrix, 
NC =NC#1,. VRMX 790 
IF NC GT 3 VRMX 800 
THEN GO TQ S80Q,. VRMX 810 
END,. VRMX 826 e 
*/VRMX 83C Usage: 
ROTATION OF TWO FACTORS BEGINS */VRMX 840 
6 . */VRMX 850 : 
DO J = 170 LLy. VRMX 86C 
Teens vex s7ol CALL VRMX (M, K, A, NC, TV, H, F, D); 
00 Kl = II TO K;. VRMX 886 
AA =0%. 7* CALCULATE NUM AND */VRMX 890 . 
BB VRMX 900 . 
ce x 
= 1 TO Me. VRMX 930 . 
=(AUT gS) FACT 2 KL) ECACL SIRALI 9 KL) ) 9 VRMX 940 Given number of variables. 
SAUL J) *ACT KL) %29 6 VRMX 950 


=CC+#(UtT)#(U-T) 96 : VRMX 960 K = BINARY FIXED 


=DD+2*U*T,. VRMX 970 


SB sOBeTs. 7 vane Given number of factors. 
SnD KANeenaes aaicie A(M, Kk) - BINARY FLOAT [(58)] 
=CC—(AA*AA-BB*BB)/M,. VRMX1020 e e 

= 8 VRMX1030 Given factor matrix, 


DO;>. VRMX1040 


IF T+B UT : ; ° 
THEN GO-TO S70». YANK IO8 Resultant rotated Mx K factor matrix, 


#/VRMX1070 NC - | BINARY FIXED | | . 


NUM + DEN IS GPEATER THAN OR EQUAL TO THE TOLERANCE FACTOR */VRMX1080 


COS4T=CONS,. mt NRXL LOO Resultant variable containing the num 
SIN4T=CONS,. VRMX1L110 e ° 
ENDye | VRHX1120 ber of iteration cycles performed, 


Ie ToT’ vawxtizo} = TV(51)- BINARY FLOAT [(58)] 


Tee oaaet ri ances ei vanciaee , 
if TANAT GE EPS pean ee sib iet dor Resultant vector containing the var- 
THEN DO-.e : e ae 
coe, FASO ECURTANCTATANT TC. GaMeiico iance of the factor matrix for each 
SIN4T=TAN4ST*COS4T,. VRMX1200 


GO TO S404. VRMX1210 iteration cycle. The variance prior to 


00 I = 
H(T) = 


D(I) SsH(I)-FCI) 9. i VRMX1860 

ENO». VRMX1L870 

FIN.. VRMX1880 
RETURN¢». VRMX1890 
END,. 7*END OF PROCEDURE VRMX */VRMX1900 
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the first iteration cycle is also calcu- 
lated. This means that NCt1 varian- 
ces are stored in vector TV, Maximum 
number of iteration cycles allowed in 
this procedure is 50, 

BINARY FLOAT [(58) ] 

Resultant vector containing the origi- | 
nal communalities, 

BINARY FLOAT [(53)]) 

Resultant vector containing the final 
communalities. | 

BINARY FLOAT [(58)] 

Resultant vector containing the differ- 
ence between the exeae and final 
communalities, 


H(M) - 
F(M) - 


D(M) - 


Remarks: 


If the variance computed after each iteration cycle 
does not increase for four successive times, the 
procedure stops rotation, 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero, 
The following constitute the possible error condi- 
tions that may be detected: 


ERROFF1 - number of variables less than or equal 
to one, 


ERROR=2 ~ invalid number of factors(KslorK >M), 


ERROR=3 - 50 iterations executed without conver- 
ee gence, | 


Method: 


Kaiser's varimax rotation as described in "Compu- 
ter Program for Varimax Rotation in Factor Analy- 
sis" by the same author, Educational and Psycholo- 
gical Measurement, vol, XIX, no. 3, 1959, 


Mathematical Background: 


This subroutine performs orthogonal rotations on 
an m by k factor matrix such that 


EEA)’ - [EEA] 


is a maximum, where i=1, 2, ..., mare var- 
lables, j=1, 2, ...,; k are factors, 24; is the 
loading for the i-th variable on the j-th factor, and 
he is the communality of the i-th variable defined 
below. — 


Communalities: 
5 2 
Des | 
= a, 
j=l 
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where i=1, 2, ..2, mM 


Normalized factor matrix: 
b.. = hal In? | | | (3) 
“y ij i hs | 


where: 
j= Bo. ee 6 »> m 
I 1,2,. eo ,K 


Variance for factor matrix: 





2 2 
a 2 = nee} 
Nat de 5) ae) hs 
j . ‘ 
(4) 
where c= 1,2,... (iteration cycle) 
Convergence test: 
if Vo -v.. <10~ | | (5) 
Cc c-1 


four successive times, the program stops rotation 
and performs equation (28), Otherwise, the pro- 
gram repeats rotation of factors until the conver- 

gence test is satisfied. 


Rotation of two factors: 


The subroutine rotates two normalized factors 
(43) at a time -—- 1 with 2, 1 with 3, ..., 1 withk, 


2with 3, ..., 2 withk, ..., k-1withk. This 


constitutes one iteration cycle, | 
Assuming that x and y are factors to be rotated, 
where x is the lower-numbered or left-hand factor, 


the following notation for rotating these two factors 


is used: 
Pa 
cos 6 -sin oj} _ 
sind cos : | Yo o) 
= 
m 





where x; and y; are presently available normalized 
loadings, and X; and Yj, the desired normalized 
loadings, are functions of 4, the angle of rotation. 
The computational steps are 1 through 5 below: 


1, Calculation of NUM and DEN: 


7 dX (x, + y,) (x, = y;) 
B= 2 »> x.y, 
i 5 1 
2 © dL [ G+ 94) Gy - yD + 2x, yi] 
Gc +y,) @&, -y,) - 2x, y; | 
NUM = D - 2AB/m 
DEN = C.- [(A+B) (A-B)] /m 


2. Comparison of NUM and DEN: 
The following four cases may arise, 
NUM < DEN, go to (2a) below 
NUM > DEN, go to (2b) below 
(NUM+ DEN) = ¢€*, go to (2c) below 
(NUM + DEN) i €, skip to the next rotation 


* ¢ is a small tolerance factor, 


a, tan 40 = | Num|/| DEN| (8) 


If tan 49 < ¢€ and 
DEN is positive, skip to the next rotation, 


DEN is negative, set cos d= 
sin @ = (4/2 )/2 and go to step 5, 


If tan 46 = e€, calculate: 


cos 49 = 1//i+ten"49 © 


sindo = tan4@ - cos 46 
and go to step 3. 
b. ctn 46 =.| num ||| DEN| 


If ctn 46 < e€, set cos 49 = 0 and 
sin 49 = 1, Goto step 3. 


If ctn 49 = e¢, calculate: 


sin 40 = 1/\1+ otn” 46 
cos 49= ctn 490 - sin 40 


and go to step 3, 


(10) 


(11) 


(12) 


(13) 


e, Set cos 49 = sin4@= (2 )/2 and go 


to step 3, 


_ 38, Determining cos @ and sin @: 


cos 26 = /(1+ cos 46)/2 


sin 40/2 cos 20 


sin290 = 
cos Q@ = a/(1+ cos 26)/2 
sin@ = sin 26/2 66a | 


4, Determining cos $ and sin ¢: 
a. If DEN is positive, set 
cos @ = cos 6 


sind = sin 6 
and go to (4b). 


If DEN is negative, calculate 
N20 
2 


oo. 
cos } = cos @ + -5- sin 6 





sin o | Le cos 6 - e sin 9 
2 2 ! 
and go to (4b). 


b. If NUM is positive, set 


COS cos > 








sin > 


leas 


- and go to step 5, 
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(14) 


(15) 


(16) 


(17) 


(18) 


(19) 


— (20) 


(21) 


(22) 


(23) 
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If NUM is negative, set | Nonparametric Statistics 


cos 6 = |cos ¢ : (24) e Subroutine KLMO 
e e i 
sind = -|sin do} : (25) KLMO..« age te 
FR BR HMR HR KE RK HK He Re Re ae a a a i a tea to ok ke a a ok te ok ek KKK ES KMD 
/* #7 KUMO 
/* TESTS THE DIFFERENCE BETWEEN EMPIRICAL AND THEORETICAL */KLMO 
. | /* DISTRIBUTIONS USING THE KOLMOGOROV-SMIRNOV TEST. */KLMO - 
5. Rotation: 7 fe: | Lag: 
SRB RI ME BH A I I He a BE I AE i I I I RH a A Re Re ee oe a a ae ak ee ee he ee KE / KL MO 
PROCEDURE( XsNeZyPROByIFCOD,U +S) 9% KLMO 
x + 7 26 DECLARE KLMO 
= (XC#) Vy TEMP) PROB ySyUyZ7 Dy ONyELyESyFIyFS) FLOAT BINARY? KLMO 
i sa | cos b Yi sim ? : ( ) (IyJeILyNyIFCOD) FIXED BINARY, KLMO 
ERROR EXTERNAL CHARACTER (1)9- KLMO 
ERROR=!0',. KLMO 
| IF N LT 100 KLMO 
P THEN IF N=O © N < 100--SET ERROR IND. */KLMO 
Y, = x. sin od+y, cos 6 (27) THEN DOy. KLMO 
‘Er « l “ - i ERROR="4',, KLMO 
GO TO S8Cy. KLMO 
END+. KLMO 
ELSE ERROR='3',. KLMO 
. DO I=1 TO N-ly. SORT X INTO */KLMO 
where DO J=I1+l TO Nye ASCENDING: SEQUENCE */KLMO 
IF X(1) GT x(J) KLMO 
THEN DQ). KLMO 
TEMP =X{(T) 96 KLMO 
_= X(T) =X) 96 KLMO 
1 1, 2, coo, M X(J) =TEMP,. KLMO 
END 9. KLMO 
| | ee . KLMO 
P : KLMO 
After one cycle of kk - 1)/2 rotations is completed, COMPUTES MAX. DEV. DN IN */KLMO 
i 5 ABS. VAL. BETWEEN EMP. AND */KLMO 
the subroutine goes back to calculate the variance sieetesa THEO. FUNCTIONS OVER ALL X *7 RL MO 
9 “Vevge 
5 ° e = 
for the factor matrix by equation (4). =ly. | ae 
DO I=IL TO N=ly. KLMO 370 
a =Iy0 | KLMO 360 
: P IF X(J)=X(Jel) KLMD 390 
Denormalization:. THEN GO TO S20%~ KLMO 400 
: ELSE GO TO S409. KLMO 410 
: KLMO 420 
: KLMO 430 
a. = Dy. = A. 7 (28) . KUNG 450 
Y 1 1 KLMO 460 
KLMO 470 
=FSy6 KLMO 480 
h =FLOAT(J) /Noe . EMP. DIST. FUNCT. CALCULATED*/KLMO 490 
° IF IFCOD=2 KLMO 500 
Ww ere: . THEN DOs. KLMO $10 
IF S$ LE 0 KLMO 520 
THEN KLMO 530 
° ; S500. ey KLMO 540 
1 = Ts 25 ceoes M : D0,. INVALID VALUE OF S */KLMO 550 
. :% ERROR=!1'y. . KLMO 540 
GO TO S80,y. KLMO 570 
a ” END». KLMO 580 
7 = 1. 2 k DOs. EXPONENTIAL PDF */KLMO 590 
J 9 “9 eee%9 . z =(X(J)-U) /S#1 609. KLMO 600° 
IF Z LE O KLMO 610 
THEN zZ<oR=0 */KLMO 620 
KLMO 630 
hWanle SL ce D0». KLMO 640 
Check on communalities: _ | yo Sheen | pcuoreee 
: , KLMO 660 
EI =ABS(Y-FI),. KLMO 670 
: hag ES  =ABS(Y-FS),. KLMO 680 
Final communalities /* COMPUTE MAX. DEV. DN BETWEEN*/KLMO 690 
/* EMP. AND THEO. FUNCTIONS */KLMO 700 
DN =MAX(DN,ETyES) +. KLMO 710 
IF IL=N KLMO 720 
k THEN GO TO S3Gy. KLMO 730 
€LSE IF IL LT N | KLMO 740 
| THEN GO TO S10}. aa KLMO 750 
2 2 ELSE 00,. KLMO 760 
f, = a.. ~ (29) /* CALC. ASYMPTOTIC VALUES */KLMO 770 
i ij /* USING SMIR. . */KLMO 780 
z =DN*SQRT(N) 96 KLMO 790 
i=] . CALL SMIR (ZyPROB) 9. KLMO 800 
J PROB=1.0E0—PROB,.» KLMO 810 
GO TO S8C,. KLMO 820 
: END». . - -KLMO 830 
. END, « é ee KLMO 840 
Difference DOs. /* EXPONENTIAL PDF */KLMO 850 
i. ay a Dy 4 Y=1.-EXP(-Z) 5. KLMO 860 
GO TO S70.. KLMO 870 
~ END». ae oi KLMO 880 
9 ac: ENDs. : KLMO 890 
d =h 2 | 30 END,. 7 a KLMO 900 
es  -S é 5 | | ( ) ELSE IF IFCOD LT 2 : : KLMO 910 
1 1 1 : THEN IF S LE 0 KLMO 920 
THEN GO TO S50. /* INVALID VALUE OF’ S */KLMO 930 
| ELSE DOy. 7 * NORMAL POF */KLMO 940 
a , ee > ie ee . Z =(X(J)-UI/S 9s | KLM 950 
oom A TRIZ9V oD) 96 KLMO 960 
where i= 2 ie 25 ee Mm, ae CALL NDTR(ZsY,D)5 , LMO 96 


a de | es GO TU ST70y. bos KLMO 970 
rma ¢ ve END+. 50 KLMO 980 
_ ELSE IF IFCOD=4 ad | | KLMO 990 

_ a THEN IF S LE U beg eS a KLMO1000 
THEN GO TO $509. /* INVALID VAL. OF S OR U */KLMO1010 

‘ELSE IF X(J) LE U . /* UNIFORM POF. -- */KLMOLO20 

THEN GO TO S6Cy. KLM01030 

ELSE IF X(J) LE S | KLM01040 

THEN DOy. ~ KLMOLOSO 

YN  SAXQDISUIZUS“UP pe KLMO1060 

GO TO S70. . KLMO1070 

END». C = e KLMO1080 

ELSE DO,.. KLMOLO90 

Y  =1.09- KLMO1100 
GO TO ST70,. fas KLMOL1L10 
END». KLMO1120 
ELSE IF IFCODLT 4. |. . a. KLMOL130 
THEN IF S=O - | /#* INVALIO VALUE OF S) */KLMO1140 

= | a THEN GO TO $50,. . os KLMO1150. 
os Rs 4 ee ELSE DO,. /* CAUCHY PDF 5 */KLMOL160 
a =ATANC(X(J)-U)/S) #0. 3183099406596 KLMOLLTO 

GOTO S7G7.. . “ KLMOL180 

END». | re KLMO1190 
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Purpose: 


*/KLHOL200 
KLMO1L210 
KL401220 

*/KL401230 


ELSE ERROR="2",. /* USER'S PDF 


/*END OF PROCEDURE KLMO 


KLMO tests the difference between empirical and 
theoretical distributions using the Kolmogoroy-_ 
Smirnov test, 


Usage: 


CALL KLMO (X, N, Z, PROB, IFCOD, U, 8); 


eo 
N- 


T= 


PROB - 


IFCOD - 


BINARY FLOAT 

Given vector of independent observations, 
BINARY FIXED | 

Given number of observations in X, 
BINARY FLOAT 

Resultant variable containing the greatest 


value with respect to X ofn/N ( | Fy) - 


F(x)|), where F(x) is a theoretical dis- 
tribution function and Fy(x) is an 
empirical distribution function, 

BINARY FLOAT 

Resultant variable containing the prob- 
ability of the statistic being greater than 
or equal to Z if the hypothesis that X is 
from the density under consideration is © 
true, For example, PROB=0, 05 implies 
that X can be considered to be from the 
density under consideration with 5% 
probability of being incorrect, 

PROB=1, - SMIR (Z). 

BINARY FIXED 

Given code denoting the particular 
theoretical probability distribution 
function being considered. When IFCOD 
=1, F(x) is the normal PDF 

=9,. F(x) is the exponential PDF 

=3, F(x) is the Cauchy PDF 

=4, F(x) is the uniform PDF 

=5, F(x) is user-supplied, 

BINARY FLOAT 

When IFCOD is 1 or 2, U is the given 
mean of the density given above. 

When IFCOD is 3, U is the given median 
of the Cauchy density. | 

When IFCOD is 4, U is the given left 
endpoint of the uniform density. 

When IFCOD is 5, U is user-specified, . 
BINARY FLOAT | 


' When IFCOD is 1 or 2, S is the given 


standard deviation of density given above, 
and should be positive, © 


When IFCOD is 3, (U-S) specifies the 


first quartile of the Cauchy density. 

S given should be nonzero, 

If IFCOD is 4, S is the given right end- 
point of the uniform density. S should 
be greater than U. 

If IFCOD is 5, S is user-specified, 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - invalid value of S (if IFCOD = 4, 
S or U is invalid). 
ERROR=2 - requested user's PDF has not been 
| supplied, : 
ERROR=3 - number of observations less than 100, 
ERROR=4 - number of observations equal to zero, 


N should be greater than or equal to 100 (see the 
mathematical background for subroutine SMIR, for 
the asymptotic formulae), Also, probability levels 
determined by this program will not be correct. if 
the same samples used in this test are used to 
estimate parameters for the continuous distribution, 

Any user-supplied cumulative probability dis- 
tribution function should be coded beginning with 
program comments "USER'S PDF" and should 
return to 870. 


Subroutines and function subroutines required: 


SMIR 
NDTR 


Method: 


For references see: 


W. Feller, ''On the Kolmogorov-Smirnov limit 
theorems for empirical distributions", Annals of 
Math, Stat., 19, pp. 177-189. | 


N. Smirnov, 'Table for estimating the goodness of 
fit of empirical distributions", Annals ‘of Math, — 
Stat., 19, pp. 279-281. . 


R. Von Mises, Mathematical Theory of Probability 


and Statistics, Academic Press, New York, 1964, 
pp. 490-4938, . | 


B. V. Gnedenko, The Theory of Probability. 


Chelsea Publishing Co., New York, 1962, pp. 384- 
401, 
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H.W, Lilliefors, ''On the Kolmogorov-Smirnov test 
for normality with mean and variance unknown", 
J-A.S.A., 62 (1967), pp. 399-402. 


Mathematical Back ground: 


Given a sample of n independent and identically dis- 
tributed random variables Xj, Xo, ..., X, with 
continuous cumulative distribution function F(x), | 
this subroutine tests the difference in absolute value 
between the empirical distribution F,,(x) and theo- 
retical distribution F(x), using Kolmogorov- 
Smirnov's limiting distribution, | 


For this purpose: 


1, The order statistics {x(i)} are determined 
from the set {x3} by sorting {x;} into a nondecreas- 
ing sequence, 

2. The empirical eanulaiive distribution function 
Fn(x) is computed, This is the ee step-func- 
tion: - 





3. The maximum deviation D, in absolute value 
between the empirical and theoretical distribution 
is computed: © 


D = Max 


i Fs) - Fie) 
—=cO <K <oo 


Since F(x) and F(x) are nondecreasing functions, - 


the result is: | 
mk w - [| 


Dy, is a random vartenis: anid L@) is the limiting 
paniiiaties distribution function of nt D,: 


Ba Max 
1<k<n 





lim Prob { a 


D,< z} = L(z) 
n> oo ; : 


4, Finally, the values are computed for: : 


and the probability of being greater than or equal to - 


the computed value of nl/2 D,, is computed: 
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P=1 - L(z) 


Generally, theoretical distribution functions are 
to be included by the user, as specified in the pro- 
gram. However, four functions are evaluated in 
KLMO, as follows: 


x 


/ dF(t) = F(x) Q) 
is evaluated at the points of the set {Xx a! , where 
F(x) is one of the following: | 


e The normal pdf with mean u and variance s2 


2 


e The exponential pdf with mean u and variance 
S 


e The Cauchy pdf with median u, and first 
quartile s-u 

e The uniform pdf with endpoints u and s 

Any user-written pdf should evaluate equation (1) 


above, using the parameters u and s at his con- 
venience, Instructions oe in the program KLMO 


should be followed, 


Lilliefors (1967 ) dole that critical values de- 
termined by this test are not correct when one or 
more parameters are estimated from the sample. 
The user should refer to his article for notes on 
approximations that may be considered = such 
estimates are used, 7 


broeranraing = Ganideeaiiens: 


It is doubtful that the user will wish to perform this 
test using double-precision accuracy, However, if 
one wishes to communicate with KLMO in a double- 
precision program, he might declare 

XX FLOAT BINARY (53) 

xX FLOAT BINARY | 

_ Before calling KLMO, the user might do the 

following: | 


DO I =1 TO N, . 
X(T) = XX(]),.. 
-END,. 


After auiting from KLMO, the user night do the 
the following: 
DO [T= 1 TO Ne ° 
ny =X(D,. 


(Note that subroutine SMIR has the double-precision 
option.) 


e Subroutine KLM2 


KLM2e6 KLM2 
/ PSST CTOLS CCS SCCLOLLC£CL LOSS LS STEPS PELE SE PSS PETS TPT ETT PTET TT SST ST TST thst es ae 
/* */KLM2 
TESTS THE DIFFERENCE BETWEEN TWO SAMPLE DISTRIBUTION */KLA2 
FUNCTIONS USING THE KOLMOGORCV-SMIRNOV TEST. */KLM2 
*/KLM2 
TR RAR HOR MOR RRR RH ERR BR HR HO HE HOE AR ERK KE EEE KEK EKEKEREIK LAD 
PROC EDURE( Xs YeNyMeZ_yPROB) »~ KLM2 
DECLARE KLM2 
(X0%) 40%)» TEMPsXM1 -XNL-¢Z_,PROB,0) FLOAT BINARY, KLM2 
Ae SeKelbyMyN) FIXED BINARY, KLM2 
EPROR EXTERNAL CHARACTER (1)>. KLM2 
ERROR='C',. KLM2 
IF N LF 1C0 OR M LT 100 /* M OR N IS LESS THAN 100 */KLM2 
THEN IF N=0 OR M=0 /* SET ERROR INDICATOR */KLM2 
THEN DOye KLM2 
ERFOF="4!,, KLM2 
GO TO S60,. KLM2 
END, KLM2 
ELSE ERROR="3',. KLM2 
00 I=1 TO N-1ly. SORT X-INTO : */KLM2 
DO J=I+1 TO Ny. ASCENDING SEQUENCE */KLM2 
IF X(1) GT XJ) KLM2 
THEN DO,. KLM2 
TEMP =X(I),. KLM2 
X(T) =X(Jd9- KLM2 
X(J) =TEMP,. KLM2 
END,y. KLM2 
END». KLM2 
DO I=1 TO Mml,y. SORT Y INTO */KLM2 
DO J=I+1 TO My. ASCENDING SEQUENCE */KLM2 
IF Y(I) GT YC) KLM2 
THEN DO,. KLM2 
TEMP =Y¥(I}¢. KLM2 
VCD) =¥OI) 9. KLM2 
YCJ) =TEMP,s. ; KLM2 

ENO,. KLM2 : 
ENDy. KLM2 
END,. KLM2 
XNL =1/FLOATUN) >. CALC. O=ABS(FN-GM) */KLM2 
XML =1/FLOAT(M) 2. OVER THE SPECTRUM OF X & Y */KLM2 
DeleJeKel =0,. KLM2 
S10... KLM2 
IF YOJ+1) GT XCI+1) KLM2 
THEN DOQ,. KLA2 
K=le. KLM2 
S2046 ; KLM2 
I=I+1l,. KLM2 
IF N LE I KLM2 
THEN DOs. ' KLA2 
L=ly. KLM2 
GO TO S$30,. KLM2 
END,. KLM2 
IF XC1) GE XtI+1) KLM2 
THEN GO TO S20). KLM2 
ELSE KLM2 
KLM2 
IF K= 0 KLM2 
THEN KLM2 
KLM2 
00,6 KLM2 
J=Jt1le. KLM2 
If J LT M KLM2 
THEN ITF yCstl) LE vl) KLA2 
THEN GO TC S40,. KLM2 
ELSE GO TO S50,. KLM2 
ELSE O0;. KLM2 
L=1l,. KLM2 
GO TO S5C;. KLM2 
END,. KLM2 
: XLM2 


END». 
ELSE GO TO S50,. KLM2 
END». | KLM2 
ELSE IF X(I*1) = Y(J+1) KLM2 
THEN DO,. ; KLM2 
K=0y. KLM2 


GO TO S20. ; KLM2 
END,. KLM2 

ELSE GO TO S40,. -  KLM2 

/* CHOOSE THE MAXIMUM */KLM2 

/* DIFFERENCE, 0 */KLM2 

$50.6 KLM2 
D =MAX(DyABS(FLOAT( I) #XNL-FLOAT (J) *XM1))9 KLM2 
IF L=0 KLM2 
THEN GO TO S109 _ KLM2 
ELSE DO,. KLM2 
/* CALCULATE THE STATISTIC Z */KLM2 
/*® AND Z*S PROBABILITY */KLM2 | 

z =D*SQRT( (FLOAT(N) #FLOAT(M) )/ (FLOAT (NI+FLOAT(M)) D9 KLM2 

CALL SMIR (Z,PROB) 9 ; KLM2 
END». KLM2 

ee KLM2 
RETURN». KLM2 
END». /* END OF. PROCEDURE KLM2 */KLM2 


$60 





Purpose: 


KLM2 tests the difference between two sample dis- 
tribution functions using the Kolmogorov-Smirnov test. 


Usage: 
CALL KLM2 (X, Y,; N, M, Z, PROB); 
X(N) - BINARY FLOAT 


Given vector containing N independent 
observations. 


PROB - 


Remarks: 


BINARY FLOAT 

Given vector containing M independent 
observations. 

BINARY FIXED 

Given number of observations in X. 
BINARY FIXED 

Given number of observations in Y. 
BINARY FLOAT 

Resultant variable containing the greatest 
value with respect to the spectrum of X 
and Y of : 


Jae ( Fy 6)-G446]) 


where Fy is the empirical distribution 
function of the set (x) and G),;(y) is the 
‘empirical distribution function of the set 
(y). | 

BINARY FLOAT 

Resultant variable containing the prob- 
ability of the statistic being greater than 
or equal to Z if the hypothesis that X and 
Y are from the same PDF is true. For 
example, PROB=0. 05 implies that one 


can reject the null hypothesis that the 


sets X and Y are from the same density 
with 5% probability of being incorrect. 
PROB=1-SMIR (Z). 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: | 


ERROR=3 - number of observations N, or number 


of observations M, less than 100. 


ERROR=4 - number of observations N, or number 


of observations M, equal to zero. 


See the mathematical background for this sub- 
routine and for subroutine SMIR, concerning 
asymptotic formulae. 


Subroutines and function subroutines required: 


SMIR 


Method: 


For references see: 


W. Feller, "On the Kolmogorov-Smirnov limit 
theorems for empirical distributions", Annals of 
Math. Stat., 19, pp. 177-189. | 
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N. Smirnov, ''Table for estimating the goodness of | 
fit of empirical distributions'', Annals of Math. 
Stat., 19, pp. 279-281. | - 


B.V. Gnedenko, The Theory of Probability. 
Chelsea Publishing Co. New York, 1962, pp. 384- 
401. 


Mathematical Background: 


Given a sample of ni.i.d. (independent and indenti- 
cally distributed) random variables X, and a sample 
of mi.i.d. random variables Y, this subroutine 
tests the difference between the two empirical dis- 
tribution functions Fy(x) and G,,(y) using 
Kolmogorov- -Smirnov's ‘limiting este Ubon: For 
this PUERORE: 


1. The sets X and Y are sorted into the ordered 


sets {Xqy} and {Yay}, which are © nondecreasing se- 


quences. 

2. The empirical cumulative distribution func- 
tions F,,(x) for the set X, and G,,(y) for the set Y, 
are computed. For example, 


0 x <X ey 
FL) = ¢ k/n Xe) <x< “qr * 


cdl GPE Ta 


1 So ee 


(n) 


3. The maximum difference in absolute value 
between the two sample distribution functions is 
coraputed: » : | . : 


Dee = wax |F,@9 - ii 
| % : | 
| im 
The statistics/ Fan Dix: n is a random variable with 


limiting cumulative distribution function L(z), which 
is described under subroutine | SMIR in this manual. 
That is, | 


sa Prob | Le ee z = L(z) 
m,n, © +h m,n 

4, Finally, the probability (asymptotic) of the 
statistic a/ a Dm,n being not less thas its com- 
puted value, under the assumption of equality of the 
two theoretical distribution functions from ree xX 


and Y were taken, is computed: 





P= i L(z) © 
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Pr ceramane Considerations: 


It is doubtful that the user will wish to eden this 


test using double-precision accuracy. However, if 
one wishes to communicate with KLM2 in a double- 
precision program, he might Geman: 


| (XX, YY) FLOAT BINARY (53) 
— (Y, X) FLOAT BINARY 


giving X and XX, Y and YY the same dimensions. 


Before calling KLM2, he might do the following: 


pO J=1 TOM,. 
Y(J) =YY(J),. 
END,. 


DO 1 TO N,. 
X(T) =XX(I),. 


immediately after i from KLM2, he might do 
the pO Owane: 


DO I-1 TO N,. DO J=1 TOM,. 
XXX), . YY(J)=Y(),« 
END,. END,. 


e Subroutine SMIR 


SMIRo« SMIR 
LPR MM RRR BR He MR HO RO RO eR OO RR ROK RK RK EERE KKK, SM IR 
/* 3 */SMIR 
/* COMPUTES VALUES OF THE LIMITING DISTRIBUTION FUNCTION FOR THE*/SMIR 
/* KOLMOGOROV-SMIRNOV STATISTIC. */SMIR 
/* | */SMIR 

: DO EE LC Oe NT ee ee Nee en eR ee ne Oe ee eee ter ty haa 
PROCEDURE (Xe¥)y- SMIR 
DECLARE SMIR 
(X+¥9Q1,Q2,04,Q8) FLOAT BINARY, «/#SINGLE PRECISION /*S*/SMIR 

-/% (X¥9Q1Q2404208) FLOAT BINARY (53)e/*DOUBLE PRECISION /*D*/SMIR 
IF X LT 1.0 - . SMIR 

- THEN IF X LE 227° o /* X LESS THAN .27-SET Y */SMIR 

THEN Y 50.09. ae . SMIR 

/* CALCULATE L{X) — - ' ®/SMIR 

/* IN RANGE (62791) #/SMIR 

ELSE 00,. SMIR 

Ql =EXP(-1.233701E0/X*#2),. /* SINGLE PREC.  /*S*/SMIR 

=EXP(-1.233 700501361 70EO/X##2) 4. SMIR 

. /* QOUBLE PREC.  /*D*/SMIR 
=Q14Q1). SMIR 
=Q2*029. SMIR 
=04404,. SMIR 
IF Q8-1.0E-25 GE 0 ; ‘SHIR 
THEN Y = = (2. 50662BEO/X) *O1*(1 .OL0+08#(1.0E0+08*08)),.  SMIR 
/* SINGLE PREC.  /*S*/SMIR 

Y  —- = (2. 506628274631 001E0/X) #Q1*(1.0£0+Q8* SMIR 
(1.0E0+08*08)),. /* DOUBLE PREC. /*D*/SMIR 
ELSE Y  =(2.506628E0/X)*O1y. /* SINGLE PREC.  /#S*/SMIR 

se ELSE Y . =(2.506628274631001E0/X) *Q1y. : SMIR 
' 7 DOUBLE PREC.  /*D#/SMIR 


/* THEN 


_ END». SMIR 
ELSE IF X LT 3.1 . " §MIR 
: a /* CALCULATE LIX) © ee 3 */SMIR 
THEN ‘ 7 IN RANGE (1,301) */SMIR 
=EXP(-2.0E0*X*X) 9. SMIR 

=Q1*Q1],. SMIR 

=Q2*Q2,. Z SMIR 

* =04*04, SMIR 

=1.0EC—2. oEO* (Q1- Q4+08*(Q1-08))5. '  SMIR 

SMIR 


=1.096 /* X > OR = 3.1--SET Y */SMIR 
SMIR 
/* END OF PROCEDURE SMIR ° —-#/SMIR 


Purpose: 


SMIR computes values of the limiting distribution 
function for the Kolmogorov-Smirnov statistic. 


| Usage: 
CALL SMIR (X, Y); 


-X - BINARY FLOAT [(53)] 
- ; Given variable containing the argument of the 
Smirnov function. | 
Y - BINARY FLOAT L(53)] 
- Resultant variable containing the Smirnov 
function value. 


| Remarks: 


' Accuracy tests were made referring to the table 
given in the reference below. ? 

Two arguments, X=.62, and X=1.87, gave re- 
sults that differ from the Smirnov tables by 2.9 and. 
1.9 in the 5th decimal place. All other results 
showed smaller errors, and error specifications 
are given in the accuracy tables in this manual. In 
‘double-precision mode, these same arguments re- 
sulted in differences from tabled values by 3 and 2 
in the 5th decimal place. It is noted in Lindgren 
(veference below) that for high-significance levels 
(say, .01 and .05) asymptotic formulas give values 
that are too high (by 1.5% when N=80). That is, at 
high-significance levels, the hypothesis of no differ- 
- ence will be rejected too seldom using asymptotic 
‘formulas, 





Method: 
For references see: 


E. T. Whittaker and G. N. Watson, A Course of 
Modern Analysis, Cambridge University Press, 
Cambridge, England, 1952, 462-476. 


W. Feller, "On the Kolmogorov-Smirnov limit 
theorems for empiral distributions'', Annals of 
Math. Stat. 19, pp. 177-189. 


N. Smirnov, 'Table for estimating the goodness _of 
fit of empirical a Annals of Math. Stat. 
19, pp. 279- 281, a a 7 


V. W. eden: Statistical Theory, The Macmillan 
Company, New York, 1962. 


Mathematical Background: 


This subroutine computes the values of Kolmogoroy- 
Smirnov's limiting distribution for a given are 
ment Xe. : 


L(x) = - | (1) 


2 Deh 


L(x) is the limit (Kolmogorov) of the cumulative 
distribution fu ction of Vn D,, and of (Smirnov) 
Lmn/(m+ ny]? Di, n Where: 

Dy, is the maximum, over all x, of the differ- 
ence | Fn(x) - F(x) | between the sample distribu- 
tion function F(x) and the continuous theoretical 
distribution function F(x), and | 

Dy ,n is the maximum, over all x,. of the differ- 
ence between the two sample distribution functions 
Fm(x) and Gn(x), from two independent samples of 
sizes m and n. 

When x is very small, the series (1) converges 
slowly, but, using Jacobi's theta-functions 
85(u, t) and 8 4(u, t): 


exp(-2k” Xx \ x>0 


joe) 


9, (u, t) =2 >», exp Lim (k+ 1/2)"t] cos [| (2k+ 1)u | 
k=0 


k-1 
@,(u)=1-2 D1 
| k=0 


exp(ink“t) cos (2ku) 
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and using the Jacobi imaginary transformation 


6 (0,1) = (ity “a, (0, -1/t) 


it follows that: - 


L(x) = 0, (0, 2ix?/m) 


= (f20/z) »» exp [-(2k-1)” 9” /8x7] 
k=1 


which converges quickly when x is small. The com- 
putation here uses, with errors E;(x), i=1, 2: 


: 
(V2n/x) )~ exp [-(2k-1)"9"/8x" + 
k=1 | 


E, (x); 0.27 <x<1.0 


L (x) = 


10sx<3.1 


3.1Sx<om 





where: 
ee | ee 
EA (x) s 6 (10 -) when x <1 


| “ | 
E, (x) <.10 when x 21 


xs: 0527 


4A 
1-2 ». a exp (-2k 7x) + E,() 
k=1 ; 7 


e Subroutine CHSQ 
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; END, 


CHSQ.. CHSQ 10 
[OE ERREREEEER EKER EEE HE EREEEERE AE EER ERERER EERE ERR EEE SERS BEE EEE ERE TEREEEE/CHSQ | 20 
/* */CHSQ 30 
/* TO COMPUTE CHI-SQUARE FROM A CONTINGENCY TABLE. */CHSQ 40 
/* */CHSQ 50 
LRRRRERAERAA IR EEE EEK EK ERE AEE AE EE EE RBK EEA REEER EKER EERE EERE EK EEE EKERERE/CHSQ 60 
PROCEDURE (AeNoMeCSeNDFePyTP),. . CHSQ 70 
DECLARE . : CHSQ 80 
ERROR EXTERNAL CHARACTER (1), CHSQ 90 
"(A0®&,*) gC SeGSeTROIN) pTC(UM) oP ep TPE) CHSQ 100 
BINARY FLOAT, J*S INGLE PRECISION VERSION /*S*/CHSQ 110 
/* BINARY FLOAT(53) 5 7*DOUBLE PRECISION VERSION /*D*/CHSQ 120 
(1, IT COUNT ¢ Je MyN-eNDF »NAyNB,NCe ND yNAB eNCD yNACsNBDsNZ) CHSQ 130 
FIXED BINARY, : CHSQ 140 
(WNeF eWeWlsW2,W39W4) FLOAT BINARY(53),. CHSQ 150 
/* */CHSQ 160 
ERROR="0*,. CHSQ 170 
cs =Oe0ee CHSQ 180 
P 06096 | CHSQ 190 
Te =Oc0ve . ‘ CHSQ 200 
NDF =(N~1L)*(M—-1),. : /* FINO DEGREES OF FREEDOM */CHSQ 210 
‘IF N LE 1 OR MLE 1 CHSQ 220 
THEN 00,. CHSQ 230 
ERROR="2°*,. /* OEGREES OF. FREEDOM = O */CHSQ 240 
GO TO FINge CHSQ 250 
END p+ CHSQ 260 
/* */CHSQ 270 
00 I = 1 TO Noe 4* CALCULATE ROW TOTALS */CHSQ 280 
TRUI)=0-09- CHSQ 290 
00 J = 1 TO Mee CHSQ 300 
TRCOTI=HTRII FACIL oJ) ge CHSQ 310 
ENDs. . CHSQ 320 
IF TRILL) LE O CHSQ 330 
THEN DOge 7* SOME ROW TOTAL = ZERO */CHSQ 340 
ERROR=*3°,. CHSQ 350 
GO TO FIN». CHSQ 360 
END, « CHSQ 370 
END». CHSQ 380 
DO J = 1 TO Mee /* CALCULATE COLUMN TOTALS */CHSQ 390 
TCO J) =0 6096 CHSQ 400 
DO I'= 1 TO Ngee CHSQ 410 
TC(JIHTCISJIFACT J) oe CHSQ 420 
END». CHSQ 430 
IF. TC(J) LE O CHSQ 440 
THEN DO,. CHSQ 450 
- ERROR=*3',. ./* SOME COLUMN TOTAL = ZERO */CHSQ 460 
GO TO FIN»e. CHSQ 470 
ENDe o CHSQ 480 
_ENDy. CHSQ 490 
GS" =O0.0e~- /4* COMPUTE GRAND SUM */CHSQ 500 
DO £ = 1 TO Nee CHSQ 510 
GS =GS+TR{I),. CHSQ 520 
END». CHSQ 530 
/* : : */CHSQ 540 
/* COMPUTE CHI-SQUARE FOR 2 BY 2 TABLE (SPECIAL CASE) */CHSQ 550 
/* ; - : 7 '*/CHSQ 560 
‘IF N = 2 AND M = 2 CHSQ 570 
THEN DOy- | CHSQ 580 
. cS =GS* (ABS (A191) *A(292)-Al 2,1) *A(). 2)) CHSQ 590 
~GS/2.0) **2/ (TCOL) *TC(2)*TRI(1)*#TRI2)),- CHSQ 600 
IF GS GT 40.0 CHSQ 610 
THEN GO TO FIN». CHSQ 620 
ELSE DO,. CHSQ 630 
IF (TR(1)*TC(1))/GS GE 5.0 AND CHSQ 640 
(TR(2)*TC(1L))/GS GE 5.0 AND CHSQ 650 
(TR(1)*TC(2))/GS GE 5.0 AND CHSQ 660 
(TR(2)*TC(2))/GS GE 5.0 CHSQ 670 
THEN GO TO FIN,. CHSQ 680 
ELSE O00,. CHSQ 690 
NA =Al(lel)ds. ' CHSQ 706 
NB =A(ls2)y.- CHSQ 710 
NC =Al(2eliys: CHSQ 720 
ND =Al(2s2)5- CHSQ 730] 
K =lee CHSQ 740 
/* . */CHSQ 750 
/* OBTAIN THE MARGINAL TOTALS AND GRAND TOTAL: */CHSQ 760 
/* */CHSQ 770 
NAB =NA+NB,. CHSQ 780 
NCD =NC+ND,y. ‘CHSQ 790 
NAC =NA#NCy. CHSQ 800 
‘NBD =NB+NDy.- CHSQ 810 
NZ =NA+NB4+NC4+ND9e CHSQ 820 
/* */CHSQ 230 
7* COMPUTE N FACTORIAL */CHSQ 840 
4* */CHSQ 850 
WN =lye CHSQ 860 
IF NZ GT l CHSQ 870 
THEN DO,. CHSQ 880 
00 I = 2 TO NZy CHSQ 890 
FI =Iy6 : ‘CHSQ 900 
WN =WN*FI,. CHSQ 910 
END ye CHSQ 920 
ENDye CHSQ 930 
/* */CHSQ 940 
/* COMPUTE EXACT PROBABILITY */CHSQ 950 
/* */CHSQ 960 
$106. . CHSQ 970 
W1 =lye CHSQ 980 
IF NB GT O CHSQ 990 
THEN DO». CHSQ1000 
| J NAF ye CHSQ1010 
DO I = J TO NABs. CHSQ1020 
FI =I. CHSQ1030 
wi =W1L*FI ge CHSQ1040 
END». CHSQ1050 
END». CHSQ1060 
W2  =1.096 CHSQLO70 
Kin IF NC GT O CHSQ1080 
o THEN DOs. CHSQ1090 
J =ND4#1l_- CHSQ1100 
DO I = J TO NCD,. CHSQ1L110 
FI =Ive CHSQ1120 
wW2 =W2*FIy. CHSQ1130 
END:. CHSQ1140 
ENDs. CHSQ1150 
W3 (=1.0,%. CHSQ1160 
‘IF NA GT O CHSQ1170 
THEN DO,s. CHSQ1180 
J =NC+1l,. CHSQ1190 
DO I = J TO NACe. CHSQ1200 
FI =Iee CHSQ1210 
W3. =W3*FI,. CHSQ1220 
CHSQ1230 


TEST WHETHER FREQUENCY IS ZERO (0) 


ADJUST DATA IN ORDER TO COMPUTE THE PROBABILITY ASSOCIATED 


CHSQ1240 
CHSQ1250 


ENDse 
W4 21.09. 
IF NO GT O 
THEN DO,. 

J CHSQ1280 
CHSQ1290 
CHSQ1300 
CHSQ1310 
CHSQ1320 
CHSQL330 


=NBt1l,. 

oo I = J TO NBD,. 
FI =Iy6 

W4 =W4a*Fl ve 
END, 


CHSQ1L340 
CHSQ1350 
CHSQ1360 
CHSQL370 
CHSQ1380 


END, 
wW1 BW1L4W24W34W4_. 
W SW1/WNee 
P =Pt+W-. 
IF K GT l 
THEN TP =TP+Wy. 
K =Kt+ly. CHSQ1390 
*#/CHSQ1L400 
*/CHSQL410 
*#/CHSQ1420 
CHSQ1L430 
CHSQ1440 
#/CHSQ1450 
*/CHSQ1460 


IF NA LE O OR NB LE O OR NC LE O OR ND LE O 
THEN GO TO FINee 


WITH MORE EXTREME FREQUENCIES (BUT WITH SAME MARGINAL TOTALS) */CHSQ1470 


*/CHSQ1L480 
CHSQ1490 
CHSQ1500 
CHSQ1510 
CHSQ1520 
CHSQ1530 
CHSQ1L540 
CHSQ1550 


IF NA LE NB 
THEN DOs. 
IF NC LE NO 
THEN O09. 
IF NA GT NC 
THEN GO TO S20,. 
END +. 
GO TO S25¢.- 
E ge 
IF NC GT ND 
THEN OO». 
IF NB GT NO 
THEN GO TO S259. 
END. 


MOVE 8 TO A AND C TO O 


MOVE A TO B AND DO TO C 


ENDy. 


END) 


IF ICOUNT GT 0 
THEN ERROR="1',. 


END,. 


COMPUTE CHI SQUARE FOR OTHER CONTINGENCY TABLES 


ICOUNT=0,. 
1 TO My. 
00 I = 1 TO Nye 


DO J = 
E 


IF E LE 5.0 

THEN ICOUNT=ICOUNT+1,. 
cs 
END». 


END,. 


Purpose: 


=NAtlye 
=NB-1, e 
=NC-l,. 
=ND4l, ° 
GO TO Sl0e. 


CHSQ1700 
CHSQ1710 
*/CHSQL720 
*/CHSQL730 
*/CHSQL740 
CHSQ1L750 
CHSQ1L760 
CHSQ1770 
CHSQ1780 
CHSQ1790 
CHSQ1800 
CHSQ1i810 
CHSQ1820 
*/CHSQ1830 
*/CHSQL840 


=NA-1 te 

=NBt+1 ge 

=NC+lye- 

=ND-1,. ‘ 
GO TO S10,. 
END,. 


_ /* END OF TWO BY TWO CASE 


*/CHSQ1850 
*/CHSQL860 
CHSQ1870 
CHSQ1880 
CHSQ1890 
CHSQ1900 
CHSQL910 
CHSQ1920 
CHSQ1930 
CHSQ1940 
CHSQ1950 
CHSQ1960 
*/CHSQ1L970 
-#/CHSQ1980 
CHSQ1990 
CHSQ2000 
*/CHSQ2010 


=TR(I)#*TC(J)/GS,.~ 


=CS+HlI A(T» JI-E)*( ACIS JI-ED/E,. 


/* SOME EXPECTED VALUES ARE 
/* LESS THAN 5.0 





/* END OF PROCEDURE CHSQ 


CHSQ computes chi-square from a contingency 


table. 


Usage: 


CALL CHSQ (A, 


N, M, CS, NDF, P, TP); 


A(N,M) - BINARY FLOAT [(53)] 


N - 
M - 
CS - 


NDF - 


Given matrix containing contingency 
table of integer values. 

BINARY FIXED 

Given number of rows in matrix A. 
BINARY FIXED | 

Given number of columns in matrix A. 
BINARY FLOAT [(53)] 

Resultant chi-square. 

BINARY FIXED 7 
Resultant number of degrees of freedom. 


CHSQ1560 


BINARY FLOAT [(53)] 

Resultant exact probability for a 2x2 
contingency table. If the contingency 
table is not 2x2, the value of P will be 
zero (P=0), | | 
BINARY FLOAT [(53)] 

Resultant variable containing the prob- 
ability by the Tocher-modification 
method for a 2x2 contingency table. If 
the contingency table is not 2x2, the 
value of TP will be set to zero (TP=0). 


i 


Remarks: 


P, CS, and TP above are computed only when the 
contingency table is 2x2, the total of the frequencies 
is less than or equal to 40, and the expected fre- 
quency in any cell is less than five. 

If no errors are detected in the processing of 
data, the error indicator, ERROR, is set to zero. 
The following constitute the possible error condi- 
tions that may be detected: 


ERROR=1 - some expected values less than 5.0, 


ERROR=2 - degrees of freedom equal to zero. 
ERROR=3 - some row total or column total less than 
3 or equal to zero. 


Method; 


Described in S. Siegel Nonparametric Statistics for 
the Behavioral Sciences, McGraw-Hill, New York, 


1956, chapters 6 and 8. 


Mathematical Background: 


When the observations are classified by two char- 
acteristics (two-way classification), the chi-square 
test may be used to test the hypothesis that the two 
characteristics are independent --namely, that the 
distribution of one characteristic is the same re- 
gardless of the other characteristic. Two-way- . 
classification tables of this type are frequently 
called contingency tables, and different formulas 
are used to compute chi-square for the following 
two types of contingency tables: | 


l. For 2 x 2 table: 


N( | AD-BC | - =)" 





a, xX" = (1). 


(A+B) (C+D) (A+C) (B+D) 


where A, B, C, and D stand for frequencies in a 
2x 2 table as shown below, and N=A+B+C+tD., 
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Onesared data 





226 


Male 





- Female| 


b. If N< 40 and the expected frequency in 
any cell is 5, the Fisher exact proba- 
_ pility is computed. | 
The exact probability of observing a 
| particular set of frequencies in a 2 x 2 
table, when the marginal totals are re- 
‘garded as fixed, is given. by the form- 
ula: 


_ (AFB)! (C+D)! (AFC)! (B+D)! > 
mE, At B: cr Pe | <* 
However, more extreme distribu- : 
tions of frequencies could occur with 
the same marginal totals. — 
| To find the Fisher exact probability, 
we add the probability of obtaining the 
existing distribution of frequencies to 
"the probabilities of obtaining all the — 
- more extreme distributions of frequen- 
‘cies. | 
The more extreme distributions of 
frequencies are determined by system- 
atically subtracting one from the small- 
. est frequency in the table, while Keep- 
~. ing the-marginal totals fixed. This 
iterative’ process continues until the | 
smallest cell has a zero value.’ This is 
the most extreme case.  —s_| 


=D Oe Desh 1p. Fase 
ve YF ae Py oo. e ae 


For. example: 
More serene outcomes with same 


.. Marginal totals __ 
_ table b. table c 


table a 


8161618! - 
Se 20/1438 oe, 
a. 141 2161 4121 °° 


. ~SPeretest an 
is 816161 st & We 8 
141 1! 71 5! 1! 


. 01598 
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. gtelers! =. 
p. =—————__ = 1/3008 _ = 


. 00033 
C 141 0! 8! 6! 0! 


The probability associated with the oc-. 
currence of values.as.extreme or more ex- 
treme than those observed (table a) is giv- 
en by adding the three probabilities 
. 13986 + ,01598 + , 00038 ae. 15617 
Thus, Pr =, 15617 is the Fisher exact 
probability. 

| Tocher's modification determines the 
probability of all.cases more extreme than 
the observed one, and not Spoons the on 
served one. 7 7 


(3) 


+ + 
Pr Py P. Baran e 
That is, 
= : 4 
Pp = Pp - Py (4) 


For ale example in tables a, b, and ec: 


Pp = + 01598 + 
equation (3) | 


00033 = . 01631 using 


Pry =, 15617 - 
equation (4) | 


. 13986 = . 01631 using 


| The probability (p 1) provided a | 
Tocher's modification to the Fisher ex-_ 

act test is for a one-tailed test of a | 
For a two-tailed test, the Pr Vier ere 
must be doubled. 


2. For other contingency tables: 





n om  (A,-E,)° 7 
2... = (5) 
i=l j=l ss E. | 
1) 
where: . 
A. = frequency in the cell i, j : 

Tt q, 
hed, ‘ 
1 N (6) 


i=1,2,..., n (row totals) 


(7) 


n e Subroutine KRNK 
T, = > i j=i1, 2,..., m (column totals) 
, 2 ] 

i=1 (8) KRNK ee | KRNK 10 
: i (HEE HIER AER OIC IR TO IE AOI CII I AR AOE IAA ATA T IIA LTR AA IRE ACA K RINK 20 
/* 7 */KRNK 30 
7% TO TEST CORRELATION BETWEEN TWO VARIABLES BY MEANS OF THE  */KRNK 40 
n /* KENDALL RANK CORRELATION COEFFICIENT. */KRNK 50 
. . sx S/KRNK 60 
aes ; UIE AIISIO IE CO IEICE HOGISI ARI EOE SISE IO IG ICE Raa IOC A AOIARE 6 Rei oa a BA EO 7 K RINK 710 
N = > Tt, (grand total) a (9) PROCEDURE (AyByRLyR2sNyTAUsSDyZyNR) ye KRNK 80 
es: 1 | DECLARE KRNK 90 
i=1 (ACEY BOE) pRLCHD 9 R2U41 y TAU, SD9Zy RSAVEsSAVERySyTArTBsFNIsFN) = KRNK 100 
FLOAT BINARY, KRNK 110 
(1, 1SORTs JKT yNyNR) KRNK 120 
BINARY FIXED, | KRNK 130 
: ERROR EXTERNAL CHARACTER (1)>. - KRNK 140 
The degrees of freedom: | meee 
: : ERROR="0',. /* INITLALIZATION */KRNK 160 
DO I=1 TO Ny. KRNK 170 
RIT) =07. | KRNK 180 
d. fi. = (n ~ 1) (m - 1) (10) R21) =Oy. | KRNK 190 


END;. . KRNK 200 
=0.09- KRNK 210 
=0.0,. iz : A KRNK 220 
=0.096 ; KRNK 230 

LE 1 NUMBER OF OBSERVATIONS LESS */KRNK 240 

DO.. THAN OR EQUAL TO ONE. */KRNK 250 
ERROR="1%y. . KRNK 260 

GO TO FIN,. - KRNK 270 
END». KRNK 280 

FN =Nee - KRNK 290 
FNL =N®(N-L)y. im KRNK 300 
IF NR= lL DETERMINE IF DATA IS RANKED */KRNK 310 
THEN DO,. KRNK 320 
00 I = 1 TO Nye KRNK 330 
RICLIHACI) ye * MOVE RANKED DATA TO RL R2 x/KRNK 340 
R2(1)=B(1) 9. KRNK 350 

END) ~ ie ; KRNK 360 

END). KRNK 370 

DO,. ; KRNK 380 

*/KRNK 390 

RANK DATA IN A AND 8 VECTORS AND ASSIGN TIED OBSERVATIONS */KRNK 400 

AVERAGE OF TIED RANKS. */KRNK 410 

*/KRNK 420 

CALL RANK (AeR1L EN oe KRNK 430 

CALL RANK (ByR2yN)_6 KRNK 440 

END. . KRNK 450 

S10... KRNK 460 
ISORT=0,. ; KRNK 470 

/* */KRNK 480 
1% SORT RANK VECTORS R1 AND R2 IN SEQUENCE OF VARIABLE A */KRNK 490 
/* */KRNK 500 
DO I = 2 TO Nee KRNK 510 

IF RLCY) LT RICI-1) KRNK 520 

THEN DOs. KRNK 530 
ISORT=1SORTt+1). KRNK 540 

RSAVE=RL(I) >. KRNK 550 
RICLI=RLCI-1)5- KRNK 560 
R1(I-1)=RSAVE,. : KRNK 570 

SAVER=R2(1) 96 KRNK 580 
R2(I=R2CI-1)9. . KRNK 590 

R2(I-1) =SAVER;. KRNK 600 

ENDy. ; KRNK 610 

END;,. KRNK 620 

IF ISORT NE 9 . KRNK 630 
THEN GO TN S1Cy. KRNK 640 

: */KRNK 650 

COMPUTE S ON VARIABLE 8. STARTING WITH THE FIRST RANK, ADD 1 */KRNK 660 

TO S$ FOR EACH LARGER RANK TO ITS RIGHT AND SUBTRACT 1 FOR */KRNK 670 

EACH SMALLER. RANK. REPEAT FOR ALL RANKS. *x/KRNK 680 

*/KRNK 690 

KRNK 700 

= 1 TO N-lye KRNK 710 

DO J = I+1 TO Noe KRNK 720 

IF R20J) GT R201) KRNK 730 

THEN S =S#1.096 . KRNK 740 

ELSE EF R2(J) LT R2C1) eH KRNK 750 

THEN S =S-1.09. KRNK 760 

END;. KRNK 770 

END). KRNK 780 

8 aoe */KRNK 790 

COMPUTE TIED SCORE INDEX FOP BOTH VARIABLES ; =/KRNK 800 

‘ */KRNK 810 

KT. -=25.° ” os KRNK 820 
CALL. TIE CFLaNsKTsTA)y. KRNK 830 

IF ERROR="2¢ KRNK 840 
THEN KRNK 850 
S20.6 KRNK 860 
00;. 7* ALL RANKS FOR ONE VARIABLE */KRNK 870 
EPFOP="3",. -  /* ARE EQUAL: */KRNK 880 

GO TO FIN¢. ; KRNK 890 

END;y. ‘ a KRNK 900 

CALL TIE (R2aNeKT9TB) 9. Ste Bi KRNK 910 

IF ERROF="28 . KRNK 920 
THEN GO TO S20,. Me Pattee . KRNK 930 
IF TA= 0.0 AND TB = 0.0 /* COMPUTE TAU */KRNK 940 
THEN TAU =S/(0.5¥*FN1) 9. KRNK 950 
ELSE TAU =S/( (SORT(C.5¥*FNI-TA)) *{SQRT(O. S#ENI-T8) Dy 6 KRNK 960 

: : */KRNK 970 

COMPUTE STANDARD DEVIATION AND Z VALUE IF N IS Lo OR GREATER ¥*/KRNK 980 

; */KRNK 990 

GE 10 food KRNK1OOO 

DO;. on KRNKLOLO 

SD = - = SQRTC(2.0*(FN+FN4+5))/(9.0#FN1LI)) 9. _KRNKLO20 

Zz =TAU/SD». : KRNKLO30 

ENDy. KRNK1LO4O 

ELSE ERROR="2',. 7* SAMPLE SIZE LESS THAN 10 */KRNK1LO5SO 
FIN.. ee . ; . .. KRNKLOGO 
RETURNy. | Fea ge KRNK1OTO 
ENDs. /*END OF PROCEDURE KRNK */KRNK1O8O 





Purpose: 
KRNK measures the correlation between two varia- 


bles by means of me Kendall rank correlation co- | 
efficient, 
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Usage: 
CALL KRNK (A, B, R1, R2, N, TAU, SD, Z, NR); 


BINARY FLOAT 
Given vector containing observations 
_ for the first variable. 

_ BINARY FLOAT | 
Given vector containing observations 
for the second variable. 

BINARY FLOAT 
Resultant vector containing rank of the 
data in vector A. 
BINARY FLOAT 
Resultant vector containing rank of 
the data in vector B. 
N - | BINARY FIXED | 
Given number of observations. 
BINARY FLOAT _ 
Resultant variable containing the Ken- 
| dall rank correlation coefficient. 
SD - BINARY FLOAT 
: Resultant variable containing standard 
deviation. 
ZL = BINARY FLOAT 
Resultant variable containing statistic 
to be used to measure the significance 
of TAU in terms of normal distribution. 
NR - BINARY FIXED 
| Given code containing the following: 

0 - for raw data in vectors A and B. 

1 - for the rank of data i in vectors A 
and B. 


A(N) - 
B(N) - 
R1(N) - 


Ra2(N) - 


TAU - 


Remarks: 


Tf nojerrors are detected in the processing of data, 


the error indicator, ERROR, is set to zero. The 

_ following constitute the possible error conditions 

that may be detected: 

ERROR=1 - number of observations less than or 
equal to one. 

ERROR=2 - sample size less then 10. if this-Gou= 
dition exists, R1 and R2 will contain 
invalid values; SD and Z will be set to 
ZeLO. 

- ERROR=3 - all ranks for one variable are equal. 


‘Subroutines and function subroutines Boers 
RANK . | 
TIE 


Method: 


Described in. 18. Siegel, Nonparameteric Statistics 


for the Behavioral Sciences, McGraw-Hill, New 
York, 1956, chapter 9. 
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Mathematical Background: 


The subroutine computes the Kendall rank correla- 
tion coefficient, given two vectors of n observations 
for two variables, A and B. The observations on 
each variable are ranked from 1 ton. Tied obser- 
vations are assigned the average of the tied ranks. 
Ranks are sorted in sequence of variable A. 

A correction factor for ties is obtained: 


ie = > aU for variable A 


(1) 
_y tt - 
Ty = ye ag for variable B 


where t = number of observations tied for a given 
rank. 

The Kendall rank correlation coefficient is then 
computed for the following two cases: 


(1) if T. and Ty are zero, 


. SS | (2) 


where: 


n = number of ranks 
S = total score calculated for ranks in vari- 
able B. by selecting each rank in turn, ad- 
_ ding 1 for each larger rank to its right, 
subtracting 1 for each smaller rank to its 
right. | 


(2) if T, and/or T, are not zero, 


b 


S 
t= 08) 


{2 bane [4 
gnt-)-T, aun aes ae 


The standard deviation is calculated: 


2(2n + 5) - | 
g=4f nto) (4) 
9n (n - 1) | 


The statistic used to measure the significance of T 
is: 


e Subroutine QTST 


QTST.. QTsT 
ARM RRM RH RRR RR HH RR RO EK RK RK RK KEK RAE EEEEKEE/QTST 
/* ; */QTST 
(* TO TEST WHETHER THREE OR MORE MATCHED GROUPS OF DICHOTOMOUS */OQTST 
/* OATA OIFFER SIGNIFICANTLY BY THE COCHRAN Q=TEST. */QTST 
1% : */QTST 
CEERERKEERRE KEKE RARER K RRR REA RH EAA RES EKER EAH REE REREKRARRERAK/QTST 
PROCEDURE (4yNeMeQ,NDF),.~ QTST 
DECLARE QTsST 
ERROR EXTERNAL CHARACTER (1), OTST 
(A0%s*), TRON) > TCOM) »Q,RSQ,CS0,G0,FM) QTST 

BINARY FLOAT, QTSsT 
(leJeMeyN,NOF) QTST 

BINARY FIXED,. QTSsT 

/* */QTST 
ERROR="Q*,. QTST 

IF M LT 3 OR NLE l /* NUMBER OF CASES IN EACH */QTST 
THEN DO,. /* GROUP IS LESS THAN 3 OR a/QTST 
ERROR=" 1" 4. /* THE NUMBER OF OBSERVATIONS */QTST 

GO TO FIN,g. /* IS LESS THAN OR EQUAL TO */QTST 

END). /* ONE. */QTST 

=Moe QTSsT 

e/QTST 

COMPUTE SUM OF SQUARES OF ROW ANDO COLUMN TOTALS RSQ AND CSQ,y */QTST 

ANO GRAND TOTAL OF ALL ELEMENTS. */QTST 

, */QTST 

00 I = 1 TO Nee QTST 
TR(I)=0.09. QTST 

00 J = 1 TQ My. QTST 
TRIITI=ATRITIFACI 0) oe QTSsT 

END»). : QTST 

° QTST 
= 1 TO Mee 7* CALCULATE COLUMN SUMS */QTST 
TC(JI=0.09. QTSsT 

00 I = 1 TO Ny. QTSsST 
TC(SIHTCIJIFACT J) oe QTsT 

END,. QTST 

END» » QTST 

QTST 

QTST 

QTST 

QTST 

QTST 

= 1 TO Ny. QTsT 
=GO+TR(T),. /* GRAND TOTAL */QTST 
=SRSOFTRIID*TRIT) ». /* SUM GF ROW TOTAL SQUARED */QTST 

QTST 

= 1 TO Me. QTst 

=CSQFTC( JU) *TC( JU) o. 7% SUM GF COLUMN TOTAL SQUARED */QTST 

: QTST 

Q =FM*GD-RSQ?. QTST 
IF QLT l /* TEST FOR Q NEAR ZERO R/QTST 
THEN O0O,. QTsT 
ERROR="2',, QTST 

GO TO FIN». QTST 
END». QTST 

g ; */QTST 
COMPUTE CCCHRAN Q TEST VALUE. */QTST 
*/QTST 

=(FM-1.0) *CFM*C SQ-GD*GD) /( FM*GD-RSQ) -. QTSsT 
=M~1l». /* FIND DEGREES OF FREEDOM */QTST 

QTST 


INee 
RETURN, . QTST 
END». /*END OF PROCEOURE QTST ¥*/QTST 


Purpose: 
QTST uses the Cochran Q-test to determine whether 


three or more matched groups of dichotomous data 
differ significantly. 


Usage: 


CALL QTST (A, N, M, Q, NDF); 


A(N,M) - BINARY FLOAT | 
Given matrix of dichotomous data. Da- 
ta elements must be either 0 or 1. 
N - BINARY FIXED 
Given number of sets in each group. 
M - BINARY FIXED 
Given number of groups. 
Q - . BINARY FLOAT 
| Resultant Cochran Q statistic. - 
NDF - BINARY FIXED 


Resultant number of degrees of freedom. 





Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - number of groups, M, is less than three 
and/or the number of sets, N, is less 
than or equal to one. 

ERROR=2 - all values of matrix A are equal. 

Method: 


Described in S. Siegel, Nonparameteric Statistics 


for the Behavioral Sciences, McGraw-Hill, New 


York, 1956, chapter 7. 
Mathematical Background: 


This subroutine determines the Cochran Q-test 
statistic, given a matrix A of dichotomous data | 


with n rows (sets) and m columns (groups). 


Row and column totals are calculated: 


(row totals) (1) 


where i=1, 2,...,n 


ae 
G, = Ds Ai (column totals) _ (2) 
i=l . 


where j=1, 2,...,m 


The Cochran Q statistic is computed: 





m 9 /m- 2 
(m-1)}m y; G,. - » rp 
ie j=1 
Q= , (3) 
n on 9 
m > i se > i, 
; i, 4 
yy eae | i=1 
‘The degrees of freedom are: 
d.f.=m-1 a (4) 
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6 Subroutine RANK | ee following eonstinited the possible error condition 
that eee be detected: a 


RANK. RANK 
F544 EWE REREEEAEAE EES HER YOR OREN ER NHR SOE AARERESRASNAAS ba WA0 06 ARSERERAT TANK : 
| | #/ RANK ERROR=1 - vector length one or less. 
TO ° RANK A VECTOR OF VALUES. - */RANK ‘ ‘ 
*/RANK . ‘ 
[oi eR eGR in gro tcf Statice aR REE RR REE EEE EEE EER ENEEERET RANK , “ 
PROCEDURE (AsRyN) 9. RANK ; Method: 
DECLARE . RANK ; ° 
ERROR EXTERNAL CHARACTER(1), RANK : 
(AC *®) sRO*) » EQUAL » Py SMALL» X) RANK ; 
BINARY FLOAT, RANK 7 * te seer 
(JW) a | RANK Vector is searched for successively larger elements. 
ve B 
eee ae si If ties occur, they are located and their rank value 
Bi) seis | , RANK is computed, For example, if two values are tied | 
END». RANK 
lel RANK for sixth rank, they are assigned a rank of 6.5 
DO,. oo : /* VECTOR LENGTH IS ONE OR LESS*/RANK . 
ERROR="1',, RANK (=(6+ 7) 72). 
GU TO FIN,. ; RANK ‘ 
END¢. RANK 
*/RANK 
FIND RANK OF DATA — */ RANK 
*/RANK 
00 I = 1 TO Ne. : RANK 
*/RANK 
TEST WHETHER DATA POINT IS ALREADY RANKED */RANK 
*/RANK 
IF R(T) LE O RANK 
THEN DO,. ys RANK 
SMALL=0.09. RANK 
EQUAL=0.09. . RANK 
X =A(I),. /* DATA POINT TO BE RANKED */7 RANK 
00 J = 1 TO Nye RANK 
IF ACJ) LT X RANK 
r: ~ *7 RANK 
CGUNT NUMBER OF DATA POINTS WHICH ARE SMALLER */RANK 
*/RANK 
THEN SMALL=SMALL4+1.0,. RANK 
ELSE IF A(J)= X : ; RANK 
THEN O00¢.- RANK 
*/RANK 
COUNT NUMBER OF DATA POINTS WHICH ARE EQUAL */RANK 
; */RANK 
“‘EQUAL=EQUAL#41,. eS = ' RANK 
R(J) =-1.09. RANK 
ENDs. . ee RANK 
END». , RANK 
IF EQUAL LE 1.0 /* TEST FOR TIE */RANK 
*/RANK 
STORE RANK OF OATA POINT WHERE NO TIE */PANK 
*/RANK 
THEN RCT) =SMALL4+1.0,. RANK 
*JRANK 
CALCULATE RANK OF TIED DATA POINTS ; *x/RANK 
*x/RANK 
ELSE P =SMALL+(EQUAL+1. 0)/2.0,. RANK 
OO J = 1 TO Ny. RANK 
IF R(J)= -1.0 RANK 
THEN R(J) =P_. RANK 
END. RANK 
ENO,. RANK 
END). RANK 
FIN.» RANK 
RETURN,. “RANK 
END. 7*END OF PROCEDURE RANK */RANK 





Purpose: 

RANK ranks a vector of data. 
Usage: 

CALL RANK (A, R, N);- 


A(N) - BINARY FLOAT | 

Given vector containing data to be rank- 
eds | 

R(N) - BINARY FLOAT 
Resultant vector containing the ranks of 
the data in A. Smallest value is ranked 
1; largest is ranked N. Ties are as- 

3 signed the average of the tied ranks. 

N - BINARY FIXED | | 

Given number of values. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
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e Subroutine SRNK | | | | Given vector containing the observa- 
| 7 tions for the second variable. 
SRNK« « SRNK R1(N) - BINARY FLOAT 


72820 TOI REO FOI OI RIOR ROIS SO ao oo ik 87S RON, t sstee . f th 
bes #7 SRNK containing rank o e 
/* TO TEST CORRELATION BETWEEN TWO VARIABLES BY MEANS OF */JSRNK Resultant vector n 1 & 

/* SPEARMAN RANK CORRELATION CQEFFICIENT. */SRNK 7 

4* 7 */SRNK data in vector A. 


GMM RMR HR RR HB a RR Re a a CR a a abe he a a a A AE a he he ae i eK eK RA SRNK 
PROCEDURE (AyByR1yR2yNeRSeTyNOFaNR) vs SRNK R2(N) = BINARY FLOAT 
DECLARE SRNK es 
(AC) 9B %) pRICH) R20) RS oT DX 2¥ p TSAdTSBe FENN) SRNK Resultant vector containing rank of the 
BINARY FLOAT, SRNK 


(KT yNyNDF yNR) SRN i 
BINARY FIXED,» i data in vector B. 


ERROR EXTERNAL CHARACTER (1L),- Pes N a BINARY FIXED 
NDF =Ore SRNR Given number of observations. 
rcs | SRK RS - BINARY FLOAT 
Rid) SRNK Resultant variable containing the Spear- 


ENDE | Sean ‘man rank correlation coefficients. 


IF NLE 1 /* NUMBER OF OBSERVATIONS IS */SRNK 
THEN DO. /*LESS THAN OR EQUAL TO ONE. x7ERNk Tr - BINARY FLOAT c 
ERROR="1',. SRNK 3 doc 
So eI s anne Resultant variable containing the mea- 


DETERMINE WHETHER DATA IS RANKED. Been sure to be used to test the significance 


IF NR NE 1 wT SRNK of RS. . 
*/ SRNK 
RANK DATA IN A AND B VECTORS AND ASSIGN TIED OBSERVATIONS  */SRNK NDF - BINARY FIXED 
AVERAGE OF TIED RANKS. */SRNK 2 eet 
#/ SRNK Resultant variable containing the num- 


00,. SRNK 


CALL RANK (ByR2IN} 5 SRNK ber of degrees of freedom. 


E ge 

00+ SRNK NR - BINARY FIXED 
DO I = 1 TO Nee /7* MOVE RANKED DATA */SRNK é er 5 
ie ee one Given code containing the following: 


ENO. Sane 0 - for raw data in vectors A and B. 


*/SRNK ; 
COMPUTE SUM OF SQUARES OF RANK DIFFERENCES. */SRNK 1 - for the rank of data in vectors 
*/SRNK . 
=0y- SRNK A and B. 
DO I = 1 TO Ne. SRNK | 
=D+(RLCTI-R2C1)) ## 290 SRNK 
SRNK 


KT =ly. SRNK - 
CALL TIE (RI sNyeKT+TSA) y~ /* COMPUTE TIED SCORE INDEX */SRNK Remarks: 
IF ERROR="2° /* ALL RANKS FOR ONE VARIABLE *®/SRNK 
THEN 4* ARE EQUAL *#/SRNK 
$10.6 SRNK : : 
D0,. /* ALL RANKS FOR ONE VARIABLE */SRNK If no errors are detected in the processing of data, 
ERROR="3%,. /* ARE EQUAL *7SRNK 


oes Sane the error indicator, ERROR, is set to zero. The 


Dy. 
Ip eRroketor SRNK following constitute the possible error conditions 
THEN GO TO S10,. SRNK 
#/SRNK that may be detected: 
COMPUTE SPEARMAN RANK CORRELATION COEFFICIENT */SRNK ae 
*/SRNK : ; 
IF TSA NE O AND TSB NE O SRNK . 
ae aT rg a Oe eur ERROR=1 - number of observations less than or » 
Y =X+TSA-TSBy. SRN ° ope ° 
RS =UXEY=D)/( 2008 (SORT EXAYIDD 9 SRNK equal to one. If this condition exists, 
END». SRNK : ek ‘ 
ELSE RS =1-0-6.0#D/ENN+. ao R1 and R2 will contain invalid values. 


COMPUTE T AND DEGREES OF FREEDOM IF N IS 10 OR LARGER Senne ERROR=2 ae sample size less than 10, (T and NDE 
a a Sen are not computed if this condition is 

T =RS*SORT((N-2.0)/(1.20-RS*RSI),. SRNK 

NDF =N—-29. SRNK detected. ) 

END,. SRNK 


ELSE ERROR="2'y. /* SAMPLE SIZE LESS THAN 10 #/SRNK ERROR=3 - All ranks for one variable are equal. 
NK 


RETURN. » SRNK 
END?. /*END OF PROCEDURE SRNK */SRNK 





Procedures and function procedures required: 


| RANK 

Purpose: TIE 

SRNK tests the correlation between two variables Method: 

by means of the Spearman rank correlation coeffi- 

cient. : 7 Described in S. Siegel, Nonparametric Statistics 

for the Behavioral Sciences, McGraw-Hill, New 

Usage: York, 1956, chapter 9. 

CALL SRNK (A, B, R1, R2, N, RS, T, NDF, NR); Mathematical Background: 

A(N) - BINARY FLOAT | This subroutine measures the correlation between 
Given vector containing the observa- two variables by means of the Spearman rank cor- 
tions for the first variable. relation coefficient, given two vectors of n obser- 

B(N) - BINARY FLOAT | vations for the variables. 
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‘The observations on each variable are ranked 
from 1ton. Tied observations are assigned the 


average of the tied ranks. 


The sum of squares of rank differences is cal- 


culated: 
_ , 
D= >) (458) 
i=1 °* | 
where: 
A, = first ranked vector 
B. = second ranked vector 


n = number of ranks» 


A correction factor for ties is obtained: 
| t° x | 
T = ce over variable A 


3 
: t -t : 
| Ty = ) or over variable B 


16) 


(2) 


where t = number of observations tied for a given 


rank, 


The Spearman rank correlation coefficient is 


then computed for the following two cases: 


(1) = Tv. and Ty are zero 





(2) ifT, and/or T 


b are not zero 


X+Y-D 


“s 2[X¥ 








where: 
N° -N 
X= - T 
12 a 
—. -N . 
12 =~. 
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(3) 


(4) 


(5) 


©) 


The significance of r, can be measured by the 


statistic: 





@ 


(8) 


e Subroutine TIE Remarks: 


ee ee If no errors are detected in the processing of data, 
POET ET eT CTCL CTT TET ET TOTCCTTOTTC TTT OTT TCT TT TTT TTT TTT TTT TTT tT T yA St 


*/TLE - the error indicator, ERROR, is set to zero, The 
Ee I AC OUE TO TIES. */TIE FS A e eras 
Oe te etn */TIE following constitute the possible error conditions 
TERR MMR MH GH HH KHER KKK KKEKSKKEREKERKAKKKEKEKERKE/ TIE b d t t d 
ROCEDURE (RoNeKT oT) oe TIE bd 
BADGE DURE -(G2Nae TIE that may be detected: 

(RO) oT eXe¥eCT) TIE 

BINARY FLOAT» e TIE 

Sa ea ae asa ala : ve ERROR=1 - vector length one or less. 

BINARY FIXED,. TIE . 
sie : */TIE ERROR=2 - all ranks of one variable are equal, 

R="Qt,, 
IF N LE 1 TIE 
THEN 0O0,.: /* VECTOR LENGTH IS GONE OR LESS*/TIE 

=*lt,, ‘ TIE . 

ae Fin, TIE Method: 

END,. TIE 

=0.0»9. 7*® INITIALIZATION */TIE 

=0.0,. : TIE 7 7 
ae . TIE Vector is searched for successively larger ranks, 


=Or6 TIE + + 
ar je eM WER ACERS RAK sete Ties are counted and correction factor 1 or 2 


4% 


= Noe ‘ 
IF R(T) GT Y AND REI) LTX TIE 
THEN DOy. TIE summed, 
x =RU1) 9-6 TIE 
IND =IND#l). TIE 
ENDy. TIE 
END». TIE 


IF ALL RANKS HAVE BEEN TESTED RETURN 


IF IND NE O 
THEN DCe. 
Y =Xee0 
cT =0.09- 
00 f = 1 TO Ny. 4* COUNT TIES 
IF RUDT)= X 
THEN CT =CT+1.09. 
ENO,. 
1F CT NE 0.0 


=T+(CT*CT*CT-CT)/12.096 
=THCT#(CT~-1.0)/2.09.6 


GO TO S10,. 
ENDy. 
FINee 
IF CT=N /* ALL RANKS FOR ONE VARIABLE 
THEN ERROR='2',y. /* ARE EQUAL 
RETURN? « 
END». /*END OF PROCEDURE TIE 





Purpose: 

TIE calculates correction factor due to ties, 
Usage: 

CALL TIE (R, N, KT, 7); 


R(N) - BINARY FLOAT 
Given vector of ranks containing values 
from 1 to N., 
N - BINARY FIXED 
Given number of ranked values, 
KT - BINARY FIXED 
Given code for calculation of correction 
factor 
1 - solve equation 1 
2 - solve equation 2 
T - BINARY FLOAT 
Resultant variable containing correction 
factor 
Equation 1 T=SUM(CT**3-CT)/12 
Equation 2 T=SUM(CT*(CT-1)/2) 
where CT is the number of observations 
tied for a given rank, 
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@ Subroutine TWAV 


TWAV 

77S ta et tect / THAV 
*/TWAV 

TO TEST WHETHER A NUMBER OF SAMPLES ARE FROM THE SAME */TWAV 


POPULATION BY THE FRIEDMAN TWO-WAY ANALYSIS OF VARIANCE */TWAV — 


TEST. */TWAV’ 

| */TWAV. 
LEEKESEKERAKEREKRESEECEKERE CHEE EKA ERA EKEE KE ERKKEEKKEE SEE KKKEKEKEKEREKEREKERK/TWAYV 
PROCEDURE (AeRyNeMeXRy NDF NR) >~ TWAV 
DECLARE TWAV 
ERROR EXTERNAL CHARACTER (1), ; TWAV 
CAC %s ®) RU) *) yp WAUM) pWBR UM) pXRyF Me FNM, RTSQ) TWAV 
BINARY FLOAT? TWAV 
(1,NR,N»M,NDF) — TWAV 
BINARY FIXEDe. . TWAV 

: */TWAV 

ERROR=*O',. ; - TWAV 
XR TWAV 
TWAV 

IF M LT 3 OR N LE l THE NUMBER OF CASES IS LESS */TWAV 
THEN DO, THAN 3 OR THE NUMBER OF */TWAV 
_ERROR='1"%,. GROUPS IS LESS THAN OR EQUAL*/TWAV 

GO TO FINy. TO ONE “ */THAV 
ENDy. TWAV 

FNM =N*¥(M4+1)>%. : TWAV 
IF NR NE 1 TWAV 
THEN 00,. . TWAV 
*/TWAV 

RANK DATA IN EACH GROUP AND ASSIGN TIED OBSERVATIONS */TWAV 
AVERAGE OF TIED RANK. */TWAV 
*/TWAV 

00 I = 1 TO Ne. TWAV 

00 J = 1 TO My. TWAV 

WAC JI=HACT eS) oe TWAV 

ENDe. TWAV 

RANK (WAyWByM) >- TWAV 

00 J = 1 TO My. TWAV 

RII eJIHWB( J) 2 TWAV 

ENDy. TWAV 

TWAV 

TWAV 

TWAV 

= 1 TO Ne. TWAV 

DO J = 1 TO Mee TWAV 

RUT ep JI=ACT oJ) 2- TWAV 

“END? . TWAV 

END». TWAV 

END» .- TWAV 

; */TWAV 

CALCULATE SUM OF SQUARES OF SUMS OF RANKS */TWAV 
*/TWAV 

=0-0¢".- TWAV 

00 I = 1 TO My. , TWAV 
WA(I1=0.0,7.~ TWAV 

00 J = 1 TO Ne. TWAV 
WACTD=WACTI#FR(JeT) ye TWAV . 

END TWAV 

RTSQ =RTSQ+WALI) #WALT) 9 TWAV 
END». TWAV 
*/TWAV 

CALCULATE FRIEDMAN TEST VALUE, XR AND DEGREES OF FREEDOM */TWAV 
*/THAV 

=(12.0/0FM*FNM) )*RTSQ—-3.0*FNM:e TWAV 

NDF =H=-1,. TWAV 
FIN... TWAV 
RETURNg © TWAV 
ENDs. /*END OF PROCEDURE TWAV */TWAV 





Purpose: 


TWAV tests whether a number of samples are from 
the same population, by the Friedman two-way 
analysis of variance test. 


Usage: . 
CALL TWAV (A, R, N, M, XR, NDF, NR); 
A(N,M) -. BINARY FLOAT 


Given matrix of original data, 
R(N, M) - BINARY FLOAT 


Resultant matrix of the ranks of the data, 


N - BINARY FIXED 
Given number of groups. 
M - BINARY FIXED 


Given number of cases in each group, 
XR- BINARY FLOAT | 
Resultant Friedman statistic, 
BINARY FIXED 
Resultant number of degrees of freedom. 


234  Statistics--Nonparametric Statistics 


NR - BINARY FIXED 

Given code: | 

0 for raw data in As 

1 for ranks of the data in A. 
| Remarks: 


_If no errors are detected in the processing of data, 


the error indicator, ERROR, is set to zero, . The 


- following constitutes the possible error condition 
Ac may be detected: | 


ERROR=1 ~ number of groups less than or saa to 
one, or number of cases less than three, 


Subroutines and function subroutines required: 


RANK 


_ Method: 


Described in S, Siegel, Nonparametric Statistics 
for the Behavioral Sciences, McGraw-Hill, New 
York, 1956, chapter 7, _ 


‘Mathematical Background: 


This subroutine determines the Friedman two-way 
analysis of variance statistic, given a matrix A 
with n rows (groups) and m columns (cases), Data 
in each group is ranked from 1 tom, Tied observa- 
tions are assigned the average of the tied ranks, 

The sum of ranks is calculated: 


=) A, | | (1) 
i . et oe 
Friedman's statistic is then computed: 


2 12 aa 2 Cet ae * | 
Xe ~ pm (m+) p2 i ie 
| i 


The degrees of freedom are: 


df, =m -1 8 55 ye. oF 


® Subroutine UTST 


UTSTe. UTST 
GAR H 666 SAARAEAEEEER CECE EEA AS SRERUEASES CANE 5A KORE WOK ORE RERSSOEEIUTET 
/* */UTST 
/* To TEST WHETHER TWO INDEPENDENT GROUPS ARE FROM THE SAME */UTST 
/* POPULATION BY MEANS OF A MANN-WHITNEY U-TEST. */UTST 
/* */UTST 
SRRREERBEREERE EEK EEE EEREC SEEKS RHEKKMKEKKKKKARKEKEKKKKKKKKEK SE SEKKKSEKEEKEKEE/UTST 
PROCEDURE (AeReNlyN2eUrZ),. UTST 
OECLARE UTST 
ERROR EXTERNAL CHARACTER (1), UTST 

(A0#) »RO*) Up ZeR29UP ce TS eS eFNeFN2Z,9FNX) UTST 

BINARY FLOAT, UTST 
(LesKTeNyNlLyN2) UTST 

BINARY FIXED,. uTsT 

: */UTST 
ERROR="0',. UTST 
*/UTST 
*/UTST 
*/UTST 
*/UTST 
=N1+N2_. UTST 

OO [=1 TO Ny». UTST 

R(UI) =0,. UTST 
END,. UTST 

U =0.0,. UTST 
z =O.Oee UTST 


RANK SCORES FROM BOTH GROUPS TOGETHER IN ASCENDING ORDER» 
AND ASSIGN TIED OBSERVATIONS AVERAGE OF TIED RANKS 


IF NL GT N2 UTST 
THEN DOy,y. : UTST 
ERROR="1°*,. Nl IS GREATER THAN N2 */UTST 

GO TO FIN». UTST 
END,. : ’ UTST 

IF N LE 2 UTST 
THEN OO,. COMBINED SAMPLE LESS THAN OR*/UTST 
ERROR="2' 4. EQUAL TO TWO. */UTST 

GO TO FIN,y. UTST 
END, ; UTST. 

CALL RANK. CAaRaNdee UTST 
IF Ni LE 1 OR N2 LE Ll UTST 
THEN O00,. UTST 
ERROR=*2',. UTST 

GO TO FINege UTST 
END-. ' . UTST 
=0.0;~ SUM RANKS IN LARGE GROUP */UTST 

OO I = Nitl1 TO No. UTST 

~ R2 =RZ4R(1) ee : UTST 
END,. UTST 
=N1L*®N2_- UTST 

=Ny e UTST 

=N2, UTST 
=ENX+ENZ#C(FNZ#1. 0)/2. OI-R2e6 CALCULATE U ; */UTST 

UTST 

UTST 

UTST 

TEST FOR Ni LESS THAN 10 */UTST 

THEN DOy. UTST 
KT =ly. uUTST 

CALL TIE (ReNeKTeTS)o~ COMPUTE STANDARD DEVIATION */UTST 

IF ERROR=* 2¢ UTST 

THEN DQ». ALL RANKS FOR ONE VARIABLE */UTST 
ERROR=*"4',. ARE EQUAL */UTST 

GO TO FIN,. UTST 

UTST 


UTST 
=SQRT((FNX/ CFN*(FN-1 j02 DC CUENSENSEN-ENI/12. 1-151) ».UTST 640 
=SQRT(FNX*(FN+1L.0)/12.0) 9. TST 650 
=(U-FNX*0.5)/S»y. uTsT 660 
. UTST 670 
*/UTST 680 


END». 
ELSE ERROR=*3',. 
FINe. /* SMALLER GROUP IS LESS THAN */UTST 690 


/* NUMBER OF CASES IN THE 


RETURN» /* TEN 
END, - /*END OF PROCEDURE UTST 


*/UTST 700 
*/UTST 710 





Purpose: 


UTST tests whether two independent groups are from 
the same population, by means of Mann-Whitney 
U-test. 
Usage: 
CALL UTST (A, R, Nl, N2, U, Z); 
A(N) - BINARY FLOAT 
Given vector of cases. consisting of two inde- 
pendent groups. Smaller group precedes 
larger group. N=N1+N2, 
R(N) - BINARY FLOAT Pah ad 
Resultant vector of ranks, Smallest value is 


ranked 1; largest is ranked N. Ties are 
assigned average of tied ranks. 


Ni- BINARY FIXED 
Given number of cases in smaller SrOUp: 
N2- BINARY FIXED 


Given number of cases in larger group. 


U- BINARY FLOAT 
Resultant statistic used to test homogeneity 
of the two groups, 

Z - BINARY FLOAT 
Resultant measure for determining the sig- 
nificance of U in terms of normal distribution 
(if Nl is less than 10, Z is set to zero). 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following sonstibute the exusibie error conditions 

that may be detected: | 


ERROR=1 - N1 greater than N2, 

ERROR=2 - Combined samples less than or equal to 
two. | 

ERROR=3 - number of cases inthe smaller group is 
less than 10 (in this case Z is set to zero). 

ERROR=4 - all ranks for one variable are equal. 


Subroutines and function subroutines required: 


RANK 
TIE 


Method: 


Described in 8, Siegel, Nonparametric Statistics for 
the Behavioral Sciences, meCrewenits New York, 
1956, chapter 6, 


Mathematical Background: 


This subroutine tests whether two independent 
groups are from the same population, by means of 
the Mann-Whitney U-test, given an input vector A 
with the smaller group preceding the larger group. 
The scores for both groups are ranked together in 
ascending order, Tied observations are assigned 
the average of the tied ranks. 

The sum of ranks in the larger group, R2, is 
calculated. The U statistic is then compares as 
follows: 


ny ny + 1) - 
= pee de | 
U na, ny + 5) Ry (1) 


where: 


n, = number of cases in smaller group 


ny = number of cases in larger group 


U =n_n. -U' 


1 2 
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if U'< U, set U =U! ee | (2) 


A correction factor for ties is obtained: 


‘ : 3 ; a i 
tT=))¢ = : oo (3) 


where t = number of observations tied for a given 
rank. 





The standard deviation is computed for two cases: 


(1) if T=0 





- 
(a, ny + 1) 


n, 2, a | 
12 








(5) 





where N = total number of cases (a, + No) 


The measure used to determine the significance of U 
is then calculated: 








_U-xX | 
Z= rs (6) 
where X = mean = — 


Z is set to zero if N1 is less than 10. 
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@ Subroutine WTST 





wisT.. : WTST 
GRR RM BRR HH HH BH HR HK RH ae HK HK EK HK RK KKK RKKEKEE ANT ST 
/* , — */WTST 
TO TEST DEGREE OF ASSOCIATION AMONG A NUMBER OF VARIABLES */WTST 

BY THE KENDALL COEFFICIENT OF CONCORDANCE. */WTST 

/* | : | #/WTST 
TREACHER KKHEKEAKKKKAKK AK KAEKHEKKEK/ WT ST 
PROCEDURE CAsRaNeMyWeCSsNDFeNR)¢. WTST 
DECLARE ; WTST 
ERROR EXTERNAL CHARACTER {1)- WIST 

(AC, *) RUE, *)  WACM) pHBOM) pW eCS9SMeSeoT 1 eT es FN FM) . , WTST 

BINARY FLOAT, ; . WTST 

(Ig JeKTsMyNygNDF NR) WTST 

BINARY FIXED;,. eh WTST 
/* */WTST 
ERROR='0!,. WIST 

DO I=1 TO No. WTST 

DO J=l1 TO My. WTST 

R(I,_J) =09- . . WTST 

END». —WTST 

END». wIst 

=0.0%- ; WTST 

=0.09- ; . WTST 

=0). WTST 

LT 3 OR MLT 3 WIST 

DOy. WTST 
ERROR="1"*,. /* NUMBER OF VARIABLES (N) OR . */WTST 

GO TO FINy,. /* NUMBER OF CASES (M) IS LESS */WTST 

END. /* THAN 3 */WTST 

IAT ST 

. DETERMINE WHETHER DATA IS RANKED. IF IT HAS NOT BEEN DONE e/WTST 

RANK DATA FOR ALL VARIABLES ASSIGNING TIED OBSERVATIONS */WTST 

AVERAGE CF TIED RANKS AND COMPUTE CORRECTION FOR TIED SCORES */WTST 

; */WTST 

=Oy- WTST 

=1lr. WTST 

DO I = 1 TO Noe WTST 

IF NR NE 1 WTST 

THEN 00,. WTST 

DO J = 1 TO My. WTST 

WAI JIHAUT J) 96 WTST 

ENO?. WTST 

CALL RANK (WAyWB,M)y.~ WTST 

END,. - WTST 

ELSE O0O;. WIST 

D0 J = 1 TO Ms. WTST 

WB(JI=ACL J) 96 WTST 

ENDg. - WIST 

END: WTST 

CALL TIE (WByMgKTyTI),. WTST 

IF ERROR="2?* WIST 

THEN DO,y. : WTST 
ERROR="3'",. /* ALL RANKS FOR ONE VARIABLE. */WTST 

GO TO FIN,. /* ARE EQUAL , */WTST 

END,y. wWIST 

=T+T14- WTST 

DO J = 1 TO My. WTST 

RUT, JI=WB( J), ; ‘ WTST 

END,. ; WTSsT 

END? WITSsT 

=Nq. WIST 

=Mee WTST 

=0.0%.- ; WTST 

*/WTST 

CALCULATE VECTOR SUMS AND COMPUTE MEANS OF SUMS ¥/WTST 

¥/WTST 

DO J = 1 TO My. WTST 
WALJ)=0.C yo WIST 

0O I = 1 TO Ngee WTST 
WACJI=REWACJIFERIT J) 9. WTST 

END,. WTST 

SM =SMtWA( J) 2. ‘ WITST 

END+. WTST 
=SM/FM,. WIST 

*/WTST 

COMPUTE THE SUM OF SQUARES OF DEVIATION */WTST 

*/WTST 

=01- WTST 

00 J = 1 TO My. ‘WTST 
S$ =S+( WAC JI~SM) ¥*2,. WTST 
END». arn. WTST. 
=S/CCCENeEN) CFM *EM*FM-FM)/12.0)-FN*T) 2. WTST 

- a: */WIST 

COMPUTE DEGREES OF FREEDOM AND CHI-SQUARE IF M IS OVER 7 */WTST 

“*/WTST 

GT 7 WTST 

DOs. WTST 

cs =FN*¥(FM-1.0) We. WTST 

NDF =M-1). WTST 

ELSE ERROR="2',. /* NUMBER OF CASES (M) IS LESS */WTST 
/%* 4* THAN OR EQUAL TO 7 */WTST 
FINe. | 3 WTST 
RETURN». WIST 
END,. /*END OF PROCEDURE WTST */WTST 





Purpose: 

WTST measures the degree of association among a 
number of variables by the Kendall coefficient of 
concordance, 

Usage: 

CALL WTST (A, R, N, M, W, CS, NDF, NR); 


A(N,M) - BINARY FLOAT 
Given matrix of original data. | 


R(N,M) - BINARY FLOAT 
Resultant matrix, N by M, of the ranks 
of the data. Smallest value is ranked 1; 
-jargest is ranked M. Ties are assigned 
average of tied ranks. The data is 


ranked by rows. 
N - BINARY FIXED 

Given number of variables. 
M - BINARY FIXED 


Given number of cases. 
- BINARY FLOAT 
Resultant variable containing Kendall 
coefficient of concordance. 
cS - BINARY FLOAT 
Resultant variable containing the value 
of chi-square. 
NDF - BINARY FIXED 
Resultant variable containing number of 
degrees of freedom. 
NR - BINARY FIXED 
Given code containing the following: 
0 for raw data in A, 
1 for the rank of data in A. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: | 


ERROR = 1 - number of variables, N, or number of 
cases, M, less than three. 

ERROR = 2 - number of cases, M, less than or’ 
equal to seven (CS and NDF are set to 
Zero, ) 

ERROR = 8 - all ranks for one variable are equal. 


Subroutines and function subroutines are required: 


RANK 
TIE 


Method: | 


Described in 8. Siegel, Nonparametric Statistics for 


the Behavioral Sciences, McGraw-Hill, New York, 
1956, chapter 6. | 


Mathematical Background: 


This subroutine computes the Kendall coefficient of 
concordance, given a matrix A of n rows (variables) 
and m columns (cases). The observations on all 
variables are ranked from 1tom. Tied observa- 
tions are assigned the average of the tied ranks. 


A correction factor for ties is obtained: 


3 
t_-t 
12 (1) 





Mes 


T= 
i 


1 


where t = number of observations tied for a given 
rank. 


Sums of ranks are calculated: 
n | 
Y=... Re | (2) 
Joys1 4 


where j=1, 2, ..., M. 


From these, the mean of sums of ranks is found: 


(3) 


| 2 
( ~ R) (4) 
The Kendall coefficient of concordance is then 

computed: | 


1 2, 3 
12” (m -m)-nT 


For m larger than 7, chi-square is: 
2 
x =n(m- 1) W (6) 
The degrees of freedom are: 


df.=n-1 © | | oe 
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@ Subroutine HTES | 


HTES. HTES 
ppeveverrrrrrrtrettrterrrrtrrtrtttretetcrrcrrrcrtrcttcrcceccarcter regi ss 
&/HTES 
TO CALCULATE THE KRUSKAL-WALLIS H-STATISTIC FROM THE RANKS */JHTES - 
GF OBSERVATIONS WHICH ARE OBTAINED FROM THREE OR MORE -INDE- */HTES 
PENDENT SAMPLES. */HTES 
/* *x/JHTES 
(DR RO loki tokoiok kk oki kek ico ko koto i ak tetetetok te aii to tetot katoi ik i ok tok gk ek EK REE KS, HTES 
PROCEDURE Uist NSalt ees HTES 
DECLARE .. > ew : id + HTES 
(ACH) g ROE) py Sp SUMR y T 9X Kg XNI : ‘ : j HTES - 
BINARY FLDATs  . HTES 
(MC) el eJSeKebLyNyNS) HTES 
BINARY FIXED, : “HTES 
ERROR EXTERNAL CHARACTER (1),. aa HTES 
*/HTES 
INITIALEZATION — ‘ . */JHTES 
=0.09. “ ; ; HTES 
an NS LT 3 HTES 
THEN ERROR=!'1',. : SET ERROR INDICATOR */HTES 
ELSE 00,. 2 HTES 
N =Oe- HTES 
DO I = 1 TO NS. CALCULATE TOTAL NUMBER OF */HTES 
IF MCI) LE O CASES IN ALL SAMPLES  */HTES 
THEN OO,. : - HTES 
ERROR="3',. HTES 
GO TO S10,._.. HTES 
END». HTES 
N =N#M(T)9. HTES 
ENDy. | . HTES 
=N, ry oan HTES 
*/JHTES 
DATA FROM ALL SAMPLES IN ASCENDING ORDER AND ASSIGN */HTES 
OBSERVATIONS AVERAGE OF TIED RANKS */HTES 
— ; ; 4 ae ., */HTES. 
RANK (AaRiN) te ; Ss HTES 
*/HTES 
=Oee HTES 
=09. _ HTES 
bo I ° HTES 
K ° HTES 
XK ° HTES 
SUMR Cre HTES 
= 1 TO Ky. /* SUM RANKS FOR EACH SAMPLE */HTES 
=Jtl, HTES 
are =SUMRER(J) 9 : , HTES 
END,y. : HTES 
S =S+¢SUMR*SUMR/XKy. HTES 
END; . HTES 
*/JHTES, 
He ,UNCORRECTED FOR TIES ~ oe oy _. *7HTES 
< 7 */HTES: 
H =0(12.0%S) /(XN*®XNtXN) 1-3 .D#(XNtL) 9 HTES 
; */HTES 
COMPUTE CORRECTION FACTOR FOR TIES */HTES 
*/HTES 
K =lye HTES 
CALL TIE (RyNoKeT)ye HTES 
IF T = G.0O OR ERROR="2! , ’ HTES 
THEN GO TO S1LO,. A Y HTES 
ELSE DO,. : HTES 
S =1.0-€(12.0*T) /(XN**3—-XN)),. HTES 
*/HTES 
CORRECT H FOR TIES x/JHTES 
. */HTES 
H .=H/Sye' ee. ae ’ a a ; a4 . HTES 
END, . HTES 
ENO,. - HTES © 
oe HTES 
RETUPN,. HTES 
/*END OF PROCEDURE HTES */HTES 


ERROR="O',. 


CALCULATE 





HTES calculates the Kruskal-Wallis H-statistic. 
from the ranks of observations obtained from eee 
or more independent samples. 


Usage: 
CALL HTES (A, R, M, NS, H); 


A(N) - BINARY FLOAT 
Given vector of observed data stored 
columnwise. In other words, the data 
from the first sample, second, third, etc. ° 
are stored in consecutive locations of vec- 
tor A, N=M(1)+M(2)+...+M(NS) (that is, 
the total number of cases) 

R{N) - BINARY FLOAT 
Resultant vector containing the ranks of 
data of vector A. The smallest value is 
ranked one, and the largest is ranked N. 
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Ties are assigned the average of the tied 

M ~- BINARY FIXED | | 

| Given vector of length NS containing the 

number of cases in each sample. 

NS - BINARY FIXED © | 
Given variable containing the number of 
samples. . 

H - BINARY FLOAT 
Resultant variable containing the value of 
H-statistic. 


Remarks: 


If no errors are detected i in the processing of data, 
the error indicator, ERROR, is set to zero. The 
following constitute the possible error conditions 
that may be detected: 


ERROR=1 - number of samples, NS, less than 
three. If this condition exists, R will 
contain invalid values. 

ERROR=2 - all ranks for one variable are equal. 

ERROR=3 - the number of cases in one of the 
samples is less than or equal to zero. . 
If this condition exists, R will contain 
invalid values. 


Subroutines and function subroutines required: 


TIE 
RANK 


Method: 


Refer to: 


The computational procedures are described in 


S. Siegel, Nonparametric Statistics for the Behav- | 
ioral Sciences, McGraw Hill, New York, 1956, 


chapter 8. 


Mathematical Background: 


From the data in vector A, the ranks are computed __ 


by the subroutine RANK and stored in vector R ac- 
cording to ascending values of the cases, with ties 
assigned thé average of. the tied. ranks, The ranks 7 
are summed for each sample, and the H- statistic is - 
calculated from the formula: 


NS 2 
12 _ 
= 


NQHI) » ec BONE ae Q) 


ie 


where: 0 7 “ee 


N = total number of cases 


SUMR,; = sum of ranks for the i-th. sample... 
Mj = number of cases in the i-th sample 
NS : = the number of samples 


His corrected for ties, if present, using the value 


of T obtained from procedure TIE. The correction 
formula is: | 


H 
_ uncorrected 


H. sae Eee Reg NEES 
corrected > 12T 


where: 


° t | 
T=), £> summed over all samples’ 


_t=number of tied observations in a group 


H is approximately distributed as x2 with (NS-1) de- 
grees of freedom, if the number of cases in each 
| group is not too small (not ee than ave) 


(2) 


Distribution Functions 


e Subroutine NDTR 


NDOTR « NOTR 
ihe LL puACeE ARMS WANA RARER a 


(* */NOTR 
/* COMPUTES Y=P(X)=THE PROBABILITY THAT THE RANDOM VARIABLE Uy, ¥/NODTR 
/* DISTRIBUTED NORMALLY (071) IS LESS THAN OR EQUAL TO X. FUX)9*/NDTR 
/* THE ORDINATE OF THE NORMAL DENSITY AT X_ IS ALSO COMPUTED. */NDTR 
/* */NDTR 
TERE RRM HR RH RR AR ICR RR a BC RC IK IKKE RE LND TR 
PROCEDURE (XsP,0),5. NOTR 
OECLARE is ee ee - NOTR 
(DyT,P,)X%sAX) FLOAT BINARY,~ fe Oa NDTR 

AX =ABS(X) 9- 7* CALC. PROB. P & DENSITY D */NOTR 
=LeOEO/( 1 OEN+. 231641 9EO*AX) ye NOTR 
=0.3989423EC*EXP(-X*X/2.0EC) » NDTR 
=1.0E0-D#*T*((((1.330274E0*T-1l. -821256E0) *T+1. T81478EO)*T~ NOTR 

0. aoe aeryers 3193815E0) +. NOTR 

IF X LT *X €0 */NDTR 
THEN BL reese: 7* COMPLEMENT PROB. P */NOTR 
RETURN». ee > OF NOTR 
END,. /* END OF PROCEDURE NDTR */NDTR 





Purpose: 


NDTR computes Y=P(x), the probability that the 
random available X, distributed normally (0, 1), is 
less than or equal tox, f(x), the ordinate of Be 
normal density at x, is also computed,” 


Usage: 
CALL NDTR (4, P, D); 


X - BINARY FLOAT 
Given variable containing the scalar for which 
P(x) is computed, 

P - BINARY FLOAT | 
Resultant variable containing probability. 

D - BINARY FLOAT 
Resultant variable containing density. 


Method: 


_ Refer to: 


C. Hastings, Approximations for Digital Compu- 
ters. Princeton University Press, Princeton, 
N.d., 1955. 

M. Abramowitz and I. A. Stegun, Handbook of 
Mathematical Functions. Dover Publications, Inc., 
N. Y., equation 26. 2.17. 


Mathematical Background: 
This subroutine computes y = P(x) = Prob (X =x), 


where X is a random variable distributed normally 
with mean zero and variance one. 


—_* 2 
P (x) = hlor f exp (-u /2)du 


The following approximation is used: 


5 
P(x) =1-f% + aw 3 x 20 
i=l 
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where: © 


wo = W/a+ px) 


ee. 
: So 
oe || 


exp (-x7/2) /V8F 


P= 0,2816419 


0.3193815 


ae 
 . 
ul 


99 
I 


=0,3565638 


pp. 
fi 


1.781478 
a, = ~1,821256 


a. = 1.330274 


The maximum error is 7 (1074); f(x) is also pre- 


sented in output. — 
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e Subroutine BDTR 


BOTR.. BDTR 10 
: (IRR tokio ae ik Si ok took toi ia toi tok dot ok ate tok dotok tokio or ee eR EEK, A OTR 20 
1% es */BOTR 30 
fe BOTR COMPUTES P(X) = PROBABILITY THAT THE RANDOM VARIABLE */BOTR 40 
/* OISTRIBUTED ACCORDING TO THE SETA OISTRIBUTION WITH PARA- */BOTR 50 
/* METERS A AND By, IS LESS THAN OR EQUAL TO. X. FCA, ByX)_ THE */BOTR 60 
fu ORDINATE OF THE BETA DENSITY AT Xy IS ALSO COMPUTED. */BOTR 70 
/* ; ; */B80TR 80 
PRM Re ee I i ea to a I So de Ke ee EKER EEEKKKKEER/BOTR 90 
PROCEDURE (XsAyBeP yD) qe BOTR 100 
DECLARE BOTR 110 

- (XX,OUXX, DLL Xe AAs BB 2G1 962163 964—9DD e PP» XOgFF oFNe XI eSSyCC, BOTR 120 
_RR»DLBETA) BINARY(53),5 BOTR 130 
(XeAeBsPeDeXSyDF sQUMMY) BINARY, BOTR 140 

TD BINARY FIXED, BOTR 150 

ERROR EXTERNAL CHARACTER{(1)+.~ BOTR 160 

‘IF X LT O OR X GT 1 /* TEST THE VALUE OF X */BOTR 170 
THEN DOy. BOTR 180 
ERROQ="1"',, BOTR 190 

GO TO SlG,y. BOTR 200 

ENO,» ; . BOTR 210 

IF A LT .49999 OR BLT .49999 /* TEST THE VALUES OF A AND B */BOTR 220 

OR A GT LEtS OR B GT .LEFt5 BOTR 230 
THEN UOye ae BDTR 240 
ERROR="2¢,. BOTR 250 

S10ee BOTR 260 
. DyP =-1E4+75 9. BOTR 270 

GO TO S140,. BOTR 280 

END». ; BOTR 290 

AA =Aqe ' /* COMPUTE LOG(BETA(A,B)) */BDOTR 300 

BB ==Bye | BOTR 310 
CALL LGAMCAAsG1)_9.~ . BOTR 320 
CALL LGAM(BB»G2),. 'BOTR 330 
CALL LGAM(CAA+BB,1G3)9.- BOTR 340 
OLBETA=G1+G62-G3,. BOTR 350 

IF X LE lE-8 /7* TEST FOR X NEAR 0.0 */BDTR 360 
THEN 00,. BOTR 370 

P 20%. BOTR 380 

IF ALT 1 BOTR 390 

THEN BOTR 400 

S20e6 BOTR 410 
OOy.. BOTR 420 

0. =LE+75 9. BOTR 430 

GOD TO S$130;. BOTR 440 

END». BOTR 450 

ELSE IF A = 1 BOTR 460 

THEN BOTR 470 

§3C.. BOTR 480 
DO,. BOTR 490 

DOD =-DLBETA,. BDTR 500 

IF DO GT -1.68E+2 BDTR 510 

THEN OOy. BDTR 520 
D =EXP(DD),. BOTR 530. 

GO TO S13C>. BDTR 540 

END?. BOTR 550 

ELSE GO TO S40,. BDOTR 560 

ENDy. BOTR 570 

ELSE _BOTR 580 

S4Ce, BOTR 590 
DOs. BDTR 600 

D =O ‘BOTR 610 

GO TO $130;. BDTR 620 

ENDee BOTR 630 

ENDy. BOTR 640 

IF 1-X LE LE-8 /* TEST FOR X NEAR 1.0 */BDTR 650 
THEN DOy. BDTR 660 

P =ls. BOTR 670 

IF BLT 1 BDTR 680 

THEN GO TO S$20,. BOTR 690 

‘ELSE IF B=1 BOTR 700 

THEN GO TO S309. BOTR 710 

ELSE GO TO S4C_y. BDTR 720 

END,. BOTR 730 

XX 3X ee : /* SET PROGRAM PARAMETERS */BDTR 740 
OLXX =LOGOXX),. BDTR 750 
DLIX =LOG(1-XX)>. BOTR 760 

XO SXX/O1-XX) 9. BDTR 770 

ID =Cy. ; BOTR 780 

DD =(AA-1) #OLXX#(BB-1) *DLLX-DLBETA,. /* COMPUTE ORDINATE */BOTR 790. 

IF DD GT 1.68E+2 BOTR 800 
THEN DO,. BOTR 810 

D0 =LE+75,. BOTR 820 

GO TG $56,. BOTR 830 

END». BOTR 840 

ELSE IF DD LE -1.68E+2 BOTR 850 
THEN O09. BOTR ' 860 

D EBC BDTR 870 

GO TO SSG. BOTR 880 

END». BOTR 890 

D =EXP(DD),. BOTR 900 
550.6 BDOTR 910 
IF ABS(A-1) LE LE-8 /* A OR B BOTH WITHIN LE-8 OF 1*/BDTR 920 
THEN IF ABS(B-1) LE LE-8 BOTR 930 
THEN 00%. BOTR 940 

Pp =Xoe0 BOTR 950 

GO TO S$13Cy. BOTR 960 

END,. BOTR 970 

ELSE DO,. “ BDTR 980 

PP =BB¥OL1Xe, BOTR 990 

IF PP LE 1.68E+2 BOTR1LO00 

THEN 00,. BOTRLO10 

P-  Bloee. BOTR1LO20 

GO TC $130%. BOTR1030 

END?. BOTRLO4O 

ELSE 20+. BOTRLOSC 

Pp =1-EXP(PP),. BOTR1O60 

GO TO $120. BOTR1070 

ENO,. BOTRLOBO 

END». BOTR1G90 

IF ABS(B-1) LE 1E-8 BOTRL1CO 
THEN 00¢, BOTRLL1O 

PP = =AAKDLXX 90° BOTR1120 

IF PP LE -1.68E+ BOTRL13¢C 

_ THEN DO,. BOTR1L140 

Pp =Cye BDTR1150 

.GO TO S130s. BOTR1160 

END,. BOTRLL7O 

ELSE 00+, © BDTR1180 

P =EXP(PP) 4. BOTR1190C 

GO TC $120;. -BOTR1200 

END, BDOTR1210 

END». BOTR122C 









GT 1006 /* TEST FOR A OR B GREATER */BOTRL230 
THEN O00,. /% THAN 1000 #/BOTRL240 

XS =2*AA/X0_. BOTRL250 

OF =2*BBy. BOTR1260 
CALL COTR(XS,DF»P,DUMMY),». BOTR1270 
P =1-P,. BOTRL280 
GO TO S14C,. BOTR1L296 











ENDy. BOTRL300 

IF 8 GT 1000 BDTRL310 
THEN DOy. BDTR1L320 
XS =2#BB*XO,. BOTRL330 

DF =2#AA, ROTR1340 

CALL COTRIXS DF» P DUMMY) +. BDTR1350 

GO TO $140,. BOTR1360 
END). BOTRL370 

IF X LE .5 /* SELECT PARAMETERS FOR CON- */B8DTR1380 
THEN IF AA LE 1 /* TINUEO FRACTION COMPUTATION */BOTRL390 
THEN 00). _ BDTR1400 

RR =AA+1y. BDTRL410 

GO TO Sé6Cy. BOTR1420 

END,. BOTRL430 

ELSE 00%. BDTR1440 

RR -=AAye BOTRL450 

S606. : BDTRL460 
DD -=(RR1)-(RR#BB=1) #AX¥EXP(DLXX/5) 429 BDTR147¢C 

IF DD LE O BDTR1480 

THEN GO TO S80y. BOTRL490 

ELSE GO TO S90. ee BOTR1LSOO 

END». BOTR1510 

IF BB LE 1 BOTR L520 


















THEN 0O,. BOTR1530 
RR . =BB+1,. BOTR1L540 
GO TO S70¢. : BDTR1550 





END». BOTR1L560 

RR =BB 4. B8DTR1570 
S70... BOTRLS80 
ov =(RR-1L)-CAAtRR=-L) RC L-XX) KEXP(DL1X/5) +25. BOTRL590 








IF 00 LE O BDTR1600 
THEN GO TO S90,y. BOTRL61L0 
S80.. BOTR1620 
ID =1,. : 80TR1630 
FF =DL1X,. ; BOTR1640 











OLLX =DLXX_. BOTR1650 
OLXX =FFy.- ; BOTR1L660 
xa =1/XO0,.~ BOTR1I670 
FF =AAy. BOTR1680 






AA =BBy. BOTR1690 
8B =FFy. BOTR1L70G 
G2 =Glo. BOTRLTLO 
S9C.. 80TR1720 









FF =Or. BDTR1730 
IF AA LE 1 /* TEST FOR A LESS THAN 1 */BDTR1740 
THEN O0,. BOTR1750 
CALL LGAM(AA+1,G64)_+.~ BOTR1760 
OD =AA*DLXX+BB*OL 1X+G3-G2-G4,. BDTR1770 






IF DO GT -1.68E+2 : BOTRL780 
THEN FF=FF+EXP(D0D),. BOTR1L790 
AA =AA+1)6 BOTR1800 






END. BOTRL810 
FN =AA+BB-1ly. /* COMPUTE P USING CONTINUED */BDTR1820 







RR =AA~1)5. /* FRACTION EXPANSION */BOTR1830 
Ss =(((8B- 80) *(RR#80))/((RR+2#80—1 ) ¥(RR+2*80)) ) *XOe. BDTR1840 
00 XI=79 TO L BY —ly. BOTRL850 









OO HC CX TRCENEXT IDS CCRR+2EXI +1) *(RRE2ZEXT)) D*XOe« BOTR1860 
cc =( ((BB-XI) ®(RREXT))/CCRR+2*XI-1LI*(RRE2*XT))) *XOe © BOTR1870 
ss =CC/(1+D0/(1-SS))+. BDTR1880 
END +. . BOTR1890 | 
ss H1/01-SS)e.. BOTR1900 





TF SS LE 0 BOTR19LO 
THEN GO TO S11C,. BOTR1920 







CALL LGAM(AA+BBsG1)_.~ BOTR1L930 
CALL LGAM(AA+1 7G64),_. BOTR1940 
PP =G1-G2-G4+AA *OL XX+(BB—1) *OLLX+LOG(SS),5. BOTR1950 











TF PP LE -1.68E+2 BDTR1960 
THEN DC,. ; BOTR1L97O 
PP SFFy. BOTR1L980 

GO TO S1COQ,. BOTRL990 
END». BDTR2000 

PP =EXP(PPI+FF,. BDTR2010 
S1LOC.. BOTR2020 
IF [0 GT O ; BOTR203C 
THEN PP=1-PPy. BDTR2040 
P =PPy. BOTR2950 
IF P LT 0 /* SET ERROR INOICATOR */BOTR2060 
THEN IF ABS(P) GT 1LE-7 BOTR2070 









THEN GO TO S110¢. BOTR2080 
ELSE O0O,. BOTR2090 
P =Cy. BOTR2100 
GO TO S130,. BDTR2110 
END, . , BDTR2120 






ELSE IF P GT l BDTR2130 
THEN IF ABS(I1-P) GT LE-7 : BDTR2140 
THEN BDTR2150 






$110.. BDTR2160 
DOs. BDTR2170 







ERROR="3',. ; BOTR2180 
P S+lE+75,. BOTR2190 
GO TO $140,. BOTR2200 






END ye : BOTR2210 
ELSE DO,. : BDTR2220 
P =ly. BDTR2230 
GO TO $130,%. . BOTR2240 
ENDy. 











LE 1E-8 
THEN DOO,>. BOTR2290 







-P =09- BDTR2300 
GO TO $130,. . BDTR2310 
END». BOTR2320 





. ELSE IF 1-P LE 1E~8 BOTR2330 
THEN P=Lye ; 








ERROR="0',. 









RETURN» « 


END? /* END OF PROCEDURE BOTR -*/B0TR2390 





Purpose: 


BDTR computes P(x) = probability that the random 
variable X, distributed according to the beta dis- 
tribution with parameters A and B, is less than or 


equal to x, f (A, B, X), the ordinate of the beta 
density of X, is also computed. 


Usage: 


CALL BDTR (x, A, B, P, D);_ 


X - BINARY FLOAT : , 
Given variable containing the aie for which | 
P(x) is computed. 


A -BINARY FLOAT » e 


Given variable containing the beta distribution 
parameter. 


B -BINARY FLOAT 


Given variable containing the beta distribution _ 

parameter. . oe. Re | 
P '-BINARY FLOAT | 

Resultant variable containing the probability. 
D -BINARY FLOAT | | 

Resultant variable containing the density. 


Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero, The 
following constitute the possible error oe 
that may be detected: | | 


ERROR=1 - invalid value of X. (¥<0 or X 1) 
ERROR=2 - invalid value of A or B (A or B <,5,or_ 
Aor B> 10°). 
If either of the above conditions exists, 
the values of P and D are set to -1, E75. 
ERROR=3 - Invalid output (P<0 or P>1), If this 
condition exists, the value of P is set to 
1, E75. 


Subroutines and function subroutines required: 


CDTR 
LGAM 
NDTR 


Method: 
Refer to: 
R. E. Bargmann and 8, P, Ghosh, "Statistical 


Description Programs for a Computer Language", 
IBM Research Report RC- 1094, 1963. 


_M, Abramowitz and I. A. Stegun, Handbook of 


Mathematical Functions. U. S. Department of 
Commerce, National Bureau of Standards Applied 
Mathematics Series, 1966. 

eens paceeeunl: 


This subroutine computes P=], (m,n)=Prob (X <x), 
where X is a random variable following the beta 
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distribution with degrees of freedom. (continuous .__ 
parameters) m and n. For, computation to take _ 
place, 0 x <1, 0.55m<10'5, and 0,5 <ns10°°, 
D, the ordinate of the beta density at x, is also pre- 
sented in the output. 


For0 ¢x<1, I (2, a may be written as: 


x 


I. (m, ans f (m, n, y) dy 
where: 
Boma) ee fomm3) 


fit + 4) 
L,(m,n) can be reduced to a bial partial sum 
that can be evaluated by means of a continued frac- 
tion expansion, 

Let N= mtn-1 and r= m-1, Then: 


phe “232 a ee aie 


N 


Da (3) aw 


ane (eH, Nee) = 
| = TL 
fom (Nah ag te 


og ek 
S is a continued fraction, with 80 terms being 


sufficient for the desired accuracy. 


Tio ei Sea gf, |OUC |) 


(N-i-r) (rti) x 





GEA aD) CFD TR ge OP. 
a Sans 05 eee Sree 6 


oe att 1). ae fe e: ee . 
The ahave continued fraction expansion ‘of 1 (in, a) 


holds for positive m and n (integers OY. nonintegers), 
V2 0 (m+n= 1), and r2 0 oe, 1). Ih order to 
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TE 0 $x $10 
_ is made that x = 0 or 1 respectively. P and D are 
_ then set according to the following table: 


If either m orn, or both are within 10° 
beta integral is solved explicitly for m=i1, n=1, 
or m=n-1; 


fulfill these last two conditions, if m <1, the follow- 
‘ing transformation must be made before computation 


of L . (m,n) can take place: 


T (m+n 


Peat DT (@) * “ae x)" + I. (m+1, 7 


Team) = 


(6) 


| he quantities on the right-hand side of equation (6) 
_ are those that are computed. 


Tt is known that I,(m,n) = Ty ae m). Thus, either 


_ of the two parameter sets indicated by this equation 
may be used in computing the beta integral. The 

_ parameter set selection is made by applying the 

i" following i ac derived rule: 


ie Let p and q be the Gheiase of en corre- 
.. sponding to z, where z = x if x =. 5 or (1-x) 
- otherwise. If the quantity [(p-1) - (p+q-1) 
Z 6/9 +. 2] is positive, use the parameter set | 
corresponding to z. Otherwise, use the para- 
~ meter set corresponding to (1-z). 


S or 0 S1-x <10°°, the approximation 


0 <1-x <1078 = 


0 $x <10 
P=0 | Pel 
. 3h eS Then: If: ‘Then: 
ASl D=10"° B<1 D=i0° 
ae 1 D=1/B(m;n) B=1 D=1/Rm,n) . 
aa D =0 B>1 D=0 


of 1, the 


Tf: Then: | 
A=1, B=1 P=x 
| oe 
A=1, Bl P=1- (1-'x) 
A #1, B=1 pax” 


If m or nis greater than 1000, the chi-square ap- § + @ Subroutine CDTR 
proximation is used: | 


CDYR.. COTR 
[EHR AAAAEA SSAA AAE SHAS AHA AA AREA ASS AAE HAS AANA GAIA OA HHA S HH HTS H/COTR 


21 a 2m (1-x)/x is distributed as xX with 2n . COMPUTES P(X) = PROBABILITY THAT THE RANDOM VARIABLE Us *7CDTR 


—1: | : DISTRIBUTED ACCORDING TO THE CHI-SQUARE OISTRIBUTION WITH G */COTR 
degrees of freedom and P = 1 - Py (24) for m > DEGREES OF FREEDOM, IS LESS THAN OR EQUAL TO X. F(G»X)_, THE */COTR 
1000 7 QRDINATE OF THE CHI-SQUARE DENSITY AT X, IS ALSO COMPUTED. */COTR 
*/COTR 

° ; ‘ , [RAC IRA A HER CTR 
PROCEDURE (X,G6yPyD)y~ COTR 


eo e e 2 eo 
7 2nx/ (1-x) is distributed as x with 2 m oe : PPE NOK DLXks DLX2 66462, DLT3 THETA, THPL GLG2,0D4T11 SER CC X2y cOTR 


degrees of freedom and P = P,2 (zg) for n > 1000. FLOAT BINARY (S3}y OTR: 
(IeJeKeIl3) FIXED BINARY» COTR 


If both m and n are greater than 1000, the approx-_ ERROR EXTERNAL CHARACTER (1), a, COTR 
(XeGeDeSCoPst1leT2eT3sDUNMY) FLOAT BINARYs- COTR 


imation corresponding to 21 is used. | . | LT .49999 OR G. GT 2.€+05 OR X (7 ae teenie Bea 
DOy. /* SET ERROR INDICATOR */COTR 


DyP 2-1.ET5y~ COTR 
END» « = e, COTR 
or 0 $1-P $107 , vats PR 806096 ON THE PARAMETER G */COTR 
P is set to 0 or 1 respectively. | D’” a1.E75;. = CDTR 
| ELSE IF G = 2.0 a COTR 
GO TO $309. a. CDTR 
D  —-3040y- COTR 
: : . i END». COTR 
D 20.209. ie COTR’ 
END, . COTR 
=LOG(XX)56 : COTR 510 
=PRECISION(G253) 96 _ 3 CDTR 540 
CALL LGAM(G2,GLG2)y~ COTR 570 
THEN IF (0D+1.68E02) LE 0 . . /  €DTR 600 


. > | ERROR=°1°,. : CDTR 
The values of P very near zero or one may be some-.. GO TG S150,. (4s @ a 4 CDTR 
i 1 ; iad = _ IF X LE 1.E-08 TEST: FOR X NEAR ZERO */COTR 
what imprecise. To eliminate possible misinterpre ete _ tee ep aia a Gebennore fly 
e oe < 
tation of results, if 0 =P $10° ret oO | eoiR 
THEN DQ,. fe CDTR 
GO TO S305. CDTR 
END». : COTR 
THEN DO,. CDTR. 
13) 20 56 , , COTR 
ENDye 7 ; COTR- 
ELSE DO,. CDTR: 
GO TO S209. . coOTR: 
ENDys wt coTR 
IF X GT 1.E+06 /* TEST FOR X > 1.£+06 */COTR 
THEN 009. /*. SET P AND D */CDTR 
st Ps «31609 _ CDTR 
GO TO S$30,. P56. 4 CDTR 470 
ELSE DO». y* SET PROGRAM PARAMETERS */CDTR 490 
=PRECISION(X 953) 96 . CDTR 500 
=XX/2eEOe6 7 COTR 520 
=LOGUX2)»« er . CDTR 530 
=GG/2.E0y« a CDTR 550 
/* COMPUTE THE ORDINATE */CDTR 560 
DD _=(G2—-1.£0)*DLXX-X2-G2*. 693147180559945E0-GLG2s. CDTR 580 
IF DD LE 1.68E02 CDTR 590 
THEN DO,. Lo . COTR 610 
D- =0.0). in ag, CDTR 620 


COTR 630 

/* TEST FOR G > 1000. & X >. 2000*/CDTR 640 

LE 1000 COTR 450 

IF X GT 2000 COTR 660 

THEN a 8 ‘COTR 670 

: CDTR 680 

DO;. COTR 690 

P =1.0,. COTR 700 

- COTR 710 

ERROR="0°,. d - COTR .720 

GO TO S150,. ; ‘ -  €DTR 730 

END». . 7 CDOTR 740 

DO: ; ea COTR 750 

/* COMPUTE THETA */CDTR 760 

K =FLOOR(G2),. COTR ‘770 

THE TA=G2-FLOAT (Ks53)5. ‘ COTR 780 

GO TO S40,. COTR 790 

END ,. COTR 800 

7* WILSON HILFERTY APPROX. /- *f/COTR 810 

=LOG(XX/GG)/3.EQ3. .COTR 820 

A “SEXPCA) s 6. . ti CDOTR :830 

B =2-E0/(9.E0*GG) ». sf COTR 840 

C,ySC =(A-1.E0+B) /SQRT(B)s. A COTR 850 

CALL NDTR(SC,P,DUMMY),. Ne CDTR 860 

GO TO S60,. - COTR 870 

END ye a COTR 880 

END». CDTR 890 

DO,. <4 ‘ COTR 900 

DD,;D =EXP(0D),. ' CDTR 910 

ae re GO TO S10,%. -_ COTFR 920 
. ‘ oe 2 END». roe COTR 930 
uy ELSE a - ' €DTR 940 
=1.E75>5. Boyt COTR 950 

30 TO SLO,. we vot COTR 960 

ENDy. es a COTR 970 

END, . i Cag 3 COTR 980 

S40... COTR 990 
IF THETA LE 1.E-8 a cOTR1000 
‘|. THEN THETA=0.E0,. nt Ye COTRLOLO 
* Coote ; ... THP1 =THETA+1 -E0y. : Ege <9 ; COTR1020 
s : phy /* SELECT METHOD FOR */CDTR1030 
/* COMPUTING Tl . ‘ */CDTR1040 

‘IF THETA GT O ne CDTR1050 

: , /* COMPUTE T1 FO? - : */COTR1060 

i /* THETA > O & X < GR = 10 */COTR1O70 
. THEN IF XX LE 10.E0 COTRLOS8O 
THEN DO,. . oo ; test, egies 2 . COTR1090 

SER =X2*(L-EOQ/THP1L~X2/(THP14+1.E0))s- ee? : COTR1100 

J =Hlee ian cane 2 CDTR1110 

cc . SFLOAT(J 953) 9 . - .. 'CDTR1120 

DO IT1=3 TO 3096 vs COTR1130 

XI" =FLOAT(IT1,53)9~ oe eee COTR1140 

CALL LGAM{(XI,FAC),. ws COTR1150 

TLOG =XI*DLX2-F AC-LOG(UXI+THETA) >. » COTR1160 

TERM =EXP(TLOG),». Pte aw & 3 CDTR1170 

TERM =SIGN(CC)*ABS(TERM)». Ete a CDTR1180 

=SER+TERM, « . CDTR1190 

cc =~-CCy. 3 cDOTR1200 

IF ABS(TERM) LT 1.&-9 COTR1210 

THEN GO TO SEOs : - . CDTR1220 

END. a —. .CDTR1230 
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GO TO S$90>%. 
ENDy. 


COTR1240 
CDTR1250 


ELSE 00,.- , _ ¢* T1 FOR ‘THETA>O AND 10<X<2000*/CDTR 1260 


A2 - =0.E0,. 
- DO I=1 TO 25,. 
XI =FLOAT(1e53)5~ . 
CALL LGAM(THP1L,GTH),. 
T1L =-(13. EO#KX) /XI+THPL#LOG(13«EO#XX/XI)—GTH-LOG UXT) « 
IF (111+1.68E02) GT 0 
THEN OO»s- 
- TLL. SEXP(T11)¢. 
A2 =A24T11,. 
END» e 
END». 
' GO TO $130,. 


END 9. 
ELSE IF X2 GE 1.68E02 
: THEN DO, /* COMPUTE T1 FOR THETA = 0 
T1 #1009. . 
$50.6 
IF G GE 2 y* SELECT APPRO. EXP. FOR P 
THEN IF G GE 4 . 
THEN 00,y. 
/* CALC. FOR G > OR = 4 
/*-AND < OR = 100 
OT3 =0.E0s. 
DO 13"2 TO Ky. 
THPIE =FLOAT( 13,53) #THETAy. 
CALL LGAM (THPIsGTH)y. 
OLT3 =THPI*DLX2-DLXX-X2-GTHe « 
IF (DLT34#1.68£02) GT 0 
THEN DT3 #DOT3+EXP(OLT3),. 


ELSE DO). 


$60.. 
IF P UT O 
THEN IF ABS(P) LE 1-E-7 
THEN 
ST0.- 
ee 
=0. Ove 
60 TO S30,. 


THEN IF ABS(L.-P) GT 1E-7 
THEN GO TO S90;%. 
ELSE GO TO S209. 

ELSE GO TO S100,. 


ELSE GO TO S$145;. 
END;:. 
ELSE D00O,. 
T1leTl =1.EO-EXP(-X2),. 
GO TO S50. 
ENDye 
$80... , 
IF (SER) LE 0 
THEN GO TO S90,. 
ELSE D0O,. 
CALL LGAM (THP1,GTH),. 
TLOG =THET A*DLX2+LOG(SER)~-GTH,. 
IF (TLOG+1.68E02) LE O : 
THEN GO TO S$110,. 
ELSE GO TO shenss 
END». 
S90 e~ 
ERROR=' 2°,. /* SET ERROR INDICATOR 
Pp =1.E75,. 
GO TO $150,. 
$100... 
' YF PLE 1.€-8 
THEN GO TO ST70,. 
ELSE IF (1L.0-P) LE 1.E-8 
THEN GO TO S20,. 
ELSE GO TO S30,. 


T11,T1 =EXP(TLOG),. 
' GO TO S50,. 


=1.01282051+THETA/156.E0-XX/312-E0 96 
B =ABS(A),).- 
Cc =—X24THP 1*OL X24+L0G(8 )-GTH-3 .95124371858142E0,. 
IF (C+1.68E02) LE O 
THEN DO,. 
~ Cc =0.E0O,. 
$140... 
marae Cc =A24C,- 
TL1,T1 =1.E0-C,. 
GO TO S50,. 
END gy. 
ELSE IF ALTO . 
THEN DO,. 
= JC s—EXP(C)oe 
GO TO S140;. 


Cc =0 eE09.6 
GO TO $140,. 


END, .« 
ELSE OO,;. 
Cc =EXP(C)26 
GO TO S140%. 
; END,. 
$145... : 
CALL LGAM (THP1,GTH),. /*CCMPUTE P FOR 0<G<2 
OT2 =THETA*DLXX~—X 2~THP 1*.693147180559945E0-GTH,.- 
IF (DT2+1.68E02) LE 0 
THEN DO,. /*COMPUTE P FOR G > OR = 2 
: P : =Tl,. 
GO TO S60;. 


OT2,T2 =EXP(DT2),- 
P =T1+T2+T2,. 
GO TO S$60,. 
: END, ° 
$150.6 
RETURN,» - ; ae : 
END 9. ; /* END OF PROCEDURE CDTR 
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COTR1270 
COTR1280 
COTR1290 
COTR1300 
COTR1310 
COTR1320 
cDTR1330 
CDOTR1340 
COTR1350 


’ CDTR1360 


COTR1370 
COTR1380 
COTR1390 
COTR1400 


*/COTR1410 


COTR1420 
COTR1430 


*/COTR 1440 


COTR1450 
COTR1460 


*/CDTR1470 
*/COTR1480 


CDTR1490 
CDTR1500 
CDTR1510 
coTR1520 
CDTR1530 
CDTR1540 
CDTR1550 
CDTR1560 
CDTR1570 
CDTR1580 
CDTR1590 
CDTR1600 
COTR1610 
COTR1620 
COTR 1630 
COTR1640 
COTR1650 
COTR1660 
COTR1670 
CDTR1680 
CDTRL690 
CDTR1700 
COTR1710 
COTRL720 
COTR1730 
CDTR1740 
COTRL750 
CDTR1760 
CDTR1770 
COTR1780 
CDTR1790 
COTRL800 
CDTR1810 
CDTR1820 
COTR1830 
CDTR1840 
COTR1i850 
CDTR1860 
COTR1870 
COTR1880 
COTR1890 
COTR 1900 
CDTR1910 
CDTR1920 
CDTR1930 
COTR1940 
CDTR1950 


*/COTR1960 


COTR1970 
COTR1980 
COTR1990 
CDTR2000 
COTR2010 
COTR2020 
CDTR2030 
COTR2040 
COTR2050 
COTR2060 
CDTR2070 
CDTR2080 
COTR2090 
CDTR21L00 
COTR2110 
CDOTR2120 
COTR2130 
CDTR2140 
CDTR2150 
CDTR2160 


. CDTR2170 


CDTR2180 
CDTR2190 
CDTR2200 
COTR2210 
CDTR2220 
COTR2230 
CDTR2240 
COTR2250 
COTR2260 
CDTR2270 
COTR2280 
COTR2290 
CDTR2300 
COTR2310 
CDTR2320 
COTR233. 
COTR2340 
CDTR2350 
CDTR2360 
COTR2370 


* /COTR2380 


COTR2390 
CDOTR2400 


*/CDTR2410 


COTR2420 
CDTR2430 
COTR2440 
COTR2450 
COTR2460 
COTR2470 
CDTR2480 
COTR2490 
COTR2500 
COTR2510 


*/COTR2520 


Purpose: 


CDTR computes P(x) = the probability that the ran- 
dom variable X, distributed according to the chi- 
square distribution with G degrees of freedom, is 
less than or equal tox. f (Gx), the ordinate of the 
chi-square density at x, is also computed. _ 


Usage: 
CALL CDTR (, G, P, D); 


X- BINARY FLOAT 
Given random variable following the chi- 
_ square distribution. 
G- BINARY FLOAT 
Given variable containing the number of 
degrees of freedom of the chi-square distri- 
bution. G is a continuous parameter such that 
.5 <G <2 (10°). 
P- BINARY FLOAT 
Resultant variable containing the probability. 
D- BINARY FLOAT 
Resultant variable containing the density. 


Remarks: 


If no errors are detected in the processing of data, 


_the error indicator, ERROR, is set to zero. The 


following consitute the nosaible error conditions that 
may be detected: 


ERROR=1 - invalid value of X. 
(X <0) or invalid value of G. 
(G <.5o0rG> 200, 000) . 
If this condition exists, the values of P 
and D are set to -1. E75. 

ERROR=2 - invalid output (P <0 or P > 1) or the 
series T1 has failed to converge. If 
this condition exists, the values of P 
and D are set to -1. E75. 


Subroutines and function subroutines required: 


LGAM 
NDTR 


Method: 
For reference see: 


1. RR. E. Bargmann and S. P. Ghosh, 
"Statistical Distribution Programs for a 
Computer Language'', IBM Research 
Report RC-1094, 1963. | | 

2.  M. Abramowitz and I, A, Stegun, Hand- 
book of Mathematical Functions U. S. 


Department of Commerce, National 
Bureau of Standards Applied Mathematics 
Series, 1966. | 


Mathematical Background: 

This subroutine computes P=P(x)=Prob. (X <X), 
where X is a random variable following the x” dis- 
tribution with continuous parameter g. X must be 
greater than or equal to zero and .5 = g $ 2 (10°) for 
computation to take place. D, the ordinate of the 

X density at x, is also presented in the output. 


For x >0, P(x) may be written as: 


xX 
P(x) = f f(g, y) dy ay 


where: 
£ (g,y) =yS— 9? Jee! "T (=) 


~D= f(g, x) 
To evaluate the integral, we first define 


+= Eff] 


where-}-denotes the largest integer less than or 
equal to 6 is thus the fractional part of 


Substituting this expression into the integral and per- 
forming the proper reductions, we find: 


Tf: Then: 
0<g<2 P(x) = Tl+ T2 
Qe¢<4 P(x) = 
g24 P(x) = T1 - 2T3 

where: 
oe ey 
+ 
gt I" (1+ 8) 


T2 = £(2+20, x) 


ia 


T3 = eS £(2i+20, x) 
i=2 


T2 and T3 may be evaluated directly using logs and 
antilogs. 


IfG=0 (S is an integer), T1 is easily evaluatedas: 
T1=1-e 7%” 


If 8>0, T1 can be expanded in the following infinite 
series: 





6 2 | 
a ae oe Aine ied 
[(1+ 6) (1+ 6 G 21(3+6@) 31(4+8)°°" 
: | (2) 
where Z = 3° 
This series is used in the range 10° <x 310, 


and not more than 30 terms are necessary to ensure 
convergence within error bounds of 107 

For x?10, 1-T1 is evaluated by the Euler-— 
McLaurin formula up to third derivative terms _ 


(see Reference 2, equation 23.1.30). One finds: 
. N 
1-T1= f hu) du (3) 
0 

where 

n (u) - 1 ( 2u ) (1+ Q) ; _Nx/2u 

Tti+8) Nx e | 
N N-1 


f bw d= bmts =h (N) -seh! (N) 
O- u=0 
gee m1 
729 2h 
(Note; h'=h''’ = 0 at 0.) 


In order to achieve accuracy consistent with that 
obtained by the method of equation (2), N=26 is 
used in equation (3). 


If 0 Sx <10°° the approximation is made that 


x=0, Pis set to 0, and Dis set to1.E75, .5, or 


0, corresponding to g less than 2, equal to 2, or 
greater than 2 respectively. 

If g> 1009, Hn and Hilferty's approximation 
is used. 2, 1/3 ig approximately normally dis- 
tributed adh mean 1 ~—g— and variance-G> (see ref- 
erence 2, equation 26,4.14). If g +1000 and 
x >2000, or g>1000 andx>10°, P is set to 1. 

Since T1 may have an error of about 10 “, values 
of P(x) very near zero or one may be somewhat 
imprecise. To eliminate possible misinterpretation 
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of results, if 0 <P(x)< 1078 or 0 <1 -P(x) $107 ac 


P(x) is ae to 0 or 1 respectively. 

The distribution is a member of the gamma 
family of probability distributions. The general 
form for distributions of this class is: 


x 
Pp gm =f (n, A, W;u) du 
where — 


G (no, a, VY; u) = (u-ayo* ee) (wr (n) ). 


This subroutine may, therefore, also be used to. 


compute the probability integral from zero to x and 
the corresponding ordinate at x for any member of 
this gamma family by oe 

x= aan), / Y oid g=2n 


Then P(x) will be the desired probability, and 
2i(¢-*) will be the desired ordinate. 
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_NDTI computes x = pl 


@ Subroutine NDTI 


NDTI ee NDTI 
LEBER EEKKEK KEKE EAE KEKAAEKEKH EE KKEKAGHKK KE ERE AK AEHAREAKK EKA EKAKKEREKAEKEK/ NDT I 
/* */NOTI 
/* COMPUTES X=P**X(-1)(¥), THE ARGUMENT X SUCH THAT Y=P{X)=THE. *#/NDTI 
/* PROBABILITY THAT THE RANDOM VARIABLE Us DISTRIBUTED NORMALLY */NDTI 
/* (Ovl)s IS LESS THAN OR EQUAL TO X. FLX) THE ORDINATE OF THE */NDTI 
/* NORMAL DENSITY, AT X, IS ALSO COMPUTED. */NDTI 
/* */NDTI 
[EMRE ERERHREREEREE EE ERATE EAE EE ERE EEK EK HERES EERKERAER EE AKEREE LE EEEK ER SNOT] 
‘PROCEDURE(P 9X+D)_- NOTI 

. DECLARE . .  « . NDOTI 
(P yXpD9T2e 7) FLOAT BINARY» ts NOTI 

ERROR “EXTERNAL CHARACTER (1)e. a a NDOTI 
ERROR='0', ; ty ay “NOTI 
X2D =0, e NOTI 
“IF P LT.0.0 | ee: oi ae _NOTI 
THEN NOTI 
$10... ‘ ‘ : ‘ ; fae § f : . : NOTI 
‘ _DDy. : oa /* P < O--SET ERROR INDICATOR */NOTI 

— ERROR="1*,. : NDTI 

GO-TO $309. ° ; — wR ‘ NOTI 

END;. NDOTI 

IF P = 0.0 NDTI 

THEN DO,. © = 0--SET X AND D */NDTI 

X . ==.999999E+74,. : , one NDOTI 

i: NDTI 

D =0 096 NOTI 

GO TO S30+%.- NOTI 

NDTI 


END ye 

ELSE IF P GT 1.0 . . NOTI 
THEN GO TO SlO-z. 7* P 1--SET ERROR INDICATOR */NOTI 
ELSE IF P = 1.0 : NDTI 


THEN DO,. /* P 1--SET X AND D */NOTI 

xX =. I9999D9IE+T4 2 & NDTI 

GO TO $20,. NOTI 

ENDy. NOTI 

O00. 4* P>O AND P <1 */NOTI 

D =Pee NDTI 

IF 0 GT 0.5 NOTI 

/* COMPLEMENT P' */NOTI 

THEN D . =1.0-D,. » ‘NOTE 

/* CALC. EQUATION 2 IN WRITE ‘UP*/NOTI 

T2 =LOG(1.0/(D*D) ),. NOTI 

T =SQRT(T2)9. NDTI 

/* CALC. EQUATION 1 IN WRITE UP*/NOTI 

x =T- (2251551740. 802853*T+0.010328*T2)/ _ NOTI 

(1.041.43278 8*T+0 .189269¥*T 2+0.001308*T NOTI 

*T2) 96 NDTI 

LE 0.5 7* P < OR = 25 */NDTI 

x =—-X_9e/* NEGATE X */NOTI 

, 4* CALCULATE DENSITY */NDTI 

=0 «3989423 EXP(-X*X/220) 90. ts NOTI 

NOTI 

S306 NOTI 
RETURNg « aN NDTI 
END,. /* END OF PROCEDURE NOTI */NDTI 





Purpose: . 


(y) such that y = P(x), the 
probability that the random variable X, distributed. 
normally (0, 1) is less than or equal to x. f(x), the 
ordinate of the normal density at x, is also com- 
puted. 


Usage: 


CALL NDTI (P, X, D); 


Pp - BINARY FLOAT 

| Given variable containing the probability. 

xX - BINARY FLOAT 
Resultant variable such that P=Y= the prob- 
ability that u, the random ee is less 
than or equal to X. 

D- BINARY FLOAT 
Resultant variable containing tne cousity 


f (X). 
Remarks: 


If no errors are detected in the processing of data, 
the error indicator, ERROR, is set to zero. How- 
ever, if P=0, X is set to -(10) “4, and D is set to 
zero. If P=1, X is set to (10) ~“ and D is set to 


zero. The following constitutes the possible error 
condition that may be detected: 


ERROR=1 - Invalid value of P. P is either less than 


zero or greater than one. 


Method: 


Refer to: 


C. Hastings; Approximations for Digital Computers, 
Princeton University Press, Princeton, N. J., 1955. 


M. Abramowitz and Stegun, I. A. Handbook of Math- 


ematical Functions, Dover Publications, Inc. 


equation 26. 2.23. 


Mathematical Background: 


This subroutine computes x = ply) such that 


pING Yas 


y = P(x). = Prob(X $x), where X is a random var- 


iable distributed normally with mean zero and 


variance one, 
solved for x: 


P(x) = Va 2 


That is, given P(x), the following is 


x 


f 


jo) 


exp (-u7/2) du 


The following approximation is used: 


y) . 8 ; | 7 

i i | | 

X=W ae aw / >) baw | (1) 
i=0 i=0 


where: | a a 
w =n (1/p) (0 <p $.5) RY 
ay = 2. 515517 


a, = 0. 802853 


a, = 0.010328 
b, = 1.432788 


by = 0.189269 


b, = 0.001308 


If P(x) is greater than 0.5, 1-P(x) is used as p in 
(2) above, and the result of (1), x, is negated. The 
maximum error is 0.00045; f(x) is also calculated. 
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APPENDIX A: ACCURACY OF SUBROUTINES 


‘The subroutines in SSP can be broken down into 
. three major categories from the standpoint of ac- 
curacy: | | 
(1) those having little or no effect on accuracy, 
(2) those whose accuracy depends on the char- 
acteristics of the input data, and 
(3) those in which definite statements on accu- 
racy can be made. 


SUBROUTINES WITH LITTLE OR NO EFFECT ON 
ACCURACY 


The following subroutines do not materially affect 
the accuracy of the results, either because of the 
simple nature of the computation or because they do 
not modify the data. — 


QH24 


RANK 


ABST 

BUND SRNK 
CHSQ SUBM 
HTES SBST 
KLM2 TABI 
_KRNK TAB2 — 
MOMN TALY 
MPIT TIE 
MPRM ‘TRAC 
MTPI TTST 
MSCG TWAV 
MSCS UTST 
ORDR WTST 
QTST 


SUBROUTINES WITH DATA~DEPENDENT ACCURACY 


The accuracy of the following subroutines cannot be 
predicted because it depends on the characteristics 
of the input data and on the size of the problem. The 
programmer using these subroutines must be aware 
of the limitations dictated by numerical analysis 


considerations. 


It cannot be assumed that the re- 


sults are accurate simply because subroutine execu- 


tion is completed. 


ACFM/ACFE DFEC MATE 
AHIM/AHIE DFEO MATU 
ALIM/ALIE DGT3_ MDLG 
APCI/APC2 DMTX _-MDLS/MDRS 
APLL DSCR MDSB 
ASN EXSM . MEAT 
AVAR FFT MEBS 
CANC FFTM MEST 
CORR FMFP MFG 
DERE KLMO MFGR 
DET3 LOAD MFS — 
DET5 MAGS 


~MFSB 
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MGB1/MGB2 POSV 

MGDU | PRTC QH32 

MIG PRTR QH48 

MINV QA2 QHFG/QHFE/ 
MIS QA4 QHSQ/QHSE 
MLSQ QA8 QL2 

MLTR QA12. QL4 

MMGG QA16 QL8 

MMGS >  QA24 QL12 
MMGT QATR QL16 

MMSSs QG2 -QL24 

MSDU  QG4 QSF 

MSTU QG8 . QTFG/QTFE 
MVAT QG16 RTF 

MVEB QG24 RTFD 
MVST QG32 SE15 

MVSU | GH2 SE35 

MVUB QH4 SG13 /SE13 | 
PEC/PTC .- |. QH8  S§TRG 

POST QH16 :. VRMX 


SUBROUTINES WITH DEFINITE ACCURACY 
CHARACTERISTICS 


The subroutines in this section have accuracy char- 
acteristics that can be specified on an individual 
basis. The mathematical descriptions for many of 
these subroutines contain information on truncation 
error of a strictly theoretical nature. The actual 
implementation of these subroutines on System/360 
results in the accuracy noted in the following table. | 
The standard reference for comparing the accuracy 
of these subroutines is M. Abramowitz, IA. Stegun, 


Handbook of Mathematical Functions, National 


Bureau of Standards, Washington, D.C., March 
1965. However, in certain cases, other tables were 
used, as noted below. It should be remembered 
that in System/360 single-precision floating point, 
there are just over six significant figures. 

Maximum differences below are given in terms of 
number of decimal places (DP) and/or number of _ 
significant digits (SD) that agree. The number of digits 
tabled should be considered when accuracy state- 
ments are viewed; that is, certain tables are given 
to only five places, whereas the algorithms used 
may be more accurate. In compiling maximum 
differences, the maximum was taken over the set of 


_ points indicated in the table. The average difference The notation x = a (b) c implies that a, a+b, 
was normally much smaller. a+ 2b,..., c were the arguments (x) used. 





















Functions Range 
















Functions Maximum 























Name re checked checked differen 
ae i with reference with reference oe 
BDTR p=. 0001, .0005 correct to 5 DP 
Tables by Leon a=1(1) 40 
H. Harter: New b=5(5) 40 


Tables of the 












Incomplete p=. 0100, . 0500 
Gamma Function a= 2(2)10 
Ratio and of b=5 (5) 30 


Percentage 
Points of the 
X “and Beta 
Distribution, 

1964 



































x=. 001 (. 001) . 01; 


y= Py (x) 1 in the 5th DP 







where P is 201 (,01) 1.0; 
the X 1.0 (.1) 2. 0; 
distribution 2.0(,2) 10.0; 
function 10.0(. 5) 20. 0; 
with para- 20 (1) 40 





meter g, 40 (2) 76 






for 







g=1 (1) 30 












m=. 01 (.01).99 
w= 1(1)73 


2in 7th SD 
2 in 7th SD 





K(k) 
(single 
precision) 


K(m); k =n 













K (a); k=sin a 












CELI 
Complete | 
elliptic --—--—- -- hes, ee See 5 aE Ae Pe na 
1st integral 














(a in degrees) O& = 74(1)86 3 in 7th SD 








































m= .01(.01).86 1 in 16th SD 
(double | 
prectsson) m= .87(. 01) .96 4 in 16th SD 
m= .97(.01).99 11 in 16th SD 
Kq@); k= sine a = 1(1)75 1 in 16th SD 
(a in degrees) Qa = 76(1)80 2 in 16th SD 
O& = 81(1)86 11 in 16th SD 
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CEL2 
Generalized 
complete 
elliptic 

2nd 

integral 


ELI1 
Incomplete 
elliptic 1st 
integral 


Functions 
calculated 


K(k) 


with A= B=1 

E(k) 

with A=1 
B=1-k 

(single 

precision) 


| K(k) 


with A= B=1 
E(k) 


| with A=1_ 


B=1-k? 


(double 


precision) 


F(¢ /a) 
with 
x = tang 


k = sing. 
ck y 1-k 2 


(single 
precision) 


precision) 


Functions» 
~ checked 


with reference 


K(m); k =~ 


Ke); k=sing 


(x in degrees) 


E(m): kay m 


E(a); k =sin @ 


K'E + E'K - KK". 


(Legendre's re-_ 
lation) 


K(m); k=ym 


K(a); k = sin & 
(a in degrees) — 
E(@);k= sina 
K'E + E'K - KK' 
(Legendre's — 
relation) 


F(C/a) 


(C, q in degrees) 


F(p /a) 
(PY, a in degrees) 


F(p/a) + F()/a). 


- (5 /a) 


(0, a, W in degrees) 
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Range > 
checked 
with reference. 


m= .01(.01) .99 


a = 1(1)73 


01(.01).99 
1(1) 89 


.01(. 01); 99 


= 1(1)80_ 


= 81(1)86 

= 1(1)89 

= .01(. 01). 99 
= 1(1)89 


= 0(5)10 
0(2)90 


= 15(5)35 
= 0(2)90 — 


= 40(5)50 
= 0(2)90 


= 55(5)85 
= 0(2)90 


= 0(5)85 
= 0(2)90 
0(5) 85 
0(2)80 


= arctan f. 
1/(cos & -tan ~) 


_ difference 


2 in Tth SD 
2in 7th SD 


3 in 7th SD 
2 in 7th SD 
2 in 7th SD 
7 in 7th SD 
1 in 6th SD 


2in 16th SD 


2 in 16th SD 


11 in 16th SD 


2 in 16th SD 
9 in 16th SD 


9 in 16th SD 


2 in 7th DP 


7 in 7th SD 


11 in 7th DP 
3 in 7th SD 
1 in 9th DP (prob- 


ably due to rounding _ 
errors in table) 


2 in 15th DP 





Functions 
calculated 


Name | 


precision) 


ELI2 
Generalized 
incomplete 
elliptic 

2nd integral 


(double 
precision) 


Functions 
checked 
with reference 


F(C /a) 


(€, a in degrees) 


(C , a in degrees) 


(9 , win degrees) 


E(e/a) 
(p, a in degrees) 


E(p/a) +E (¥/a) 


2 


= E(G/a) + sine sino] 


Sin w 
(2, aw in degrees) 


F(@/a) + F(p/cx) 


=F (F/a) 


(P, a~ in degrees) 


Rus R WS 


C3 
7 
C 
a 
C 
or 
C 
ae 
C 
a 
C 
a 


Range 


checked 
with reference 


= 0(5)10 
= 0(2)90 


= 15(5)35 
= 0(2)90 


= 40(5)50 
= 0(2)90 


= 55(5)85 
= 0(2)90 


= 0,5 
= 0(2)90 


= 10(5)35 
= 0(2)90 


= 40(5)55 
= 0(2)90 


= 60(5)85 


= 0(5)85 
= 0(2)90 


= 0(5)85 
= 0(2)90 


= 0(5)85 
= 0(2)90 


= arctan f 
= 1/(cos @- tan ) 


0(5)85 


0(2) 82 


= arctan f _ 
= 1/(cos a -tan ©)| 


Maximum 
difference 


2 in 7th DP 


7 in 7th SD 


11 in 7th DP 
3 in 7th SD 
2 in 7th DP 
7 in 7th SD 
12 in 7th DP 


36 in 7th DP 


1in 9th DP (prob- 
ably due to rounding 
errors in table) 


1 in 9th DP 
(probably due to 
rounding errors in 
table) 


2 in 15th DP 


3 in 15th DP 
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Functions Range 





mupeHene checked checked | | isorimaecaias 
calculated : ae difference 
with reference with reference 
JELF snu=sing | snu=sing ~ = 0(1)89 | lin6th DP * 
Jacobian cn u = cos ~ (p, qa in degrees) a = 0(5)85 
elliptic Nie sin® —5 | cnu=cos@ g = 0(1)89 2in 6th DP + 
functions 3 om : a (p, & in degrees) a = 0(5)85 
with | 
@ =amuor dn u =W1-k*sin? y @ = 0(1)89 1 in 6th DP + 
u = F@/a), (P, a in degrees) a = 0(5)85 : 
k = sing | | 
sck = 1-k2 sn u k2 = .00(.05).95. 1 in 6th DP t+ 
(single | t = 0(1)25 | 
precision) u = t.K(k)/25 
cen u k2 = .00(. 05).95 2in 6th DP ++. 
t = 0(1)25 
u = t.K(k)/25 
dn u k? = .00(. 05).95 1in6th DP ++ 
| t = 0(1)25 
u = t. K(k)/25 
sn u - sn(2K-u) k? = .00(. 05). 90 6 in 6th DP 
t = 0(1)25 6 in 6th DP 
snu + sn(2K + u) u = t. K(k)/25 
sn u + sn(4K - u) 10 in 6th DP 
cn u + en(2K - u) k? = .00(. 05). 90 4 in 6th DP 
t = 0(1)25 | 
en u + cn(2K + u) u = t.K(k)/25 4 in 6th DP 
en u - en(4K - u) | | 6 in 6th DP 
dnu-dn(2K-u) | k= .00(.05).90 | 3 in 6th DP 
dn u - dn(2K + u) t = 0(1)25 3 in 6th DP 
. ou = t.K(k)/25 
dn u - dn(4K - u) | | 5 in 6th DP 


+ Calculation of u = F(9/q@) with double-precision subroutine 
++ Difference between result of single- and double-precision routines 
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Functions 
checked 
with reference 


Range 
checked 
with reference 












Functions 
calculated 


Maximum 


N 
ire difference | 












sn u = sing sn u = sin 2in15th DP t 


(p, a in degrees) 
















Jacobian 3 in 15th DP + 


















cn u = CoS ~ cn u = cos ~@ 



















elliptic (p, a in degrees) 
functions dnu =V1- ka 
(a= sin“©) dn u =V1-k2sin2o gy = 5(5)85 2in 15th DP t+ 
with (Pp, a in degrees) a = 0(2)90 



































g=amu 

u = F(~/a) sn u - sn(2K - u) k? = .00(. 05). 90 5 in 15th DP 
k =sing t = 0(1)25 

sck = 1 - k4 | 

(double sn u + sn(2K + u) u =t. K(k) /25 5 in 15th DP 


precision) 


sn u + sn(4K - u) 12 in 15th DP 












en u + en(2K - u) .00(. 05). 90 3 in 15th DP 
t = 0(1)25 
en u + cn(2K + u) = t.K(k)/25 8 in 15th DP 







S 
| 



















en u - cn(4K - u) 7 in 15th DP 







.00(. 05). 90 3 in 15th DP 


= 0(1)25 


ni 
bo 
il 


dn u - dn(2K - u) 


co 
| 





dn u - dn(2K + u) t.K(k)/25- 2in 15th DP 





dn u - dn(4K - u) 6 in 15th DP 





















LGAM x=1 6 in 9th DP 
(log of x=1.005(. 005) 
the gamma 1,025 9 in 8th DP 
function) x=1.980(. 005) 

1.995 9 in 8th SD 
x=1. 03(. 01)1. 31 8 in 9th SD 
x=1.32(. 01)1. 67 8 in 10th SD 
x=1.68(.01)1.97 7 in 9th SD 

 xX=2 6 in 9th SD 


No error in 8 place 


x=3. 0(1. 0)100. 0 
. tables 


NDTR = -6 (.01)6 7 in 7th DP 


NDTI 5 in 4th DP 









y =.01(. 01). 99 
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Functions 


calculated | 


SMIR 
Kolmogorov- 
Smirnov 
limiting 
distribution 


“Functions - 
checked 


with reference 


Ls); 
Tables by > 

N. Smirnov, 
reprinted in 


Annals of Math. | 


Stat. 19, pp. 


280-281 (6- and 


7- place 
tables). 
Double-preci- 


-Sion version 


differences 
are given in 
parentheses in 


_ the right-hand | 


column. 
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Range | 
checked 
with reference — 


x = 0(.01) .61 


X= .62 


x = .63 (.01)1. 04 


x =1.05(.01)1.15 


x =1.16(. 01) 1. 20 


x =1.21(.01)1.45 


x=1.46(.01)1. 65 
x =1.66(. 01) 1. 86 
x =1.87 

x =1.88 (.01) 2. 04 
x =2. 05 (. 01) 2.50 


x =2.51(.01)3.5 





Maximum 
difference 


LAA ARSE HE 


1in 6th pp | 


(1 in 6th DP) 


3 in 5th pp 
(see program 
comments) 


(3 in 5t4 pp) 


3 in 6th DP 
_ (2 in 6th DP)» 


6 in 6th DP 

(2 in 6th DP) 
9 in 6th DP 

(2 in 6th DP) 
8 in 6th DP 

(3 in 6th DP) 
6in6thDP 

(1 in 6th DP) 
2 in 6th DP 

(0 in 6th DP) 
2 in 5th DP 

(2 in 5th DP) 
2 in 6th DP 
(1 in 6th DP) 
1 in 6th DP 

(1 in 6th DP) 


2 in 7th DP 
(1 in 7th DP) 


APPENDIX B: SAMPLE PROGRAM DESCRIPTIONS ~ 


The following programs are intended to exemplify 
linkage of subroutines within SSP/PL/I. These ° 
programs are only examples and are not meant 
to be representative of the state of the art. 

When supplying data for the sample programs, 
the user is reminded that all fixed point numbers 
must be right-adjusted and that all floating point 
numbers may appear anywhere in the field, BLOr 
vided the decimal point is included. 

The necessary job control and process cards 
are included in the sample programs but are not 
separately shown in the deck setup illustrations. 


Note that arrays are limited, for each dimension, 
to an upper bound of 32, 767. 


DATA SCREENING DACR 


Problem Description © 


A set of observations is read along with information — 


on propositions to be satisfied and limits on a 
selected variable. From this input a subset is ob- 
tained and a histogram of frequency over given class 
intervals is plotted for the selected variable. Total, 
average, standard deviation, minimum, and maxi- 
mum are calculated for the selected variable. 
procedure is repeated until all sets of input data 
have been processed, 


Program 
Description 


The data screening sample program consists of a 
main routine, DACR, a special input routine DAT1, 
and three subroutines from the Scientific Subroutine 
Package: SBST, TAB1, and BOOL. There is also 
one special plotting routine, HIST. For a descrip- | 
tion of subroutine BOOL see subroutine SBST. 


Capacity 
‘1. Up to 4999 observations 
2, Up to 70 variables 
3, Up to 99 conditions (with the ead sais 
routine BOOL only two conditions are considered), 
4, Up to 10 data cards per observation 
Input 


Control Cards 


A parameter card with the following format must — 
precede each matrix of observations. : 


This | 


Columns Contents HOS Pamelor: 
—_——_——— —_——— Problem 
1-6 Problem number SAMPLE 
| (maybe. _ 
alphameric) — | 
7-11 Number of 0100 
observations | 
12-16 Number of 0004 
| variables 
17-21 Number of: 02 
conditions 
22-26 Number of 00003 
_ selections 
27-31 Number of data 
cards per 
observation O01 
Data Cards 


1. For the observation matrix, data cards have 
seven fields of ten columns each, The decimal point 
may appear anywhere ina field. If no decimal point 
is included, it is assumed that the decimal point is 
to the right of the last digit. The number in each 
field may be preceded by blanks, All values for an 
observation are punched consecutively and may con- 
tinue from card to card. However, a new observa- 
tion must start in the first field of a new card. 

2. For the condition matrix three ten-column 
fields are used, The first contains the variable © 
number (right-justified); the next, the relations 
code; and the last, a floating point number that re- 
lates to the condition. 


Selection Card 


For each selection there will be a new selection 
card. The card is prepared as follows: 


For Sample 


Columns Contents 


Problem 
1-5 Number of the 00003 
variable to be | 
tabulated 
6-15 Lower bound | 120, 
16-25 Number of intervals* - - 20.° °° — 
26-35 Upper bound 210. 


The number of selection cards must agree with 
the value of the selection indicator, which appears 
in columns 22-26 of the control card. 


*Tn the number of intervals, it should be noted that 
two extra intervals must be specified for those ele- 
ments that fall below the lower bound and those that 
fall above the upper bound. 
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‘Deck Setup 






















SAMPLE 10C 4 2 3 1 | 10 

46s 64. 173. 126 , 20 

| = 4 24- Aes 17C. Be 30 
ae 2 2 2 : 32 ql. 154. 16. 40 
The deck setup is shown in Figure 11. | | pW a eRe - 129. - 10. | =o 
636 1S. 202. 12. 70 

29. 10. 122. ic. - 80 

28. £42 136. 13. | 90 

: 52. 77. 43. ¢ 4d. | 100 

Selection 36. 67. 153. 18. 110 

31, 68. 165. 9. _s.3 120 

Cards 72. 1C. 178. 10. 130 

| LEP NSERDEE EPS EDIE 536 Vile 2cs. 14. 140 

49. 63. 150. b. 160 

Last problem 28. 2. 16C. 16. 170 

53. WZ. 1616 13. 180 

47. 73. 142. 15. 190 

37. 67. 193. 18. 200 

"enna 64. 68. 1566 14. 210 
Card 65. EC. 114. 10. 220 

62. 4. 153. 12. | . 230 

19. €8. 225. 9. 240 

? 46. é7. 15&. ll. ~ 260 

33. 12. 121. 4. 260 

37. é5. 132. 13. 270 

41. 16. 148. 16. 280 

"Belosion | 52. We 123. 16. 290 
Cards 29. 68. «128. 14. 300 
Prope oe eg 32. é5. 155. i7. , 310 
24. 12. 172. 16. 320 
56. 73. 163. 10. 330 

Data Second problem - 63. é5. 158. ll. 340 
67. 69. - 146. 2. 7 350 

58. 6. 171. 9. 360 

“@le é5. 153. 12 370 

ees ae 496 6. 165 LAs 380 
Card 52. 125 172. 16. . 390 
236 18.6 183. 15. 400 

56. 71. 195. 16. 410 

52. €8. 118. Vs : 420 

40. 6. 165. 14. 430° 

39. é8. 215. 16. 440 

perma | 23. V1. 154. 12. 450 
566 65. 14S. 10. 460 

Cards 25. é5. 162. 16. 470 
37. €8. 152. 16. 480 

466 Ce 15S. 15. . 490 

. 41. €S. 137. 14. 500 

First problem 62. We 163. 12. 510 

29. 72. 191. 4. 520 

19. é8. 16. 10. . e 4 530 

» 466 €3. 158. : 16. 540 
37. 64.6 13S. 18. : i ee . 550 

64. é7. 153. 12. : 570 

57. é7. 141. 13. 580 

23: é8. 157. 17. : 590 

295. 2C. «183. 15. 600° 

53. T2e 164. 18. 7 610 

47. 12. 156. 18. 620 

56. 23. 16C. 16. 630 

6le 14. 169. 12. - 640, 

21: 6G. 1él. 10. 650 

256 16. 178. 1l. : 660 

23's 12s 157. 16. 670 

29. €8. 186. 16. 680 

39. ICs 15S. 14s 690 

42. 1C. 154. 1¢. 700 

56. 62. 15S. 12. 710 

63. IC. 177. 12. 720 

: Sl. We 161. 3. 730 

Procedures and main program 41. 6. 15€. 10. 740 

33. 6S. 15&. 16. 750 

37. 68. 157. 16. 760 

25. 1C. 162. 15. . 770 

63. 68. 15S. 12. . 780 

53. 71. 202. é: 790 

51. 12. 167. 14. - 800 

47. 73. 164. 14. . 810 

39. 156 151. 2 820 

28. €8. 166. 10. 830 

646 69. 156. 16. 840 

55. é7. 1446 16. 850 

51. 6. ‘177. 10. 860 


66. 


27. 
Figure 11, 60. 
a 3G. 
| . 6C.. 
Sample | | 61. 


36. 


A listing of input cards for the sample problem is 
shown in Figure 12. 





Figure 12, 


Output 





Description 
The output consists of the subset vector whose 


element values indicate which corresponding observa- 
tions are rejected (element = zero) and accepted 
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(element |= nonzero), summary statistics for each Sample 

selected variable, and a histogram of frequencies | 

versus intervals for that variable. The output listing for the sample problem is shown in 
Figure 13. | | 


CATA SCREENING PRCSLEM SAMPLE 


SLBSET VECTCR 
1.¢ 


MOmnN OMS WAH 


° eees e 6 @ @ eo @ es @ @ ee ° ee eee * @e 8 @ ef. se @ @ 8 @ * 


ANAND ANANAA AN ARAANQAQANAANAAANNAHNAADBANANIANAAANAAAIIANAANAARAANAAANANH 


le ee oo ee oe ed oh ood et dh Be ee ce oe ee co ee ee cee ee ae ce ee ee ce oe oe oe oe el oe oe 
DAANADABDAN NANDA AAANANDAGBNAAANAAANNANAAAHADAGBGBAANDAAARANABAAAN 


Cc 
1 
1 
l 
1 
1 
l 
l 
1 
l 
C 
l 
1 
0 
1 
1 
1 
l 
1 
L 
1 
l 
1 
c 
1 
1 
1 
l 
l 
1 
1 
1 
9 
1 
1 
1 
1 
1 
1 
Cc 
1 
1 
1 
1 
1 
1 
l 
1 
1 


SUMMARY STATISTICS FOR VARIABLE 3 


TOTAL =14492.000 AVERAGE = 161.022 STANDARD DEVIATION = 19.329 MINIMUM = 114.0CO MAXIMUM = 225.000 


HISTOGRAM 


FREQUENCY 1 2 2 1 3 4 4 10 23 14 8 4 3 2 1 2 1 1 1 3 
23 
22 
2l 
20 
19 
18 
17 
16 
15 
14 


HRHOeRHHH HH HH HH HH ee 
Hen HHH HH HH HH OH OH 


He Re HH HH He 


INTERVAL 
CLASS 





Figure 13. 
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SUPMARY STATISTICS FCR VARIABLE 1 


TCTAL = 3€C4.COC AVERAGE = 422267 STANDARD CEVIATION = 13.467 MINIMUM 


FISTCGRAM 2 


FREQUENCY 


INTERVAL 
CLASS 


SUMMARY STATISTICS FOR VARIABLE 4 


TCTAL = 1205.00C AVERAGE = 13.385 STANDARD DEVIATION = -685 


HISTOGRAM 


FRECUENCY 6 13 5 4 ll 6 2l 


A i ee ee re a cece wen ee a re a A ce ee A EE A SE ee Se SR SS ES SE HD A SC SY a 


HRRHA*RHRAHRHHHHAHRHHHH HH HH 


mNW SUF WOO 

H HH tH tH He tt tt te te 
HHHHHHE HH HHH HH HH H 
HHHHHHH HH HH 


MINIMUM = 


19.000 MAXIMUM = 65.090 


% % % HH tH HH OH OH OH Tt tH oe 


9.000 MAXIMUM = 18.000 


2 6 0 0 


ee ee ne SS A A oS EN SP SS SD NE 


* 
* 


re ae a ae a a OE EE ee LE Se EE a ES ES SS Oe SO A a Le Ce CC EF SS SN LT CS Se IE SL SR SI Se Sm 


INTERVAL 1 2 3 4 5 6 7 8 


CLASS 


ENO OF CASE 


ENC OF SAMPLE PROGRAM 


Figure 13. (Continued) 


Program Modifications 


1. Changes in the input format statement of the 

special input routine, DATI1: 3 

Only the format statement for input data may 
be changed. Since sample data are either two- or 
three-digit numbers, rather than using ten-column 
fields, as in the sample problem, each row of data 
might have been keypunched in three-column fields; 
if so, the format is changed to (7F(,0)). This 
format assumes seven 3-column fields per card. 

2. If there are more than seven variables ina 
problem, each row of data is continued on the second 
card until the last data point is keypunched. How- 
ever, each row must begin on a new card. If there 
is more than one data card per observation, the value 
of the data card count indicator (NCARD), which 
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9 10 11 12 


appears in columns 27-31 of the control card, must be 
changed to agree with the number of data cards. — 

3, Subroutine BOOL can be replaced if the user 
wishes to use a different boolean expression (see 
description in subroutine SBST). The boolean ex- 
pression provided in the sample program is for both | 
conditions to be satisfied: | - 


T = R(1) * R(2) 
Operating Instructions 
The sample program for data screening is a standard 
PL/I program. Special operating instructions are not 


required, Data set SYSIN is used for input; data set 
SYSPRINT is used for output. 


Timing 





The execution time of this sample program on 
System/360 Model 40, using an IBM 2540 Card 
Reader as input and an IBM 1408, Model N1, a 
output, is 40 seconds. 


DACR..» 

[HE RERS ARE EEG HARE REE ER ERAS EERE EAE EASA E REEE ARETE K EE RE ER EERE EE 
/* 
/* TO PERFORM DATA SCREENING CALCULATIONS ON A SET OF’ 
OBSERVATIONS. 


SL RERRRERRERK KKK EEK KKK KR RAKKRRKEK EERE KAKA KRAKKHEKMERKHKSKAEKHAAREKEEEAKKE 

PROCEDURE OPTIONS (MAIN) »- 

DECLARE 

(NOsNSaNNeNNNeNCoI oJ eNOVARNX,NCOLyLLyL2) 

FIXED BINARY; 

PRL CHARACTER (6), 

ERROR EXTERNAL CHARACTER(1); 

CH CHARACTER (80), 

(NVy»NCARD) EXTERNAL ¢ 

BOOL ENTRY;:. 
/* ; 

ON ENDFILE (SYSIN) GO TO EXIT,. 
STRTo- 

GET EDIT (CH) (A(80))+.- 

GET STRING (CH) EDIT (PRL»NOsNXeNCeNSyNCARD) (A16),5 F(5))96 
PRleeeeee ePROBLEM NUMBER (MAY BE ALPHAMERIC) 
NOececeee eNUMBER OF OBSERVATIONS 
NXeeceeeeeeNUMBER OF VARIABLES 
NCoceccee eNUMBER OF CONDITIONS: 

NSeeeseee eNUMBER OF SELECTIONS 
NCARD.-eeee-NUMBER OF DATA CARDS PER OBSERVATION 


NCARD=NCARD*80,. 


BEGIN,. 

DECLARE 
(ACNO,NX) »C(35NC) »UBO(3) »S(NO) »RONC) »STATS(5),0(NX) -OD(3)) 
FLOAT BINARY». 


IF INPUT DATA IS TO BE SAVED ON A DATA SET, 
NV=1. OTHERWISE NV=0. 


INITIALIZE 


NV =O, 
DO I = 1 TO NOsg. 
CALL DATLUNX+sD) 9. 
DO J = 1 TO NXs. 
ACI,J)=HD( J) 96 
END,y. 
END,. 
NCARD=80,. 
DO [I = 1 TO NCe.e 
NNN =3y6 
CALL DAT1 (NNN,DD),. 
* pO J = 1 TO 3e.- 
C(JeI)=DD( J)». 
ENDs. 
END». 
CALL SBST (AsCeReBOOLsSeNOeNXeNC) 
PUT EDIT ("DATA SCREENING PROBLEM*,PR1) 
IF ERROR NE ‘0? 
THEN 0O,. 
PUT EDIT (*IN ROUTINE SBST ERROR CODE = 
CSKIP (2) COLUMNE LO) 2A, A(L))_. 
GO TO FIN». 
END,. 
PUT EDIT (*SUBSET “VECTOR*) (SKIP(3) ,COLUMN(10) sAySKIP(3)),. 
NCOL =CEIL(NO/50);.- 
TF NCOL LE lL 
THEN PUT EDIT ((1,S(1) DO I= 1 TO NO)) 
ELSE DO,. 
tl 


/* READ IN DATA 


/* READ IN CONDITIONS 


(PAGE, COLUMN( 10) sAeX14) 9A) 


', ERROR) 


(COLUMN(1LO) SF (6G) ,FU Se LI) v6 


=O 

00 I = 1 TO 50>. 

ll =Lltly. 

L2 =50*(NCOL- 1)+L1ly. 

IF L2= NO 

THEN NCOL =NCOL~—1,. 

PUT EDIT ((JsS(J) DO J= L1 TO L2 BY 50)) (SKIP, COLUMN(10 
9(9)(F (6) pF (591) )) 96 

END». 

END». 

00 J = 1 TO NS». 

GET EDIT (CH) (A(80));. 

GET STRING (CH) EDIT (NOVAR» (UBOLT) 

(CF05) 93 FC10:0))5.. 


DO I= 1 TO 3)) 


/* 
/* 
/* 
1* 
1% 
1* 
NN 
TWO 
BEGINe. 
DECLARE 
(FREQ(NN),PCTONN)) FLOAT BINARY? 
CALL TAB1 (AsSyNOVAR,UBOsFREQ »PCTsSTATS »NOyNX) 9« 
IF ERROR NE 'O® 
THEN PUT EDIT (*IN ROUTINE TABIL ERROR CODE = 
a cc athe 
DO 3. 
‘PUT EDIT (*SUMMARY ‘STATISTICS FOR VARIABLE 
CPAGEy SKIP (4) »COLUMN(10) »AsF(3) )9- 
PUT EDIT (*TOTAL =",STATS(1), "AVERAGE =",STATS(2), 


NOVAR«seeeNUMBER OF THE VARIABLE TO BE TABULATED 
UBO(1)....LQWER BOUND 

UBO(2)..2.eNUMBER OF INTERVALS 

UBO(3)..2-e-UPPER BOUND 


=UB0(2)2- 


*, ERROR) 


ELSE 
*,NOVAR) 


"MAXIMUM =',STATS(5)) 
(SKIP (2) _COLUMN(10) 25 (A, F9s3VsK(2)) N90 
CALL HIST (JsFREQ)NN) oe. 


Ss 


DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 

DACR 

DACR 

DACR 

DACR 

DACR 

DACR 

DACR 

DACR 

DACR 
*/DACR 

DACR 

DACR 

DACR 

DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 

DACR 

DACR 

OACR 

DACR 

DACR 

DACR 
*/DACR 
*/DACR 
*/DACR 
*/DACR 


DACR. 


*/DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 

*/DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 

» -DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 

) DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 

*/DACR 

*/DACR 

*/DACR 

*/DACR 

*/DACR 

*/DACR 

DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 
DACR 


10 


20 


30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
$50 
960 
970 
980 
990 


DACR1OCO 
"STANDARD DEVIATION =*ySTATS(3)_ "MINIMUM ="ySTATS(4),DACRLOLO 

DACR1020 
DACR1030 
DACR1040 


END, 
END,. 

END»). 

PUT EDIT (END OF CASE*) 

END»). 

GO TO STRT>. 
EXIT... 

PUT FILE (SYSPRINT) EDIT ("END OF SAMPLE PROGRAM!) 
(SKIP(5),COLUMN(10) A} ys. 


(SKIP (2),COLUMN(10),A)¢. 


FINe. 
END,. 


/*END OF PROCEDURE DACR 


BOOL.. 


DACR1050 
DACR1060 
DACR1070 
DACR1080 
DACR1090 
DACR1100 
DACR1110 
DACR1120 
DACR1130 
DACR1140 


BOOL 


SPRIRSEAMRSAASE KK KS CHEK EKARSEK AS SEK SKA AA SRAM EKER REE ER ERK EKER KES /AOCL 


1* 
* TO PERFCRM A BCGLEAN CPERATICN FCR TKE PROCEDURE SBSTy¢ 
1S USED BY THE DATA SCREENING SAMPLE PRCGRAM. 


*/BOOL 
WEICH */BOCL 
*/BOOL 


*/BOCL 
/PRSRORAPRREE REE OAS ER EEE SEAT EK SEGRE RARER ERE RES EKER ERE SEEK EES ERERESH/BOCL 


PROCEDURE (RyT)o~ 

DECLARE (R(*#),T) FLCAT BINARY». 
BOOL CHECKS GNLY THE FIRST TWO CONDITICNS CF PROCEDURE SBST 

T =RULPR(2) 96 

RETURN». 

END, - 


1* 


/*ENO CF PROCECURE BOOL 


HIST... 


POOL 
BOCL 


*/BOCL 


BOOL 
BOCL 


*/BOOL 


HIST 


SP EEEEREEEAAKEEEEE BERBERA KS HEB IKSEEHREREERE SEARS RAE EEK ASKER ERAE EE RESH ERE / HIST 
*/HIST 


TC PLOT A HISTOGRAM CF FREQUENCIES FCR THE DATA SCREENING * 
SAMPLE PROGRAM. 


HIST 


*/HIST 


-*/HIST 
Peet rst i tert tii iti titrrtittttrttrcrcticrrrt ers Ti ttttitttt ttre? Toa eS 


PROCEDURE (NZsFREQsINDy~ 

DECLARE 
(Le LNeIXe Se JSCAL SL pMAXyNUNZ) 
FIXED BINARYs 
(K,JOUTCIN)) CHARACTER (1), 
(FREQ(*),9FMAX,X) FLOAT BINARY?. 


. HOST 


HIST 
HIST 


‘HIST 


HIST 
“HIST 


*/HIST 


PRINT TITLE AND FREQUENCY VECTOR 


*/HIST 


*/HIST 


PUT EDIT ( tHISTOGRAM 

NU =FLOOR(1OO/IN),. 

PUT EDIT (*FREQUENCY',(FREQ(I) DO T= 1 To 
(SKIP(2) »COLUMN( 10) sAgC IN) FUNU) Jy 


PUT EDIT ( '---—-------—---—---------------- -_-------—---——----1, 


ar is ee a ny 
(RUFM1)) 96 


"»NZ) (SKIP (3) sCOLUMK(57), ArF(3)}) 9-6 


IND) 


FM1.. 
FORMAT (SKIPy»COLUMN(12)2A,A)5~ 
FMAX =01. 
DO I = 1 TO IN;. 
IF FREQUI) GT FAX 
THEN FMAX =FREQUT ) e~ 
ENDe. ‘ 
JSCAL=1,. 
IF FMAX GT 50 
THEN DOs. 
JSCAL=FLOOR ({ FMAX+499/50) 5. 
PUT EDIT (*EACH*,»*#*," EQUAL *,JSCAL,* POINTS*) 
(SKIP pCCLUMN( 10) As ACL) ¢AsF C2) ¢AgSKIP) ys 


/* FIND LARGEST FREQUENCY 


/* SCALE IF NECESSARY 


ENDy. 


HIST 


HIST 
HIST 
HIST 
HIST 
HIST 
HUST 


*/DACR1150 


- HIST. 


HIST 2 


@/UIST 


HIST 
HIST 


HIST. 


HIST 


*/HIST 


HIST 
HIST 
HIST 
HIST 
HIST 
HIST 


=! ty. /* CLEAR CUTPUT AREA TO BLANKS ¥*/HIST 
*/HIST 


LOCATE FREQUENCIES IN EACH INTERVAL 


*/HIST 


*/HIST 


=FLOOR(FMAX/JSCAL),. 

00 I = 1 TO MAXy. 

x =MAX-(I-1)4- 

DO .J = 1 TO INee ; 
IF FREQ(J}/JSCAL GE x 
THEN JOUT(J)="**,. 
END. 

Ix =X*JSCALy. 


HIST 
HIST 
HIST 
HIST 
HIST 
HIST 
HIST 
HIST 


*/HIST 


PRINT LINE OF FREQUENCIES 


*/HIST 


¥*/HIST 


PUT EDIT (I1X,(JOUT(L) OG L = 1 TO IN)) (SKIP,COLUMN(101,F(5), 
X14) 9 CIN) CXONU-1),A01)))2- 

END,. 

CO ¥ = 1 TO INy. 

FREQ(I)=I 5. 

END,. 

PUT EDIT 
(3 ee 1) 
(RUFM1) Jo 

PUT EDIT CTINTERVAL | *,(FREQ(I) OG I = 1 TC IN)) 

{SKIP(2) ,CCLUMNULC) pAgCINDFCNU) Dee 

PUT EDIT ( CLASS") (SKIPs,COLUMN(10),A)>.~ 

RETURN». 

END. 


/* GENERATE CONSTANTS 


( 8 a a nn nr rrr , ’ 


/*END CF PROCEDURE HIST 


DAT1.. 
[94RRR AREER AAS SARE AEE ESE SEAT AE EE ERE EE AE TR ESATA AAER ENA ERE EEE E RASTER EES 
/* xf 
/* x/ 
/* */ 
/* x/ 
[ERORAREEEEARERER EEE ERE EOE EE EEE ERE EOE EAEE EES EERE EERE EAE EEE REE RRER EEE / 
PROCEDURE (MsD) 96 
DECLARE 
XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V(2000%200)), 
(NCARDeNV? EXTERNAL, 
CH CHARACTER(NCARC), 
(I4My4M) BINARY FIXED, 
D(*) FLOAT BINARY,. 


TO READ FLCATIANG PCINT DATA, ONE OBSERVATION AT A TIME. 
DATA MAY BE SAVED ON A DATA SET. 


*/ 
ON ENDFILE (SYSIN) 
GO TO EXIT». oe 
GET EDIT (CH) CAC NCARD)),.- 
MM = =CEIL( H/T) 9. 
GET STRING (CH) EDIT ((D(I) DO 
COMM) 007) F 01070) 9X(10)) Dye 


I= 1 TO M)) 
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HIST 
HIST 


HIST & 


*/HIST 


HIST 
HIST 
HIST 
HIST 
HIST 
HIST 
HIST 
HIST 
HIST 


*/HIST 


DAT1 
DATL 
DATIL-: 
DAT1- 
DATL 
DATL 
DATI 
DAT1 





DATL. — 


DATL 
DATL 
DATL 


- DATL 
‘DATL 


DAT1 
DATL 
OAT 


DATI 


DAT1 
DAT1 
DATL 
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DAT1 220 
THEN PUT FILE (XOATA) EDIT ((0(1) DO I= 1 TO M)) ({M)F16,0)),. DAT1 230 
REVERT ENDOFILE (SYSIN),. DAT1 240 
RETURNe. DAT1 250 

EX DAT1 260 

OAT1 270 

DAT1 280 


IF NV= 1 


ITee 

PUT FILE (SYSPRINT) EDIT (*ERROR INSUFFICIENT DATA*) 
(SKIP(1) »COLUMN(10) 9A) >. 

STOP,. DAT1 290 

ENDy. 


7*END CF PROCEDURE DAT1 */DAT1 300 


MULTIPLE LINEAR REGRESSION REGR 
Problem peserinton 


Multiple linear regression analysis is performed for 
a set of independent variables and a dependent vari- 
able. Selection of different sets of independent 
variables and designation of a dependent variable 
can be made as many times as desired. 

The sample problem for multiple linear regres- 
sion consists of 30 observations with six variables, 
as presented in Table 1. The first five variables 
are independent variables (predictors), and the last 
is the dependent variable (criteria). All five inde- 
pendent variables are used to predict the dependent 
variable in the first analysis, and only the second, 
third, and fifth variables are used to predict the 
dependent variable in the second analysis. 


Table 1, Sample Data for Multiple Linear Regression 
Variables 
Observation Xi Xo X3 XX Xs X¢6 





1 29 +=. 289 216 85 14 1 
sae 30 391 244 92 16 2 
3 30 424 246 90 18 2 
4 30 313 239 91 10 0 
5 35 243 275 95 30 2 
6. 35 365 . 219 95 21 2 
7 43 396 267 100 39 2 

8 43 356 274 79-19 2 
9° 44 346 255 126. 56 3 
10 44 156 258 95 28 0 
11 44 278 249 110 42 4 
12 44 349 252 88 21 1 
13 44 141 236 =§=129 56 =o 
14 44 245 236 97 24 1 
15 45. 297 256 111 45 3 
16 45 310 262 94 20 2 
17 45 151, 339 96 35 3 
18 45. 370 357 88 15 4 
19 45 379 198 147 64 4 
20. - 45 463 206 105s 31 3 
21 45 316 245 132 60 4 
22 45 - 280 225. ~~ 108 36 4 
23 44 395 215 101 27 1 
24 49 139 - 220 136 59 0 
25 49 245 205. 113 37 4 
26 49 373 215 88 25. = oT 
- 27 . 51 224 215 118 54 3 
28 ~—~=5l 677. 210 °# 116 33 4 
290 51 424 210 140 59 4 
30. 51 * 2150" 210 ~ 105 30° +3 #0 

Program 
Description 


The multiple linear regression program consists of 
_ the main program named REGR, two special input 





routines named DAT2 and IDT1, and four sub-— 
routines from the Scientific Subroutine Package: 
CORR, ORDR, MINV, and MLTR. 


Capacity 


1. Up to 99, 999 observations can be read if obser- 
vations are read into the computer one at a time by 
the special input subroutine named DAT2. If all data 
are to be stored in core before the calculation of 


~ correlation coefficients, the limitation on the number 


of observations depends on the size of core storage 
available for input data. _ 

2. Up to 96 variables can be handed: 

3. Up to 99 selections can be handled. 

4, Up to eight cards per observation can be read. 

5. (12 F (6, 0)) format for input data cards. 
Therefore, if a problem satisfies the above conditions, 
the sample program need not be modified. If the 
input data cards are prepared using a different for- 
mat, the input format in the subroutine DAT2 must 
be modified. The general rules for program modi- 
fications are described later. 

6. Up to 40 independent variables for one selec- 
tion-can be read. 


| Input 


Control Cards 


One control card is required for each problem and 
is read by the main program, REGR. This card is 
prepared as follows: 


For 
Columns Contents Sample 
| | | Problem 
1-6 Problem number (may be SAMPLE 
- alphameric) | 
7-11 Number of observations 00030 
12-13 Number of variables | 06 
14-15 Number of selections 02 
— (see below) _ 
16-17 Number of data cards per OL 
| observation © 


Leading zeros do not have to be keypunched. 
Data Cards 


Since input data is read into the computer one obser- | 
vation at a time, each row of data in Table 1 is key- 
punched on a\separate card using the format (12 F 

(6, 0)). This format assumes twelve 6-column 

fields per card. | 
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- Selection Cards 


For each selection there must be at least two cards, 
as described below. If the number of selections 
specified is zero, the program will terminate. An 
error message is printed out. 

‘The first card is used to specify a single dependent 
variable in a multiple linear regression analysis. 
Any one variable in the set of original variables can 
be designated as a dependent variable, and any posi- 
tive number of variables can be specified as inde- _ 
pendent variables. Selection of a single dependent 
variable and a set of independent variables can be 
_performed over and over again using the same set of 
original variables. | 


The first card is prepared as follows: 


For Sample Problem 


Columns Contents Selection1 Selection 2 
1-2 Option code for table 01 01 
of residuals 0 if 
table is not desired; 
1 if table is 
desired. 
3-4 Dependent variable 06 06 
designated for the 
forthcoming re- 
sression. 
5-6 Number of independ- 05 03 


ent variables in- 
cluded in the forth- 
coming regression, 
(the subscript num- 
bers of individual 
variables are 
specified below). 


The second card is prepared as follows: 


: For Sample Problem 
Contents 


Columns Selection1 Selection 2 

1-2 | 1st independent 01 02 
variable included 

3-4 2nd independent 02 03 
variable included | 

5-6 3rd independent 603 05 
variable included : 

7-8 4th independent 04 
variable included 

9-10 5th independent 05 
variable included 

etc. 


The input format of (40 F (2))is used for the 
second card. 


Deck Setup 


Deck setup is shown in Figure 14. 


Selection 
Cards 
TT EE”, 
=— 


Control 
Card 





Last problem 







/ 
ny; 






Selection 
Cards 


Control | 


Second problem 






Card 











Selection 


Cards 





First problem 










Control 
' Card 





Procedures and main program 


Figure 14, 


Sample 


The listing of input cards for the sample problem is 
shown in Figure 15. | | 
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SAPPLECCC3CCé0z 1 
2s 2€S 21é 
391 244 
424 24€ 
312 235 
243 275 
3€§ 21S 
3S6é 2€7 
356 274 
346 255 
156 Z5€ 
27E 24S 
249 252. 
141 236 
245 23€ 
2s7 256 
21C€ 262 
161 33S 
37C€ 357 
37S 1SE— 
463 z2Cé 
316 245 
2EC 225 
365 215 
12S 22C 
245 2c5 
373 215 
224 = 215 
é77 210 
424 210 
51. 186 21c 
€106C5 
C1c2c2c4cs5 
C1cé6c3 
C2c3cs 


Af HWE HPOK LF ARWA PWN We ree SPOWNWNNY ON A 





Figure 15. 


Output _ 6. Computed T values 
| | 7 : 7. Intercept 
Description | “3 8. Multiple correlation coefficients 
7 9. Standard error of estimate 
The output based on the selection card of the sample 10. Beta coefficients | 
program for multiple linear regression includes: 11. Analysis of variance for the multiple regression 
1. Means , 12. Table of residuals (optional) 
2. Standard deviations - : oo | 
3. Correlation coefficients between independent Sample 
variables and dependent variables | | 
4, Regression coefficients | The output listing for the sample problem is shown in 
5. Standard errors of regression coefficients Figure 16. | 
MULTIPLE REGRESSION..... SAMPLE 


NUMBER OF OBSERVATIONS..« 30 


NUMBER OF VARIABLES. sees 6 
SELECTIONs sees 1 
- VARIABLE MEAN STANDARD CORRELATION REGRESSION STD. ERROR COMPUTED BETA 
NO. DEVIATION X VS Y COEFFICIENT OF REG.COEFF. T VALUE COEFF. 
1 4313333 6.52176 0.28422 0.01242 0.03635 0.34171 0.05735 
2 316. 16650 114..42990 0.42189 0.00739 0.00186 3.96545 0.59826 
3 241.79999 36.43074 0.11900 0.01504 0.00635 2.36881 0.38790 
ri 105. 66666 17.85640 0.37822 0.00151 0.03679 0.04100 - Q.01907 © 
5 34.13333 15.97571 0.39412 0.04919 0.04141 1.18782 0.55631 
DEPENDENT —— 
6 2226667 1.41259 
INTERCEPT -6.07928 
MULTIPLE CORRELATION 0.73575 
STD. ERROR OF ESTIMATE 1.05162 


ANALYSIS OF VARIANCE FOR THE REGRESSION 


SOURCE OF VARIATION DEGREES SUM OF MEAN F VALUE 


; OF FREEDOM SQUAPES SQUARES 
ATRRIBUTABLE TO REGRESSION ' 5 - 31.32506 6.26501 5.66508 
DEVIATION FROM REGRESSIO 24 26-54161 1.10590 
TOTAL 29 57.86667 . tae tbs 


Figure 16 
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MULTIPLE REGRESSION... +SAMPLE 


SELECTION..2-. 1 
TABLE OF RESIDUALS 


CASE NO. Y VALUE Y ESTIMATE 
l 1.c0000 0.48091 
2 2.00000 1.7767C 
3 2.cocco 2214586 
4 0.00000 0.8288C 
5 2.0C0CO 1.90522 
6 2.c00C0 1.52125 
T 3.00000 3446447 
8 2.00000 2.25887 
9 3.00000 3.80259 
10 c.0coce 1.02042 
il 4.00000 2.49735 

12 1.00000 2.00066 
13 1.00000 2.00735 
14 1.cc000 1.15308 
15 3.00000 2290446 
16 2.c0000 1.832532 
17 3.00000 2.56004 
18 4.c0000 3.245229 
19 ‘4.00000 3.62661 
20 3.0C000 2.68068 
21 4.00000 3.64885 
22 4.00000 1.86542 
23 1.00000 2-C9863 
24 @.co0000 1.97217 
25 4.00000 1.41253 
26 1.c0000 1.88027 
27 3.00000 2227646 
28 4.00000 4.51080 
29 4.00000 3.95745 
30 0.c0000 0.45458 


MULTIPLE REGRESSION. «+e SAMPLE 
NUMBER OF OBSERVATIONS...« 30 
NUMBER OF VARIABLES..ceee 6 


SELECTION.eeee 2 


VARIABLE MEAN STANDARD 
NO. DEVIATION 
2 316. 16650 114.42990 
3 241.79999 36.43074 
5 34.13333 15.97571 
DEPENDENT 
6 2.26667 1.41259 
INTERCEPT -5.53528 
MULTIPLE CORRELATION 0.73423 


STD. ERROR OF ESTIMATE 1.01282 


RESIDUAL 


6.51969 
0.2233C 
-C.14586 
-0.8288C 
0.09478 
0.47875 
0.46447 
-0.25887 
~-0.80259 
~1.02042 
1.50265 
-1.COC66 
-1.C0735 
-0.153C8 
C.C9554 
0.16468 
C.43996 
C.54771 
C.27339 
0.31932 
0.35115 
2.13458 
-1.09863 
-1.97217 
258747 
-0.88027 
C.72354 
-C.51086 
0.04255 


’ CORRELATION 


xX vs Y 

0.42189 
0.1190C 
0.39412 


‘ REGRESSION STO. ERROR COMPUTED 
COEFFICIENT OF REG.COEFF. T VALUE 
0.00744 0.00172 4.31763 
0.01497 0.CO551 2.71693 
0.05363 0.01258 4226262 


ANALYSIS OF VARIANCE FOR THE REGRESSION 


SOURCE OF VARIATION DEGREES SUM OF 
OF FREEDOM SQUARES 
ATRRIBUTABLE TO REGRESSION 3 3119594 
DEVIATION FROM REGRESSION 26 2667073 
TOTAL : 29 57.86667 
MULTIPLE REGRESSION... oe SAMPLE 
SELECTION eceee 2 
TABLE OF RESIDUALS 
CASE NO. Y VALUE Y ESTIMATE RESIOUAL 
l 1.00000 C.59869 0.40131 
2 2.coo00ce 1.88363 0.11637 
3 2.00000 2.26619 —-0.2661S5 
4 c.co0co C.90704 ~0.90704 
5 2.00000 1.99812 C.CC1LE8 
& 2.00000 1.584908 0.41592 
T 3.000CO0 3.49858 -0.49858 
8 2.C00C0 2.23348 -0.23348 
9 2.0c0CcCc 3.85875 ~0.85875 
1c c.ococo 0.98943 . —0.98943 
Yl 4.00900 2.51254 1.48746 
12 ‘s 1.0c0co 1.95925 -0.95925 
13)C 1.000CO 2.04998 —-1.04998 
14 1.c000c0 1.10726 -0-10726 
15 3.00000 2.91951 C.08049 
16 2.00000 1.76539 0.23461 
17 3.00000 2.54C52 0.45948 
18 4.c0000 "3.36591 0.634C9 
19 4.CO00CO 3.67961 0.32039 
20 3.00000 2.65435 0.34565 
21 4.COQ0d0 3.70045 0.29955 
22 4.000C0 1.84629 2.15371 
23 1.0c00c ° 2.06960 -1.06900 - 
24 0.0c0CcO 1.95646 1.95640 
25 4-C0000 1.24C€15 2.65981 
26 1.cc000 1.79817 -0.79817 
27 3.00000 2624542 0.75458 
28 4.00000 4.41268 -0.41268 
29 4.000CC 3.92577 C.07423 
30 0.ccoccd 0.33332 ‘-G. 33332 


END OF SAMPLE PROGRAM 


' Figure 16. (Continued) 


MEAN F VALUE 
SQUARES 
10.39865 10.13714 
1.02580 
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BETA 

COEFF. 
0.60233 
0.38618 
0.60648 
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Program Modifications 


Input data in a different format can also be handled 
by providing a special format statement. 

1. Changes in the input format statement of the 
special input routine DAT2: | 

Only the format statement for input data may be 
changed. Since sample dataare either one-, two-, or 
three-digit numbers, rather than using six-column 
fields, as in the sample problem, each row of data 
might have been keypunched in six 3-column fields; 
if so, the format is changed to (6 F (3, 0)). 

The special input subroutine, DAT2, is nor- 
mally written by the user to handle different formats 
for different problems. The user may modify this 
routine to perform listing of input data, transforma- 
tion of data, and so on. When doing so, attention 
should be paid to the format statement in DAT2 
(DAT2 230) which writes on the intermediate data 
set. The format in this statement must be the 
same as the format in statement REGR 1860. 

2. If there are more than twelve variables in a 
problem, each row of data is continued on the next 
cards, until the last data point is keypunched. How- 
ever, each row of data must begin on a new card. 

In the sample problem there is one data card 
per row, so the value of the card count indicator 
(NCARD), which appears in columns 16 and 17 of the 
control card, is set to one. If there is more than 
one data card per row, the value of the card count 
indicator (NCARD) must eve with the number of 
data cards per row. 

3. Although the program will allow 96 variables, 
the maximum number of independent variables that 
may be specified on one selection is 40. 


Error Messages 


The following error conditions will result in 
messages: 

1. The number of selections is not specified on 
the control card: NUMBER OF SELECTIONS NOT 
SPECIFIED, JOB TERMINATED. 


Operating Instructions 


‘The sample program for multiple linear regression 
is a standard PL/I program. Special operating 
instructions are not required. Data set SYSIN is 
used for input; data set SYSPRINT, for output. A 
scratch tape (data set XDATA) is used as inter- 
mediate storage. 


Timing 





The execution time of this sample program on a 
System/360 Model 40, using an IBM 2540 Card 
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Reader as input and an IBM 1403, Model N1, as 
output, is 40 seconds. 


‘T REGRee 


REGR 


: / SOT T RT ee ser Cnr neta ne Seer ce ce ee $4 EEERE RR ERERER ER EREEEREEE/R EGR 


“* 
/* 
/* 
/* 
4* 
/* 


*/REGR 


TO READ THE PROBLEM PARAMETER CARD FOR A MULTIPLE REGRESSION, */REGR 
READ SUBSET SELECTION CARDS, CALL THE PROCEDURES TO CALCULATE*/REGR 


MEANS, STANDARD DEVIATIONS, SIMPLE ANO MULTIPLE CORRELATION 
T-VALUES, BETA COEFF- */REGR 


COEFFICIENTS, REGRESSION’ COEFFICIENTS, 
ICIENTS, AND ANALYSIS OF VARIANCE FOR MULTIPLE REGRESSION, 
AND PRINT THE RESULTS. 


*/REGR 


*/REGR 
*/REGR | 
*/REGR 


; | #888 AA HAAAAHESSESSSA IADR ORSSSS HAAR ANSE SE SAEHNSEERESEEAA IIH ESSAAIIA ESS REGR 
PROCEDURE OPTIONS (MAIN)».~ 
DECLARE 


/* 
FMLee 


(Ilyg Tl 9109 JSyK eb o> MeMMeN»NDEP,NRESI gNSoL1 yL2) FIXED BINARY» 
XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V{20001200)), 
(NCARD,NV) EXTERNALs : 
ERROR EXTERNAL CHARACTER (1), 

CH CHARACTER (80)>» 

PR1 CHARACTER (6) 3-6 


FORMAT (A(6)9F(5)e3 Fl2)) 96 


ON ENDFILE (SYSIN) GO TO EXITy.- 


1% 
1* 
1% 


1% 
$1006. 


INPUT DATA IS SAVED IF NV IS SET TO 1 


GET EDIT (CH) (A(80))>.~ 
GET STRING (CH) EDIT (PR1LyNyMeNSeNCARD) (R(FM1))9- 


NAME - PROBLEM NUMBER (MAY BE ALPHAMERIC) 
N ~ NUMBER OF OBSERVATIONS 
ae - NUMBER OF VARIABLES 
— NUMBER OF SELECTIONS 
NCARO- NUMBER OF DATA CARDS PER OBSERVATION 


NCARD=NCARD*80>7. 


Zoe . 
- FORMAT (PAGEsSKIP(4),COLUMN(10)>» AyA(6)_9SKIP(2),COLUMN(10) 9Ay Ay 


FS) pSKIP(2) pCOLUMN(10) sAyFU5) ySKEP(2) sCOLUMN( LO) 2AxF (20) 


DECLARE 


10 
xX 


(X€1s1).H(M) sREST) 
FLGAT BINARY,» 


REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR | 
REGR 
*/REGR 
REGR 
REGR 
REGR © 
*/REGR 
*/REGR 
*/REGR 
REGR 
*/REGR 
REGR 
REGR 
REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
REGR 
*/REGR 
REGR 
REGR 
REGR 
REGR 
° REGR 
REGR 
REGR 
REGR 


(RUMsM) pRXCM)M) »XBAR(M) ¢RYCM) 9D(M) ¢STD(M)  ANS(10)5 FSUM, DET »CON)REGR 


BINARY FLOATys. 
BINARY FLOAT (53)¢. 


=09- 


=09 


OPEN FILE (XDATA) OUTPUT?. 

. CALL CORR (NeMelOeXeXBARySTDsRXyRyD) 9 
CLOSE FILE (XDATA) +. 
IF ERROR NE *O* 


THEN PUT EDIT 


(*IN ROUTINE CORR ERROR CODE = 
(SKIP (2),COLUMN(10) sAxA(1) Doe 


*, ERROR) 


TEST NUMBER OF SELECTIONS 


IF NS LE 0 
THEN DO,. 
PUT EDIT (*NUMBER OF SELECTIONS NOT SPECIFIED. JOB PERM SHAT EO MIRED 


(SKIP(4) ,COLUMN(10)7A)_.~ 

GO TO S$300,. 

END». 

DO I = 1 TO NS». 

PUT EDIT (*MULTIPLE REGRESSION 
*"TIONSeee'sNy*NUMBER OF VARIABLES 
"SELECTION *,1) (ROFM2)),. 


READ SUBSET SELECTION CARD 


GET EDIT (CH) (A(80)),. 


KRED.e 


Appendix B--Sample Program--Multiple Regression 


GET STRING (CH) EDIT (NRESI,NDEP,K) (3 F(2))96 


FORMAT (SKIP »COLUMN(10) sF(4) 97 F(l4e5))¢~ 


FORMAT (PAGE, SKIP (4) ,COLUMN(10) ,AyA(6) »SKIP(2) sCOLUMN(10), 
AvF(2)),. 

DECLARE 
(RZCKyK) yBCUK) sSBCK) > T(K) s BETACK) RT(K)) 
BINARY FLOAT, . /*SINGLE PRECISION VERSION 
BINARY FLOAT (53) /*DOUBLE PRECISION VERSION 
(IESAVE(K+1)) 
FIXED BINARY?. 


CALL IDTL (KyISAVE) >». 


NRESI — OPTION CODE FOR TABLE OF RESIOUALS 
O IF IT IS NOT DESIRED. 
1 IF IT IS DESIRED. 
- DEPENDENT VARIABLE. 
K —- NUMBER OF INDEPENDENT VARIABLES INCLUDED 
ISAVE — A VECTOR CONTAINING THE INDEPENDENT VARIABLES 
INCLUDED 


NDEP 


CALL OROR (MyReNDEP sKeI SAVE yRZyRT) 9% 
IF ERROR NE *O* 
THEN DO9- ; 
PUT EDIT (*IN ROUTINE ORDR ERROR CODE = *,ERROR) | 
(SKIP(2) ,COLUMN(10) sAsAC1) ) 9 
GO TO $200). 
END, 
CON =0.0, 
CALL MINV(RZ»KsDET,CON) 96 


TEST SINGULARITY OF THE MATRIX INVERTED 


IF ERROR NE *0* 
THEN DOy. 
PUT EDIT(*IN ROUTINE MINV ERROR = 
COLUMN(10) sAsAC1L))e~ 
GO TO S200;. 
END,. 


*,ERROR) (SKIP(2), 


*,PR1l,"*NUMBER OF OBSERVA', 


/*SINGLE PRECISION VERSION /*S*/REGR 
/*DOUBLE PRECISION VERSION /*D*/REGR 


*/REGR 
REGR 
REGR . 
REGR . 
REGR 
REGR 
REGR 
REGR 
REGR 

*/REGR 

*/REGR 

*/REGR 
REGR 
REGR 


REGR 
REGR 
REGR 
REGR . 
REGR 
REGR 
REGR 
*/REGR 
*/REGR 
*/REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
REGR 
/*S*/REGR 
/*D*/REGR 
REGR 
REGR 
*/REGR 
REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR 
*/REGR1LOOO 
*/REGRLO1LO 
*/REGRLO2ZO 
REGR1O30 
REGR1040 
REGR1O50 
REGR1060 
REGRLO7O 
REGR1080 
REGR1O90 
REGRLLOO 
REGR1110 
*/REGR1120 
*/REGR1130 
*/REGR1140 
- REGR1150 
REGR1160 
REGR1170 
REGR1180 
REGR1190 
REGR1200 
*/REGR1210 





CALL MLTR (NyKsXBAReSTD ¢DyRZoRTs ISAVEs By SB, TyBETAyANS) »o 
IF ERROR NE ‘0? 
THEN DOse 
PUT EDIT ("IN ROUTINE MLTR ERROR CODE = 
(SKIP(2) -COLUMN(10),AsACL)),.~ 
GO TO S200. 
END». 


*,ERROR) 


INTERCORRELATIONS BETWEEN 
STANDARD DEVIATIONS OF 
AND BETA 


PRINT MEANS» STANDARD DEVIATIONS, 
X AND Y~y REGRESSION COEFFICIENTS, 
REGRESSION COEFFICIENTS, COMPUTED T VALUES, 
COEFFICIENTS. 


MM =Ktlye 

PUT EDIT (*VARIABLE*» *MEAN®*, *STANDARD!* » "CORRELATION", 
*REGRESSION®,*STD. ERROR' » *COMPUTED*", *BETAt,'NO.', 
"DEVIATION'»s*X VS Y*",*COEFFICIENT*,*OF REG.COEFF.', 
*T VALUES, *COEFF.*) (SKIP(2),COLUMN(LO) sAyX(5) 9A, 
X06) pAe X06) pAg X04) pAvX14) pAdX(5) 9A X07) sAeSKIP? 
COLUMN( 12) eAgX(18) pAgX(7)eAgX(7) oAsX(3) 2ArX(3) 2 Ay 
X(T) Ad ae : 
dO J = 1 TO Kye 
L =ISAVE(J)¢- 


REGR1220 
REGR1230 
REGR1240 
REGR1250 
REGRL260 
REGRL270 
REGR1280 
*/REGR1L290 
*/REGR1300 
*/REGR1310 
*/REGR1320 
*/REGR1330 
*/REGR1340 
REGR1350 
REGR1360 


REGR1370° 


REGR1380 
REGR1390 
REGR1I400 
REGR1410 
REGR1420 
REGR1430 
REGR1440 


PUT EDIT (LyXBAR(L) ySTD(L) »RT( J) 2 BUS) sSBCS) T(J) »BETACJ)) REGR1450 


(RCFM3)) 56 
ENDy. 
PUT EDIT (*DEPENDENT') 
L =ISAVE(MM) +- 
PUT EDIT (LyXBAR(L) sSTOCL)) 


(SKIP (2) ,COLUMN(10),A),. 
(R(FM3) )_- 
AND 


PRINT INTERCEPT» MULTIPLE CORRELATION COEFFICIENT, 
STANDARD ERROR OF ESTIMATE 


PUT EDIT (*INTERCEPT* ,ANS(1),*MULTIPLE CORRELATION 
*STD. ERROR OF ESTIMATE'sANS(3)) (SKIP(3)_9COLUMN(10), 


AdX(10) 5F 01695) 9(12) (SKIP(2) »COLUMN(10) 5A, F(1355)))9.~ 
PRINT ANALYSIS OF VARIANCE FOR THE REGRESSION 


PUT EDIT ("ANALYSIS OF VARIANCE FOR THE REGRESSION ', 
"SOURCE OF VARIATION',*DEGREES',*SUM OF*,*MEAN', 
' F VALUE', "OF FREEDOM", 'SQUARES',» *SQUARES®) 
(SKIP (2) »COLUMN(3L) pAySKIP(2) sCOLUMN(L5) 9 ApX(7) pA 
X07) 9AgX (10) pA eX(09) pAg SKIP COLUMN(40) 9 Ay X(4)9 Ae 
X¢9) Adee 
L =ANS(8) pe 
PUT EDIT (*ATRRIBUTABLE TO REGRESSION 
’  ANSO1O), "DEVIATION FROM REGRESSION tL eANS(7) 
ANS(9))) (CSKIP,COLUMN(1LO) »,AsF(6) 3 Fl16e5),SKIP> 
COLUMN(10) sAyF (6) 92 Fl1695))9~ 
L =N—-lee 
FSUM =ANS(4)+ANS(7) 96 
PUT EDIT( *TOTAL® »LyFSUM) 
IF NRESI LE O 
THEN GO TO $200). 
PUT EDIT (*MULTIPLE REGRESSION. ecee' sPRie *SELECTIONescoe' sI) 
(RUFM4)) 9. 
PUT EDIT (* TABLE OF RESIDUALS',*CASE NOo*s"Y VALUE', 
"Y ESTIMATE", *RESIDUAL") (SKIP,yCOLUMN(25) pAySKIP(2)y 
COLUMN(10) sAsX(5) sArX(5) pAeX (6) 2Ad os 
MM =s- =I SAVE( K#1) 96 
OPEN FILE (XDATA) INPUT s. 
DO II = 1 TO Nye 
GET FILE (XDATA) EDIT ((Wty) DO J= 1 TO M)) 
((M)F(6,0)),- 
FSUM =ANS(1) ¢~ 
DO J = 1 TO Kye 
L =ISAVE(JS) 96 
FSUM =FSUM#W(L)*B(J) 96 
END 9. 
RESI =W(MM)—-FSUM». 
PUT EDIT (11 —W(MM) sFSUM,/RESI) (CCOLUMN(LO),F(5)5F(1595)¢% 
; 2 F(1495)),. : 
END,. 
CLOSE FILE (XODATA),. 


*9Ke ANS(4),ANS(6), 


(COLUMN(1L5) »AgX019)0,F (6) ,F (1695) )2- 


GO TO S100,. 


EXIT... 


PUT FILE 


$300.2. 


ENDy. 


DAT2 ee 


(SYSPRINT) EDIT (*END OF SAMPLE PROGRAM‘) 
(SKIP(5),COLUMN(10) sA)>. 


/*END OF PROCEDURE REGR 


*,ANS(2), 


REGR1460 
REGR1470 
REGR1480 
REGR1490 
REGR1500 
*/REGRL510 
*/REGRL520 
*/REGR1530 
*/REGRL540 
REGRL550 
REGR1560 


REGRL570 
*/REGR1580 
*/REGR1590 
*/REGR1600 

REGR1610 

REGR1L620 

REGR1630 

REGR1640 

REGR1650 

REGR1660 

REGR1670 

REGR1680 

REGR1690 

REGRL7O0O 

REGR1710 

REGRL720 

REGR1730 

REGR1740 

REGRL750 

REGR1L760 

REGRL770 

REGRL780 

REGR1790 

REGR1800 

REGR1L810 

REGR1820 

REGR1830 

REGR1840 

REGR1850 

REGR1860 

REGR1870 

REGR1880 

REGR1890 

REGR1900 

REGR1910 

REGR1920 

REGR1930 

REGR1940 

REGR1950 

REGR1L960 

REGR2010 

REGR2020 

REGR2030 

REGR2040 

REGR2050 
*/REGR2060 


DAT2 


FRR RE IRR ae Re a a Ret de ae ae ae ae akc 2 abe ge abe ae 2 ae Xe ate a ae ae fe ate ae ake a ape ge ate ak a eo ate ea ok dk tok Ke kK, DATO 


/* 
1% 
1% 
1% 


TQ READ FLOATING POINT DATA, ONE OBSERVATION AT A TIME. 
DATA MAY BE SAVED ON A DATA SET. 


*/DAT2 
*/DAT2 
*/DAT2 
*/DAT2 


(DER RC IOI GOR Oa io tai oa a aaa oo ak tk ie cat & / DAT 2 
PROCEDURE (MeD),. 
DECLARE 


XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V(2000,200)), 
(NCARD,NV) EXTERNAL,» 

CH CHARACTER(NCARD), 

(I,MyMM) FIXED BINARY, 

O(*) FLOAT BINARPY,. 


ON ENDFILE (SYSIN) 
GO TO EXIT,. 


GET EDIT (CH) 


MM 


(ACNCARD)),. 
=CEIL(M/12);-. 


GET STRING (CH) EDIT (€(OCI) DO I= 1 To M)) 


(COMM) CC 1L2)F 06,0) ,.X(8))),.- 


IF NV= 1 

THEN PUT FILE (XDATA) EDIT (CD(T) DO T= 1 TO MD) COM)F(6,0)),. 
REVERT ENDFILE (SYSIN),. 

RETURN». 


EXIT.. 


PUT FILE (SYSPRINT) EOIT (*ERPROR 


INSUFFICIENT DATA') 
(SKIP(1),COLUMN(10) 5A),. 


STOP,. 


END,. 


/*END OF PROCEDURE DAT2 


DAT2 — 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 

*/DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 

*/DAT2 





Appendix B--Sample Program--Stepwise Regression 


IDTL.. ToTL 
[RH RR RE RR I RR RR HR a a OR REESE, T OTL 
/* */IOT1L 
/* TO READ FIXED POINT DATA. */IDT1 
/* */TOT1 
[PA RR RR RR a HO a HH REE, TOT) 
PROCEDURE (M,IX)¢.~ 1oTl 
DECLARE IDTl 

CH CHARACTER (80) IoTl 

CIXC#) »NEyNLyN29MoT) IoTl 

FIXED BINARY ,. IoT1l 

=40). 1OT1 

=lye IOT1 

=NF». IoTl 

IpT1 
IoT. 
1oTl 
IoTl 
IoTl 
IoTl 
IOTL 
IoT1 
pT 
1oT1 
1oTl 
1O0T1 
*/IOT1 


=My. 

GET EDIT (CH) (A80)),. 
GET STRING (CH) EOIT CCIXC(I) DO T= Nl TO N2)) CONF)F(2)),. 
Nl =N2+1lo. 5 
IF Nl LE M 
THEN O00,. 

N2 =N2+NF oe 

GO TO S1lOs. 

END,. 
RETURN. 


END». 7*END OF PROCEDURE IDTL 





“STEPWISE MULTIPLE REGRESSION STEP 


Problem Description 


Stepwise multiple regression analysis is performed 
for a set of independent variables and a dependent 
variable. Selection of different sets of independent 
variables and designation of a dependent variable can 
be made as many times as desired. 

1. The sample problem for stepwise multiple re- 
gression consists of 30 observations with six variables, 
as presented in Table 1 earlier in this Appendix. 

2. The first five variables are independent vari- 
ables, and the last variable is the dependent variable. 
All five independent variables are used to predict 
the dependent variable in the first analysis, and only 
the second, third, and fifth variables are used to 
predict the dependent variable in the second analysis. 


Program 





Description 


The stepwise multiple regression program consists | 
of the main routine named STEP, two special input 


subroutines named DAT2 and IDT2, an output/sub- 


routine named SOUT, and two routines from the 


‘Scientific Subroutine Package: CORR and STRG. 


Capacity 


1. Up to 99, 999 observations if observations are 
read into the computer one at a time by the special 
input routine. If all data are to be stored in core 
before the calculation of correlation coefficients, the 
limitation on the number of observations depends on 
the size of core storage available for input data. 

2. Up to 72 variables 

3. Up to 99 selections (must be greater than zero) 

4, (12 F(6, 0)) format for input data cards. There- 
fore if a problem satisfies the above conditions, the 


sample program need not be modified. If the input 
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data cards are prepared using a different format, the 
input format in the special input routine, DAT2, 

must be modified. The general rules for program 
modifications are described later. 


Input 

Control Card 

One control card is required for each problem and is 
read by the main program, STEP. This card is pre- 


pared as follows: 


For 


| Sample 
Columns Contents Problem 

1-6 Problem number (may be SAMPLE 

alphameric) 

7-11 Number of observations 00030 
12-13 Number of variables 06 
14-15 -Number of selections 02 
16-20 A constant value of pro- 0.0 

portion of sum of squares . 

that will be used to limit 

variables entering in the 

regression | 
21 Option code for table of | 1 

| residuals : 
- if it is not desired 
1 - if it is desired 

22-23 Number of cards per | 


observation 
Leading zeros do not have to be keypunched. 
Data Cards 


Since input data is read into the computer one obser- 
vation at a time, each row of data in table is key- _ 
punched on a separate card using the format (12 F 
(6, 0)). This format assumes twelve 6-column — 
fields per card. . 
ables in a problem, each row of data is continued on 
the next card until the last data point is keypunched. 


However, each row of data must begin on a new card. 


If there are more than twelve vari- 


Selection Card 


The selection card is used to specify a single de- 


_ pendent variable and a non-null set of independent 


variables in a stepwise multiple regression analysis. 
Any variable in the set of original'variables can be 
designated as a dependent variable, and any number 


of variables can be specified as independent variables. 


Selection of a dependent variable and a set of inde- 
pendent variables. can be performed over and over 
again using the same set of original variables. 
There must be a selection card in order for the 
program to continue. In the selection card each 


variable is specified using one of the following codes: | 


0 or blank - Independent variable available for 


selection 
1 6 Independent variable Eoneed in 
regression 
2 - Variable to be deleted 
3 - Dependent variable 
. | For Sample Problem ~ 
Columns Contents Selectioni1 Selection 2 
1 First variable 0 —(Y 
2 Second variable 0 0 
8 Third variable 60 0 
4. Fourth variable 0 2 
5 Fifth variable 0 0 
6 Sixth variable 3° 3 
72 72nd variable 


Leading zeros do not have to be keypunched. If more 
than 72 selections are made, continue selection 
specification codes beginning in column 1 of asecond 
card, 7 


Deck Setup 


Deck setup is shown in Figure 17. 
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' Selection 


Last problem 













Selection 
Cards 


Control 
Card 





s First problem 


Procedures and main program 





———— 
SESE SPE SITS 
STEP 


Figure 17. 


Sample 


The listing of the input cards for the sample problem 


is shown in Figure 18. 


SAMPLECCC3COE02 c.01 1 
2s 2eés 21€ &5 


391 244 $2 
424 246 
313 239 
243 275 
36€5 219 
3$6 267 
356 274 
346 255 
156 258 
27é 24S 
349 252 
141 236 
245 236 
2s7 256 
31C 262 
151 339 
37C 357 
37S 198 
4€3 206 
316 245 
28 225 
395 215 
12S 220 
245 205 
373 215 
224 215 
677 210 
424 210 
150° 210 


OL SWE DOR DHEWHHPUNWHE Hm ROWNWNHNONNE 


2cc2c2 


Figure 18. 
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Output 





Description 


The output of the sample program for stepwise mul- 
tiple regression includes: 
1. Means 
2. Standard deviations 
3. Correlation coefficients between independent 
variables and dependent variables 
4, Sum of squares reduced in the step 
5. Proportion reduced in the step 
6. Multiple correlation coefficient 
7. F value for analysis of variance 
8. Standard error of estimate 
9. Computed T value 
10. Beta coefficients 
11. Table of residuals (optional) 


Sample 


The output listing for the sample problem is shown 
in Figure 19. 


STEP-WISE MULTIPLE REGRESSIONe.e« «SAMPLE 


NUMBER OF OBSERVATIONS 
NUMBER OF VARIABLES 
NUMBER OF SELECTIONS 


CONSTANT TO LIMIT VARIABLE 0.00000 


VARIABLE MEAN STANDARD 

NO. DEVIATION 
43.13333 6.52176 

316.16650 114.42996 

241.79999 36.43074 

105 .66666 17.85640 

34.13333 15.97571 

2.26667 1.41259 


CORRELATION MATRIX 


ROW 1 . 
1.0000¢ ~0.06721 -0.13689 0.49755 0.55849 0.28422 


ROW 2 : 
-0.06721 1.00000 ~C.17857 -0.05227 -0.18381 0.42189 


ROW 3 . , 
-0.13689 §—0.17857 1.00000 -0.40874 -C.26319 0.11900 


ROW 4 
0.49755 —-0.05227 -C.40874 1.G0000 0.93552 0.37822 


ROW 5 
0.55849 -0.18381 -0.26319 0.93552 _ 1.C0000 0.39412 


ROW 6 
0.28422 0242189 6.119CC 0.37822  j$0439412 1.00000 
SELECTION 
DEPENDENT VARIABLE ccc ce cvcccs 6 
NUMBER OF VARIABLES FORCED.... © 
NUMBER OF VARIABLES DELETED... © 
STEP 1 


VARIABLE ENTEREDs.... 2 


SUM OF SQUARES REDUCED IN THIS STEP... 
PROPORTION REDUCED IN THIS STEP ‘ 


CUMULATIVE SUM OF SQUARES REDUCED 
CUMULATIVE PROPCRTION REDUCED .c er cesece . 57.867 


FOR 1 VARIABLES ENTERED. 
MULTIPLE CORRELATION COEFFICIENT... 0.422 
(ADJUSTED FOR D.F.) 0.422 
F~VALUE FOR ANALYSIS OF VARIANCE... 6.063 
STANDARD ERROR OF ESTIMATE. ccocccce 1.303 
(ADJUSTED FOR DoF.) ecvccvcccce 1.303 


VARIABLE REGRESSION STD. ERROR OF COMPUTED BETA 
NUMBER COEFFICIENT REG. COEFF. T-VALUE COEFFICIENT 
2 Q.C0521 0.00212 2-462 0.42189 
INTERCEPT 0.62005 





Figure 19. 
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STEP-WISE MULTIPLE REGRESSION... «SAMPLE 


SELECTIONescee 1 


STEP 2 | 
VARIABLE ENTERED 5 Verh at ee ene a 
CASE NO. Y VALUE Y ESTIMATE RESIDUAL 
1.c0 00 48 9 % e 
SUM OF SQUARES REDUCED IN THIS STEP.... 13.324 : ao eece ae eee Boece 
PROPORTION REDUCED IN THIS STEP.cccocce 0.230 3 2.00000 2.14586 -0.14586 
4 0.c000c 0.82880 -C.82880 
5 2.00000 1.90522 C.09478 
CUMULATIVE SUM OF SQUARES REDUCED.....- 232624 é 200000 1.52125 Go a7aTs 
CUMULATIVE PROPORTION REDUCED. ccecccces C.4C8 OF ' 57.867 7 3.00000 3.46447 0.46447 
8 2.00000 2.25887 --0.25887 
FOR 2 VARIABLES ENTERED 9 3.00000 3.80259 -0.80259 
MULTIPLE CORRELATION COEFFICIENT... 0.639 0.00000 1.02042 -1.02042 
(ADJUSTED FOR DeFedecccecceves 0.622 4.00000 2.49735 1.50265 
F-<VALUE FOR ANALYSIS OF VARIANCE... 9.314 : 1.00000 2.00065 -1,00065 
(ADJUSTED FOR DeF ele cccccccccs 1.146 1.00000 1.15308 -0.15308 
VAR TABLE REGRESSION. STD. ERROR OF COMPUTED BETA Seocaa seer See 
NUMBER COEFFICIENT REG. COEFF. T-VALUE COEFFICIENT 3.00000 2.56004 0.43996 
5 0.04316 0.01332 3.241 0.48817 4.00000 3.62661 0.37339 
EPT -1.20349 : ‘ fe 
TNTERC . 3.00000 2.68068 0.31932 
4.00000 3.64886 0.35114 
7 4.00000 1.86541 2.13459 
STEP 3 ; 1.C0000 2.09863 -1.09863 
. 0.00000 1.97217 -1.97217 
1.c00co 1.88027 -0. 88027 
SUM OF SQUARES REDUCED IN THIS STEP... 7.572 peas S evoce eee 
PROPORTION REDUCED IN THIS STEPsccccace 0.131 4.00000 3.95746 0.04254 
0.c0000 0.45458 ~0. 45458 
CUMULATIVE SUM OF SQUARES REOUCED.....- . 31.196. 
CUMULATIVE PROPORTION REDUCEDeesveceeees 0.539 OF 57.867 STEP-WISE MULTIPLE REGRESSION, ..++SAMPLE 
FOR 3 VARIABLES ENTERED SELECTIONesses 2 


MULTIPLE CORRELATION COEFFICIENT... 0.734 

(ADJUSTED FOR DeFuadecccvececee 0.711 
F-VALUE FOR ANALYSIS OF VARIANCE... 10.137 
STANDARD ERROR OF ESTIMATE. secceene 1.013 


DEPENDENT VARTABLE coc cnceeecee 6 
NUMBER OF VARIABLES FORCED.... O 
NUMBER OF VARIABLES DELETED... 2 





(ADJUSTED FOR DeFedeccceccecee 1.050 
VAR TABLE REGRESSION STD. ERROR OF COMPUTED BETA safes A 
NUMBER COEFFICIENT REG. COEFF. T-VALUE COEFFICIENT 
2 0.00744 0.00172 4.318 - 0.60233 
5 0.05363 0.01258 46263 0.60648 VORA RELE “RNTERED OR 023 “2 
3 0.01497 0.00551 2.717 0.38618 
INTERCEPT -5.53529 
SUM OF SQUARES REDUCED IN THIS STEP.ee. 
PROPORTION REDUCED IN THIS STEPsscccece 
STEP 4 = 
VARIABLE ENTEREDse.s- 1 CUMULATIVE SUM OF SQUARES REDUCED...... 
CUMULATIVE PROPORTION REDUCED. .eeceeees 
SUM OF SQUAFES REQUCED IN THIS STEP..e. 6127 FOR 1 VARIABLES ENTERED 
PROPCRTION REDUCED IN THIS STEP.o.ceees 0.002 MULTIPLE CORRELATION COEFFICIENT... C2422 
(ADJUSTED FOR DoF. )ecccccveees 0.422 
_F-VALUE FOR ANALYSIS OF VARIANCE... 6.063 
CUMULATIVE SUM OF SQUARES REDUCED...... 31.323 "STANDARD ERROR OF ESTIMATE. seeeeeee 1.303 
CUMULATIVE PFOPORTION REDUCED. .ccccccce C.541 OF 57.867 (ADJUSTED FOR DeFedececesveves 1.303 
FOR 4% VARIABLES ENTEPED VARIABLE REGRESSION STD. ERROR OF COMPUTED BETA 
MULTIPLE CORRELATION COEFFICIENT.<. 0.736 NUMBER COEFFICIENT REG. COEFF. T~VALUE COEFFICIENT 
(ADJUSTED FOR DeF.decccccccees 0.699 2 €.00521 0.00212 - 20462 0-42189 
F-VALUE FOR ANALYSIS GF VARIANCE... 7.375 INTERCEPT 0.62005 
STANDARD ERROR OF ESTIMATEscececees 1.036 
(ADJUSTED FOR DoF eds cccvecceee 1.088 
STEP 2 
VAR TABLE REGRESSION STD. ERROR OF COMPUTED BETA 
NUMBER COEFFICIENT REG. COEFF. T-VALUE COEFFICIENT VARIABLE ENTERED....- 5 
ot 0.00741 0.00175 4.222 0.59997 
5 0.05076 0.01524 3.332 0.57411 
3 C.C1493 C.00561 | 2.662 0.38499 SUM OF SQUARES REDUCED IN THIS STEP.... 
1 0.01226 0.03541 0.346" 0.05661 PROPCRTION REDUCED IN THIS STEP.cccccce 
INTERCEPT 5.94617 : 
CUMULATIVE SUM OF SQUARES REDUCED....-. 
VARTABLE ENTEREDeeeee 4 FOR 2 VARIABLES ENTERED 
MULTIPLE CORRELATION COEFFICIENT... 0.639 
(ADJUSTED FOR DoF edeccccccsecs C.622 
SUM OF SQUARES REDUCED IN THIS STEPsee. c.002 F-VALUE FOR ANALYSIS OF VARIANCE... 9.314 
PROPORTION FEDUCED IN THIS STEPesescece c.coc STANDARD ERROR OF ESTIMATE. soeesere 1.126 
(ADJUSTED FOR DoFelececccccece 1.146 
CUMULATIVE SUM OF SQUARES REDUCED...ce. 31.325 VARIABLE REGRESSION STD. ERROR OF COMPUTED BETA 
CUMULATIVE PROPORTION REDUCED. cceceecee C.541 OF 57.867 NUMBER © COEFFICIENT REG. COEFF. T-VALUE COEFFICIENT 
. 2 0.00632 0.00186 3.397 0.51162 
FOR 5 VARIABLES ENTERED 4 5 0.04316 0.01332 3.241 9.48817 
MULTIPLE CORRELATION COEFFICIENT... 0.736 ‘|. INTERCEPT -1.20349 
(ADJUSTED FOR DeFedecsececcoes 0.684 . 
F-VALUE FOR ANALYSIS OF VARIANCE... 5.665 STEP 3 
STANOAFD ERROR OF ESTIMATE. soeccece 1.052 
(ADJUSTED FOR DeFedscccccevecs 1.133 VARIABLE ENTEREDescee 3 
VARTABLE REGRESSION STD. ERROR OF COMPUTED BETA 
tee COEFFICIENT REG. CCEFF. T-VALUE | COEFFICIENT SUM OF SQUARES REDUCED IN THIS STEP..ee. 7.572 
: eee eee aaae eee | -PROPORTION REDUCED IN THIS STEP....eee. C.131 
3 0.01504 C.20635 2.369 0.38790 
| ; Be €.03635 04342 - 0.05735 -| CUMULATIVE SUM OF SQUARES REDUCED...... 31.196 
TAPER EERE eer a Gecee 0.01907 _| CUMULATIVE PROPORTION REDUCED....eeeeee 0.539 OF 
FOR 3 VARIABLES ENTERED 
MULTIPLE CORRELATION COEFFICIENT... 0.734 
(ADJUSTED FOR DoF. dececccceces 0.711 
F-VALUE FOR ANALYSIS OF VARIANCE... 10.137 
_ STANDARD ERROR OF ESTIMATE. ..eceeee 1.013 
(ADJUSTED FOR D.Fedececccceece 1.050 . 
VARIABLE REGRESSION STD. ERROR OF COMPUTED BETA 
NUMBER COEFFICIENT REG. COEFF. T-VALUE ' COEFFICIENT: 
2 0.00744 0.00172 4.318 0.60233 
0.05363 0.01258 4 6263 0.60648 
3 0.01497 0.00551 © 2.717 0.38618 
INTERCEPT -5.53529 
Figure 19. (Continued) - Figure 19. (Continued) 
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STEP-WISE MULTIPLE REGFESSION.....+SAMPLE 


SELECTION ceace 2 

TABLE OF RESIDUALS 
CASE NO. Y VALUE 
1.00000 
2.00000 
2.00000 
c.00000 
2-C0000 
2.90000 
3.0C00C 
2.00000 
3.ccocc 
0.C0000 
4.00000 
1.co0co 
1.C0000 
1.00000 
3.00000 
2-00CC0 
3.0000¢ 
4.00000 
4.00000 
3.00000 
4.00000 
4.CG000 
1.00000 
0.coccd 
4.00000 
1.cC000 
3-C0000 
4.COO06C 
4-C00CO 
0.ccoco 


Y ESTIMATE 
0.59869 
1.88363 
262662C 
0.90704 
1.99813 
1.58408 
3249859 
2.23348 
3.85876 
C.98943 
2.51255 
1.95926 
2.04998 
1.10726 
2.91951 
1.76539 
2.54052 
3.36591 
3.67961 
2.65435 
3.70045 
1.84629 
2-4 C69C0C 
1.95640 
1.34020 
1.79817 
26 24542 
4.41268 
3.92577 
C.33332 


PESTDUAL 
0.40131 
C.11637 
—-C.2662C 
-C€.90704 
C.C0187 
C.41592 
-0.49859 
~0.23348 
-C.85876 
-0.98943 
1.48745 
—€.95926 
-1.04998 
-C.10726 
0.08C49 
C.23461 
0.45948 
C. 63409 
C.32C039 
C.34565 
0.29555 
2.15371 
-1.0690¢ 
~il. 9564C6 
2-6598C 
-0.79817 
CG. 75458 
-0.41268 
0.07423 
-G. 33332 


OONOU DWN 


END OF SAMPLE PROGRAM 





Figure 19. (Continued) 


Program Modifications 





Input data in a different format can be handled by 
providing a special format statement. The special 
input routine, DAT2 is normally written by the user 
to handle different formats for different problems. 
The user may modify this routine to perform test- 
ing of input data, transformation of data and so on. 
When doing so, attention should be paid to the format 
statement in DAT2 (DAT2 230), which writes on the 
intermediate data set. The format in this statement 
must be the same as the format in statement STEP | 
1390. 


Operating Instructions 


The sample program for stepwise multiple regression 
is a standard PL/I program. Special operating in- 
structions are not required. Data set SYSIN is used 
for input; data set SYSPRINT, for output. A scratch 
tape (data set XDATA) is used as intermediate 
storage. 


Error Messages 





The following error condition will result in a 
message: 


1. The number of selections not specified on the 
control card: NUMBER OF SELECTIONS NOT SPECI- 
FIED. JOB TERMINATED. 
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Timing 





The execution of this sample program on a System/360 
Model 40, using an IBM 2540 Card Reader as input and 
an IBM 1403, Model N1, as output, is 41 seconds. 


STEP. STEP 10 
JL EEERKEREEEKEKCERE ERE EEE EKKEEKAEKEKAKKAKREEKEAKEEAKAKEERHREKEREERAEKERKEKEE/STEP 8 20 
*/STEP 30 

TO READ THE PROBLEM PARAMETER CARD FOR A STEP-WISE REGRESSION*/STEP 40 

READ SUBSET SELECTION CARD, CALL THE PROCEOURES TO CALCULATE */STEP 50 

MEANS, STANDARD: DEVIATIONS, AND THE PROCEDURE THAT PERFORMS */STEP 60 
STEP-WISE REGRESSION. */STEP 70 

*/STEP 69 

LEEREEREKRALEREEEKEKEEREREEREREE KEKEKKARAERERKEREREEKEEREKEKERKAKERKEREEE/STEP 8 90 
PROCEDURE OPTIONS (MAIN) >- STEP 100 
DECLARE STEP 110 
XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V(2000,200)), STEP 120 
(1sTOsdeKeKKyMypMMeNoNRoNSyNSEL) FIXED BINARY, STEP 130 

PRL CHARACTER (6), STEP 140 
(NCARD,NV) EXTERNAL,» STEP 150 

ERROR EXTERNAL CHARACTER (1), STEP 160 

CH CHARACTER (80) y- STEP 170 

/* */STEP 180 
ON ENOFILE (SYSIN) GO TO EXIT,. STEP 190 
$100... STEP 200 
GET EDIT (CH) (A(80)),>. STEP 210 
GET STRING (CH) EDIT (PRLyNyMyNSyPCTyNRyNCARD) (AC6)sF(5)e2 F(2)s STEP 220 
F(6,0),F01) eF(2)) 5. STEP 230 

*/STEP 240 
*/STEP 250 
*/STEP 260 
*/STEP 270 
*/STEP 280 
*/STEP 290 


READ PROBLEM PARAMETER CARD 


PR1 — PROBLEM CODE (MAY BE ALPHAMERIC) 
N —- NUMBER OF OBSERVATIGNS 
M —- NUMBER OF VARIABLES 
NS — NUMBER OF SELECTIONS */STEP 300 
PCT ~- A CONSTANT VALUE CF PROPORTION OF SUM OF SQUARES THAT */STEP 310 
WILL BE USED TO LIMIT VARIABLES ENTERING IN THE REGRES—*/STEP 320 
SION */STEP 330 
NR OPTION COOE FOR TABLE OF RESIDUALS */STEP 340 
O - IF IT IS NOT DESIRED */STEP 350 
1 -— IF IT IS DESIRED */STEP 360 
NCARD — NUMBER OF DATA CARDS PER OBSERVATION */STEP 370 
*/STEP 380 
NV =NR oe - STEP 390 
. NCARD=NCARD*80,. STEP 400 
*/STEP 410 
PUT EDIT C*STEP—WISE MULTIPLE REGRESSIONe cooe* PRI) STEP 420 
(PAGE,;COLUMN(10) sAgA) o0 STEP 430 
PUT SKIP(2)5.- STEP 440 
PUT EDIT ("NUMBER OF OBSERVATIONS',»N) (RUFM1))_- STEP 450 
PUT EDIT ("NUMBER OF VARIABLES ",M) (RUFM1))9- STEP 460 
PUT EDIT ("NUMBER OF SELECTIONS ‘',NS) (ROCFML)) >. STEP 470 
FMlee STEP 480 
FORMAT (SKIP(1)»¢COLUMN(10) sAsF(5)) 54 STEP 490 
PUT EDIT ('CONSTANT TO LIMIT VARIABLE® yPCT) STEP 500 
(SKIP(2) »COLUMN( 10) sAsF(945))>. STEP 510 
ONE. . STEP 520 
BEGIN». . STEP 530 
DECLARE STEP 540 
(XBAR(M),STOCM) »D(M) 980M) pRXOMaM) pROM2M) SANSC(C LL) XO 121)» STEP 550 
RESI,YEST) STEP 560 
BINARY FLOAT, J*SINGLE PRECISION VERSION /*S*/STEP 570 
BINARY FLOAT (53), /*DOUBLE PRECISION VERSION /*D*/STEP 580 
(IDX(M),L(M) sNSTEP(5)) FIXED BINARY,.~ STEP 590 
10 =Oye STEP 600 
x =Oq6 STEP 610 
‘OPEN FILE (XDATA) OUTPUT,. STEP 620 
CALL CORR (NeMeIOXeXBAReSTDeRX9RoB) oe STEP 630 
CLOSE FILE (XDATA),. ; STEP 640 
IF ERROR NE *O! STEP 650 
THEN PUT EDIT (*IN RCUTINE CORR ERROR CODE = *,ERROR) STEP 660 
(SKIP(2) ,COLUMN(10) sAyAU1))9~ : STEP 670 
*/STEP 680 
*/STEP 690 
*/STEP 700 
PUT EDIT (*VARIABLE® »*MEAN',» *STANDARD® »*NOw',* DEVIATION? ) STEP 710 
(SKIP(2) yCOLUMN(10) ¢AeX05) pAg X05) yAg SKIPyCOLUMN(13)9AeX016) STEP 720 
Adee STEP 730 
O00 I = 1 TO My. STEP 740 
PUT EDIT (1 yXBARCI)sSTD(I)) (SKIP,COLUMN(13),F(2),F(1L4,5)% STEP 750 
F(1295)) 9. STEP 760 
END». : STEP 770 
*x/STEP 780 
*/STEP 790 
*/STEP 800 
PUT EDIT (*CORRELATION MATRIX!) (SKIP(2),COLUMN(10)9A)35. STEP 810 
DO I = 1 TO Me. , STEP 820 
PUT EDIT (*ROW' eI) (SKIP(2),COLUMN(10) sAsFU3) Dy. STEP 930 
PUT EDIT (€R¢IIeJ) DO J= 1 TO M)) (SKIPsCOLUMN(10),9 F(12—95))_9- STEP 840 
END». : STEP 850 
IF NS -LE O /* TEST NUMBER OF SELECTIONS */STEP 860 
THEN DO,;. : STEP 870 
PUT EDIT (*NUMBER OF SELECTIONS NOT SPECIFIED* ) STEP 880 
(SKIP(2) ,COLUMN( 10) 9A), STEP 890 
GO TO S200_,. ; STEP 900 
END ¢.«. STEP 910 
*/STEP 920 
' */STEP 930 
*/STEP 940 
R =RX_6 ; STEP 950 
NSEL =ly. : ; STEP 960 
GO TO S150;. STEP 970 
*/STEP 980 
*/STEP 990 
*/STEP1000 
STEP1OLO 
STEP1020 
*/STEP 1030 


PRINT MEANS AND STANDARD DEVIATION 


PRINT CORRELATION MATRIX 


SAVE THE MATRIX OF SUMS OF CROSS-PRODUCTS OF DEVIATION 


COPY THE MATRIX OF SUMS OF CROSS-PRODUCTS OF DEVIATIONS 


RX =Rye 
/7* READ A SELECTION CARD 
PUT EDIT (*SELECTIONecoee*eyNSEL) (SKIP (3) ,COLUMN(10)sAyF(2))5. STEP 1040 
CALL IDT2 (MyIDX)9- ; STEP1050 
/* */STEP1060 
/* IN EACH POSITION OF IDX, ONE OF THE FOLLOWING CODES MUST BE */STEP1070 
/* SPECIFIED. */STEP1080 
/* O OR BLANK — INDEPENDENT VARIABLE AVAILABLE FOR SELECTION */STEPLOSO 
/* — INDEPENDENT VARIABLE TO BE FORCED IN REGRES- */STEP1100 
/* SION */STEP1110 
/* VARIABLE TO BE DELETED © */STEP1120}-. 
/* ; DEPENDENT VARIABLE */STEP1130 
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1* 
/* 
/* 


/* 
/* 
/* 


WE’ 
/* 
/* 


(* 
/* 
/* 


*/STEP1140. 


CALL THE PROCEDURE TO PERFORM A STEP-WISE REGRESSION ANALYSIS#*/STEP1150 


CALL STRG (MyNo RX »XBARsTDX sPCTsNSTEP ANS pL BySTD)  « 


IF ERROR NE *0! 
THEN PUT EDIT ("IN ROUTINE STRG ERROR enee “* FERROR) 
(SKIP(2) >COLUMN(10) pArA(1) I 96) 


FIND WHETHER TO PRINT THE TABLE OF RESIDUALS 


IF NR LE O 
THEN GO TO $185;. 


PRINT TABLE OF RESIDUALS 


PUT EDIT (C*STEP- “WISE MULTIPLE "REGRESSIONe sees! 2PR1) 
CPAGEyCOLUMN(10) pAgA) ge | 
PUT EDIT (*SELECTIONe cece *sNSEL) 
PUT EDIT C*TABLE OF RESIOUALS*','CASE NO.* 
RESIDUAL *) 
(SKIP(2) sCOLUMN(26) »AySKIP(2) ¢COLUHN( 10) Ay X(5) 9 AoX(5 9 As 
X(6) Ade 


(SKIP (3) ,COLUMN(10O) eAyF(2)) 9% 
»*Y VALUE", 


' MM =NSTEP(1)9. 
_OPEN FILE (XDATA) INPUT;,. 


00 I = 1 TO Noe 
GET FILE (XDATA) 
YEST =ANS(9) 96 
K “SNSTEP(4)5.6 
; 00 J = 1 TO Kee 
KK HL J)e. 
VEST =YEST+#B(J) *D(UKK),. 
: END, 
RESI =D(MM)—-YEST,. 
PUT EDIT (1,0(MM) 
2 F145) doe | 
END? . 
“CLOSE FILE (XDATA) »e 


EDIT ((D(J) DO J= L TO MD) ((M)F(690))9~ 


eVESTeRESI) (COLUMN(10)sF(5),F01595)¢ 


TEST WHETHER ALL SELECTIONS ARE COMPLETED 


$185... 
. IF NSEL. LT NS 


THEN DOp. 
_NSEL =NSELt1,... 
PUT EDIT (*STEP—WISE MULTIPLE REGRESSIONsseee! yPRL) 
(PAGE,COLUMN(10) sAxA) 9 
GO TO S145. 
END,. 
END;. 
GO TO S100,. 


EXIT. 


$200.6 
.ENDy« 


PUT FILE (SYSPRINT) EDIT (*END OF SAMPLE PROGRAM") 
(SKIP (5) ,COLUMN(10) Aloe 


/*END OF PROCEDURE STEP 


*Y ESTIMATE', 


*/STEP1160 
STEP1170 
STEP1180 
STEP1190 
STEP1200 

¥*/STEP1210 

*/STEP1220 


*/STEP1230° 


STEP1240 
STEP1250 
*/STEP1260 
*/STEP1270 
*/STEP1280 
STEP1290 
STEP1300 


STEP1310]. 


STEP 1320 
STEP1330 
STEP1340 
STEP1350 
STEP1360 
STEP1370 
STEP1380 
STEP1390 
STEP1400 
STEP1410 
—STEP1420 
STEP1430 
STEP1440 
STEP 1450 
STEP1460 
STEP 1470 
STEP1480 
STEP1490 
STEP1500 
*/STEP1510 
*/STEP1520 
*/STEP1530 
STEP1540 
STEP1550 
STEP1560 
STEP1570 
STEP1580 
STEP1590 
STEP1600 
STEP1610 
STEP 1620 
STEP1630 
STEP 1640 
STEP 1650 
STEP 1660 
STEP1670 
*/STEP 1680 


SOUT.. 


SOUT 


ECE HS HCHO ain ae cHom i oar ipo i Ra ici io RO TOR Ue aOR AOR HERE SOUT 


/* 
/*. 
/* 


TO PRINT THE RESULTS OF A STEP-WISE MULTIPLE REGRESSION. 


*/SOUT 
*/SOUT 
*/SOUT 


/ Se GRO to Ror ii Rea tok ai tia doi gi nok toi takai ii oi dota tog deter deta ZS OUT 
PROCEDURE (NSTEPsANSyLeBoSoTyBETA) +. 
DECLARE 


NSTOP EXTERNAL CHARACTER (1), 
(ANS(¥*),B0*) pSC*),T(%) , BETA(*)) 

BINARY FLOAT, /*SINGLE PRECISION VERSION 
BINARY FLOAT (53), /*DQUBLE. PRECISION VERSION 
(NSTEPC#) »LO%) 91 ND 

FIXEO BINARY,. 


TEST WHETHER THIS 1S THE FIRST STEP: 


IF NSTEP(4) LE 1 
THEN 00;. 


PUT 
PUT 


PUT 


PUT EDIT (* DEPENDENT VARIABLE se cceeceecce! 
(SKIP(2),COLUMN(10),A,F C22). 

PUT EDIT ('NUMBER OF VARIABLES FORCED...0'sNSTEP(2)) 
(SKIP,COLUMN(10O) pAgF(2))_. 

PUT EDIT ("NUMBER OF VARIABLES DELETED...*sNSTEP(3)) 
(SKIP,COLUMN(10) pAsFC2))9.~ 

END,s. 


+NSTEP(1)) 


PRINT THE RESULTS OF A STEP 


EDIT ('STEP'»NSTEP(4)) (SKIP (3) pCOLUMN( 101» ApFL3) 9 6 
EDIT ('VARTABLE ENTERED. eee e"sNSTEP(5}) 

(SKIP(2) ¢COLUMN( 10) pAgFC2)) 96 
SKIPC2)_. 


IF NSTEP(4) LE NSTEP(2) 


THEN PUT EDIT (' 


PUT 


FM1l.. 


(FORCED VARIABLE)*) (SKIPyCOLUMN(1L0)-A)y_.~ 
EDIT ('*SUM OF SQUARES REDUCED IN THIS STEPooee! 1ANSO1)) 


(R(FMLI) oe 


FORMAT (SKIP(1),COLUMN(10) yAgFC1343))96 


PUT 


PUT 
PUT 


Put 
PUT 
PUT 
PUT 
PUT 


PuT 


EDIT (*PFOPORTION REDUCED IN THIS STEPeocescee*eANS(2)) 
(RCFMI)),. 

SKIPC2)9- 

EDIT ("CUMULATIVE SUM OF SQUARES REDUCED.«++ee'sANS(3)) 
(RCFMLD Ds 

EDIT ('CUMULATIVE PROPORTION REDUCED. ecccooees® pANS(4S) 9! 
ANS(5))) (SKIP yCOLUMN( 10) ,AsF(13 93) sAeFCL393))_.~ 

EDIT ( *FOR*+NSTEP(4)_* VARIABLES ENTERED") 
CSKIP( 2), COLUMN 10) sAyF(3) pA) yo 

EDIT ("MULTIPLE CORRELATION COEFFICIENT eee’ yANS(6)) 
(SKIP(L) »COLUMN( 12) yA 9F(9,3))4.~ 

EDIT (*CADJUSTED FOR DeFeleccvccvocce 
(SKIP(1) —¢COLUMN( 17) A eF(943))5. 

EOIT (*F-VALUE FOR ANALYSIS OF VARIANCE. ee*»yANS(7)) 
CSKIPOCL) yCOLUMNO 12) pAyFI993)) 96 

EDIT (*STANDARD ERROR OF ESTIMATE. oc wecoee! 


OFT, 


*,ANS(10)) 


»ANS(8)) 


SOUT 
snUT 
Sout 
Sut 


L*S*/ SOUT 
/*0*/SOUT 


SOUT 
SOUT 
*/ SOUT 
*/SDUT 
*/SGUT 
SOUT 
SOUT 
SOUT 
souT 
SOUT 
SOUT: 
sout 
SOUT 
SOUT 
*/ SOUT 
*/SOUT 
*/SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
souT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT. 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
Sout 
sour 
SOUT 


souT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
SOUT 
Sout 
SOUT 
SOUT 
SOUT 
*/SOUT 


(SKI PC1) ,COLUMNO 12) ,AxF0993))y. 

PUT EDIT (*(ADJUSTED FOR DeFe)decnccevecee* sANS(ILI) 
(SKIP CL) yCQLUMNOLT) sAgF(9937)96 

PUT EDIT (*VARTABLE', *REGRESSION',*STO. ERROR OF *,*COMPUTED®, 
"BETAS, "NUMBER", *COEFFICIENT',*REG. COEFF.'y*T—VALUE', 
*COEFFICIENT*) 
(SKIP(2) pCOLUMN 12) 95 (AyX(5)) pSKIPCL) pCOLUMN(L3) 9 Ay X06) 9 Ay 
X(4)9AeX(8) eArXU6) 7A) 90 
=NSTEP(4)_.~ 
DO I = 1 TO Ne. 
PUT EDIT (LCL) sBCL) eStE)eT(L) sBETACI)) (SKIP(1) yCOLUMN( 14), 

, FU3),F01895) oF C1695) 9 F 01493) F (1495) De 


DAT2.._ DAT2 
FRAO REI IE ICIS IIIA I TORR ISI ISI SO TOES RTARTA AAA TAHA AOR] DAT 2 
/* */DAT2 
/* TO READ FLOATING POINT DATA, ONE OBSERVATION AT A TIME. */DAT2 
/* DATA MAY BE SAVED ON A DATA SET. */DAT2 
/* */DAT2 
(2 RO EC IR BOG RI AT ICR RIG IO RICE Ra ROR IO AOR RE aE KS DAT 2 
PROCEOURE (MyD)s5 DAT2 
DECLARE DAT2 
XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V(2000,200)), DAT2 
(NCARD»NV) EXTERNAL» DAT2 

CH CHARACTER(NCARO) » DAT2 
(I+MyMM) FIXEO BINARY, DAT2 

D(*) FLOAT BINARY¢. DAT2 

*/DAT2 
DAT2. 
DAT2 
DAT2 

- DAT2. 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
DAT2 
*/DAT2 


END». © 
PuT EDIT (INTERCEPT! ,ANS(9)) 
NSTOP="C',. 
RETURN,. 
ENDs. 


(SKIP yCOLUMN(12)9A,F (1495) 96 


/*END OF PROCEDURE SOUT 





ON ENOFILE (S¥SIN) 

GO TO EXIT;. 

GET EDIT (CH) ({ACNCARD)),. 

iM =CEIL(M/12),. 

. GEY STRING (CH) EDIT C10(i! OO I= L TO ay) 

CUMMDCCLZIF (690) hd 8) oe 

IF NV= 1 

THEN PUT FILE (KADATA) EDIT Oot) DO T= 1 TO M)) C(M)F(6,0)),. 

REVERT ENDFILE (SYSIN)». 

RETURN,. 

EXIT.» 

PUT FILE (SYSPRINT) EDIT ("ERROR 
(SKIP(1L),¢COLUMN(10) yA), 

STOP,. 

END,. 


CANONICAL CORRELATION CANO 


Problem Description 


INSUFFICIENT OATA*) 





/*END OF PROCEDURE DAT2 





This program analyzes the interrelations between 

two sets of variables measured on the same sub- 

jects. These variables are predictors in one set 

and criteria in the other set, but it is irrelevant 

whether the variables in the first set or in the sec-. 

ond set are considered as the prediction variables. 
“ The canonical correlation, which gives the maxi- 







IDT2.. 1oT2 10 
PENNE Oe ea nee Sas RRR RRS RR HR ei RSEE RE REE RE ENEEEEREEEEEE/IDTO 20 
/* */10T2 30 
oF fol TO READ FIXED POINT DATA. */1D0T2 40 
fail */IDT2 50 
BE CRCGE a eee ener etna ene mae e MeL DIZ 60 
' PROCEDURE (MyIX)y_.- IDT2 70 
DECEARE IDT2 80 

CH CHARACTER (80), 1oT2 90 























RCD NR NM ee I0T2 100 
NE =72y. 7 iieiee mum correlation between linear functions of the two 
Ni ly IDT2 130 ; Z a ae. 
sit? TNF 1012 140 sets of variables, is calculated. yx“ is also com- 
THE NGS Wie torz 160 | —- puted to test the significance of canonical correlation. 
cer Sea UNerTCUL EDUD FURR DO I= NI TO N2)) CONFIFUL) D9: iors aoe The sample problem for canonical correlation 
1 ae =N24+1l9. e e e e 
TF NL LE torz 210| Consists of four variables in the first set (left-hand 
ae IDT2 220 : : : 
Mea eee  10T2 230 side) and three variables in the second set (right- 
RETURNy. oes hand side) ‘as presented in Table 2. These two sets 
_ ENDe. */1DT2 270 , 






Si ibe ness che: of measurements have been made on 23 subjects. 
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Table 2, Sample Data for Canonical Correlation 


Second set 


First set 
Observation X; X2 X3 - X Y; Y2 
— oo] 191 155 65 19 179 145 
2 195 149 70 20 201 152 | 
3 181 148 71 19 185 149 
4 183 153 82 18 188 149 
5 176 144 67 18 171 142 
6 208 157 81 22 192: 152 — 
7 189 150 75 21 190 149 
8 197 159 90 20 189 152 
9 188 152 76 19 197 159 
~ 10 192 150 78 20 187 151 
ll 179 158 99 18 . 186 148 
12 183 147 65 18 174. 147 
13 174 150 71 19 185 152 
14 190 159 91 19 195 157 
15 188 L151 98 20 187 158 
16 163 137 59 18 161 130 
17 195 L55 85 20 183 158 
18 196 L535 80 21 173 148 
19 181 145 77 20 182 146 
20 175 140 70 19 165 137 
2l 192 154 69 20 185 152 
22 ~ 174 143 19 '20 178 147 
23 176 139 70 20 176... 143 
Program 
Description — 


The canonical correlation program consists of the 
main routine named CANO, a special input routine, 
DAT2, and five subroutines from the Scientific 
Subroutine Package: CORR, CANC, MINV, MGDU, 
and MSDU. 


Capacity 


The capacity of the sample program and the format 
required for data input have been set up as follows: 

1. The number of variables in the first set (that 
is, left-hand variables) must be greater than or 
equal to the number of variables in the second set 
(that is, right-hand variables). 

2. Up to 99,999 observations 

3. Up to ten data cards per observation 

4, (12 F (6,0)) format for input data cards. 
Therefore, ifaproblem satisfies the above condi- 
tions, it is not necessary to modify the sample 
program. However, if the input data cards are 
prepared using a different format, the input format. 


Appendix B--Sample Program--C anonical Correlation 


in the special input subroutine, DAT2, must be 
modified. The general rules for program modifi- 
cation are described later. 


Input 





Control Card 


One control card is required for each problem and 
is read by the main program, CANO, This card is 
prepared as follows: © 


Columns Contents - saseseue Sa 
aoa os oe Problem 
1-6 Problem number (may SAMPLE 
be alphameric) _ | 
7-11 Number of observations 00023 
12-13 Number of variables in 04 
the first set (that is, . 
left-hand variables)* — 
14-15 Number of variables in — 03 
the second set (that is, " 
right-hand variables) 
16-17 Number of data cards O01 


per observation 


Leading zeros do not have to be keypunched, but 
must be right-justified within the field. 


Data Cards 


Since input data are read into the computer one ob-. 


‘servation at a time, each row of data in Table 2 is 


keypunched on a separate card using the format 

(12 F (6, 0)). This format assumes twelve 6-column 
fields per card. 

Deck Setup 


Deck setup is shown in Figure 20. 


*The number of variables in the first set must be 


greater than or equal to the number of variables 
in the second set. 


271 


SAMPLECCC232C40201 
191 «155 


1S5 14S 
Last problem et ae 
183 163 
176 144 
2CE 157 
18S 150 
1S7 15s 
188 1&2 
1S2 15C 
179 15€ 
183.147 
‘ [od 
Second problem we ice 
186 151 
162 137 
195 Tes 
196 1§3 
181 14¢ 
175 14C 
192 164 
174 143 
176 12S 






First problem 





Figure 21, 


Output 
Description 


The output of the sample program for canonical 
correlation includes: | 
1. Means | 
2. Standard deviations 
3. Correlation coefficients | 
4, Eigenvalues and corresponding canonical 


correlation | 
5. Lambda ~ | A | 
Figure 20. 6. Chi-square for left- and right-hand variables. 
Sample Sample 
The listing of input cards for the sample problem is The output listing for the sample problem is shown 
shown in Figure 21, in Figure 22, 
CANONICAL CORRELATION. «++ eSAMPLE 
NO. CF OBSERVATIONS 23 
NO. OF LEFT HANO VARIARLES 4 
NO. OF RIGHT HANO VARTABLES 3 
MEANS © 
185.47826 149.913C4% 76.86955 19 ..47826 1832.CC6CCO 148. 82608 75273912 
STANDARD DEVIATIONS 
1€.12342 6.31673 10 .46338 1.°8165 9.84424 6.73965 9.C5647 
CORRELATION COEFFICIENTS 
ROW 1 
1.c6CceCc 0.74852 C.37C8&2 C.66441 [2.62291 C.6608C 0.24633 
ROW 2 . 
0.74852 1.CCO0OC 0.63252 6.2259C C.66811 — C.727890 0.53194 
ROW 3 : : 
* 0.37082 0263252 1.0ececc 0.20657 0.47394 0.6C169 0.79684 
ROW: 4 
0.66441 0.2259C 0.20657 1.ccccc C.32870 0.34863 -0.19733- 
ROW 5 
0.62291 0.66811 C.47394 C.32676 1.cocco 0.82555 9.39258 
ROW 6 
0.66080 C.72780 C.6C0169 C.24863 C.82555 1.CCCCCe 0.47657 
ROW 7 
C.24683 0.52194 0.75684 -0.1°733 0.39258 C.47557 1.cacoe 
Figure 22, 


272 Appendix B--Sample Program--Canonical Correlation 


NUMBER OF 
EIGENVALUES EIGENVALUE 
REMOVED REMAINING 
) Q.7986C 
1 0.41910 
2 0.90767 


LARGEST CCPRESPONDING 
CANONICAL LAMEDA 
CCPRELATICN 
0.89376 
0.64738 


C.C876C 


CHI-SQUARE 


~11593 40.93277 
257644 10.46676 
©99233 9.14636 


OQ. 


CANONICAL CORRELATION C.&9376 


COEFFICIENTS FAR LEFT HAND VAFIABLES 


9.56310 ~C.16059 1.05822 -C.56651 


COEFFICIENTS FOR RIGHT HAND VARIABLES 


-0.92133 C.44096 0.89730 


CANONICAL CORRELATION 0.64738 


COEFFICIENTS FOP LEFT HAND VARIABLES 


0.09454 -0.83915 0.66309 ~0 .64892 


COEFFICIENTS FOR RIGHT HAND VARIABLES 


-0.43841 -0.55503 0.706692 


CANONICAL CORRELATION 0.C876C 


COEFFICIENTS FOP LEFT HAND VARIABLES 


0.02681 G.36C55 -0.28827 0.32496 


COEFFICIENTS FOR RIGHT HAND VARIABLES 


0.70325 -C.70384 0.10028 


END OF SAMPLE PROGRAM 


Figure 22. (Continued) 


Program Modifications 


Input data in a different format can also be handled 
by providing a specific format statement. In order 
to familiarize the user with program modifications, 
the following general rule is supplied in terms of the 
sample problem: 

1. Changes in the input format statement of the 
special input routine, DAT2. 

Since sample data are either two- or three-digit 
numbers, rather than using six-column fields as in 
the sample problem, each row of data might have 
been keypunched in seven 3-column fields; if so, the 
format would be changed to (7 F (3, 0)). Note that 
the current input format statement will allow a max- 
imum of twelve variables per card. 

The special input routine is normally written 
by the user to handle different formats for different 
problems. The user may modify this subroutine to 
perform testing of input data, transformation of 
data, and so on. 

2. If there is more than one card per row of data, 
the value of the card count indicator (NCARD), which 
appears in columns 16-17 of the control card, must 
be changed to agree with the number of data cards 
per row. 


Operating Instructions 


The sample program for canonical correlation is a 

standard PL/I program. Special operating instruc- 
tions are not required. Data set SYSIN is used for 

input; data set SYSPRINT, for output. 


OEGREES 
OF 


FREEDOM 


Timing 


The execution of this sample program on a System/ 
360 Model 40, using an IBM 2540 Card Reader as 
input and an IBM 1403, Model N1, as output, is 17 
seconds. 


CANO.. CANO 
[PE Le EEE POET ONE LIE ERTL ET LOTTE TT EOE eT TTT er PO Ter Tey Tanta 
*/CANO 

TO READ THE PROBLEM PARAMETER CARD FOR A CANONICAL CORRE- */CANO 

LATION, CALL TWO PROCEDURES TO CALCULATE SIMPLE CORRELATIONS, */CANO 
CANONICAL CORRELATIONS: CHI-SQUARES, DEGREES OF FREEDOM FOR */CANO 
CHI~SQUARES, AND COEFFICIENTS FOR LEFT AND RIGHT HAND */CANO 
VARIABLES: NAMELY CANONICAL VARIATES, AND PRINT THE RESULTS. */CANO 

*/CANO 

JL RERRERREBEHEK EKER ERK ECE EKKEKK GH EEK EE KATHE AK EK EEE EERE GRA E EK EKER EK ERKKEKEE/ CANO 
PROCEDURE OPTIONS (MAIN);.~ CANO 
DECLARE “CANO. 
(IeTOeJ3aMyMMy MP sMQ,NNL) CANO 

FIXED BINARY: CANO 

CH CHARACTER (80)+ CANO 

ERROR EXTERNAL CHARACTER (1) CANO 
(NCARD,NV) EXTERNAL» CANO 

PR CHARACTER (6). CANO 

/* */CANO 
ON ENDFILE (SYSIN) GO TO EXIT,. ‘ CANO 
$100.. CANO 
GET EDIT (CH) (A{(80))_%. CANO 
GET STRING (CH) EDIT (PRyNsMPyMQyNCARD) (A(6)9F(5)93 F(2)) 9. CANO 

/* */CANO 
PROBLEM NUMBER (MAY BE ALPHAMERIC) */CANO 

NUMBER OF OBSERVATIONS */CANO 

NUMBER OF LEFT HANO VARIABLES ; -*/CANO 

NUMBER OF RIGHT HAND VARIABLES */ CANO 

NCARD..eeNUMBER OF CARDS PER OBSERVATION */CANO 

a 44 ; ane . */CAND 

PUT EDIT ("CANONICAL CORRELATION *,PR,'NO. OF OBSERVATIONS'»Ny CANO 
"NO. OF LEFT HAND VARIABLES* ,»MP, CANO 

"NO. OF RIGHT HAND VARIABLES*»MQ) (PAGE,COLUMN(10)sA,A(6) 3 CANO 

SKIP(L) sCOLUMN(L2) 9AyX(8) 9F(4) pSKIPCL) pCOLUMN(L2) 9ASF(S)y | _ CANO 

SREY Te COEURN EZ hehe bina -_ CANO 

M =MP+MQ>6 ; ; CANO 

NC ARD=NCARD*80,.- CANO 

NV =O9. CANO 
BEGIN». CANO: 
DECLARE : CANO 
(COEFL(MP ,MQ) »,COEFR( MQ, MQ) RIM; Se atc eee ace nuvenault CANO 
STD(M)yXBAR(M) 9X€ 1-1) »B0M) »ROOTS (MQ) »WLAM(MQ) ) CANO 

BINARY FLOAT, /*SINGLE PRECISION VERSION. /*S*/CANO 

BINARY FLOAT (53)_% | /*O0QUBLE PRECISION VERSION /*D*/CANO 
NDF(MQ)° FIXED BINARY;. . CANO 

oe =O. CANO 
=0.09- ' CANO 

CALL CORR (NsMyI0yX_XBAR ySTD RX pReB) ye CANO 

IF ERROR NE ‘O° CANO 
THEN 00,. CANO 
PUT EDIT (*IN ROUTINE CORR ERROR CODE = *,ERROR) CANO 

POLE eee COLUBN EDO TE Reon Ere CANO 

GO TO $1007. a CANO 

END;. , . _ CANO 

a */CANO 

PRINT MEANS, STANDARD DEVIATIONS, AND CORRELATION - %*/CANO 
COEFFICIENTS OF ALL VARIABLES : */CANO 
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Sees designs can be derived by first reducing them to 


/ 
Be Porn Merny Gorn ays panies factorial designs, and then pooling certain com- 


PUT EDIT ({KBARII) DOI= 1'TO' HI) (REFH2I) 9. Cano es0{ ponents of the analysis-of-variance table. 
FM2e6e CANO 


FORMAT (SKIP ;COLUMN(10) 47 F(1595)) 9 CANO Consider a three-factor factorial experiment in 
PUT EDIT (*STANDARD DEVIATIONS") (RCFML)),. CANO 


PUT EDIT {*CORRELATION COEFF ICIENTS*) (SKI(21,COLUN(1014A),. Cano 60) 2 Tandomized complete block design, as presented 
PUT EDIT (#ROW'sI) (SKIP(2) COLUMN 10) ¢AsF4)1 9 « CANO in Table 3. In this experiment factor A has four 
PUT EDIT C(R(I,J) DO J= 1 TO M)) (SKIP,COLUMN(10).9 F(1275)).. CANO ; 
END». CANO levels, factors B and C have three levels, and the » 
CALL CANC (NyMP,yMQyRyROOTSs WL AM pCANR yp CHI SQ, NDF »COEFR,COEFL),. CANO 


TF FAROE NEI OF CAND entire experiment is replicated twice, The repli- 


eT cristo CULM pia cates are completely unrelated and do not constitute 


IF ERROR = ‘*1* CANO . 
THEN GO TO S100y. . CANO a factor. 
END». CANO 
*/CANO 
PRINT EIGENVALUES, CANONICAL CORRELATIONS, LAMBDA, */CANO 
CHI~SQUARES DEGREES OF FREEDOM */CANO 
*/CANO 
PUT EDIT (*NUMBER OF 'y*LARGEST*, ‘CORRESPONDING’, "DEGREES", CANO 
tEIGENVALUES ' y EIGENVALUE! » 'CANONICAL® » "LAMBDA, CANO ; . °, 
"CHI-SQUARE" » ‘OF ", "REMOVED", "REMAINING! » ‘CORRELATION ', CANO Table 3. Sample Data for Analysis of Variance 
CEREEDOM") (SKIP (4) ¢COLUMN( 13) 9 AyX(5) yAeX(7) 9 A9X (31) 9 Ag CANO 
SKIP pCOLUMN(L1) 1ArX(5) AgX OT) pArX (7) Ar X05) Ad XT) 9 Ay CANO 
SKIP sCOLUMNU13) pAeX (7) ¢AyX(7) pAX (3209 A) 0 CANO 
“DO I = 1 TO MQ». CANO 
Nl =I-1l;. CANO Replicate 
*/CANO 
TEST WHETHER EIGENVALUE IS GREATER THAN ZERO */CANO (Block) 
*/CANO 
MM -=N1y. CANO 
IF ROOTS(1) GT 0.0 CANO 
THEN DOy. CANO 
PUT EDIT (N1,ROOTS (1) ;CANR(T) >HLAM(T) >CHISQ(T) sNDF(T)) CANO ee 
(SKIP (1) >COLUMN(L0) 9F(7),F (1995) 9F(1695)¢ CANO1000 







2 F(1495) 9X05) gF(S) Doe CANO1OLO 
MM =MQye CANO1020 
END». CANO1030 
END;. CAND1040 
. */CANO1050 
PRINT CANONICAL CORRELATION */CANO1L060 
*/CANO1O70 

DO I = 1 TO MM, CANO1080 Lees 

PUT EDIT ( *CANONICAL CORRELATION® ,CANR(I)) (SKIP (5),COLUMN(10)»CANO1090 2 

AsF(1295) Dae CANO1L100 
PUT EDIT (*COEFFICIENTS FOR LEFT HAND VARIABLES*) (R(FML)),. CANOL110 
PUT EDIT ((COEFL(J,I) DO J= 1 TO MP)) (RCIFM2))_- CANOL120 
PUT EDIT ("COEFFICIENTS FOR RIGHT HAND VARIABLES") (R(FM1)),- > CANOLL3O 
PUT EDIT ((COEFR(JsI) DO J= 1 TO MQ)) (ROFM2))>~ -CANO1140 
END;. CANOLL50 
END,. CANOL160 
Go. TO $1009. . . CANOL170 
EXIT... ; ; / + * + €ANOL180 
PUT FILE (SYSPRLNT) EDIT “(CEND. OF SAMPLE -PROGRAM®)} CANOL190 


rr TSF BA ata " PHEND OF PROCEDURE CANO © _-*/CANDI210 Nevertheless, for the purpose of this program, a 
: : Perna seme ae four-factor experiment. (with factors A, B, C, and 
R) is assumed. Thus, each element of the data in » 





jaewcnesenneentenseensonsennenseanseussnnunenseseteenaensensenseetse/ DAT? 7 Table 3 may be represented in the form: 
2: */DAT2 . ; 
- TO READ FLOATING POINT DATAy ONE OBSERVATION “AT A TIME. */DAT2 
DATA MAY BE SAVED ON A DATA SET. . '  ¥/DAT2 
x z me 
assensazemaseneneunenatenenneranenenseaneaneentnesi/t abcr where a= te 25 3 9 4. 
PROCEDURE (M,yD),. Lo ao ae DAT2 . , ho % 23 
DECLARE DAT2 
. XDATA FILE. STREAM ENVIRONMENT (CONSECUTIVE ¥(20004200)), DAT2 . . ee : . . 
(NCARD,NV) EXTERNAL, -—- ; DAT2 b -_ 1 2 3 
CH CHARACTER (NCARD) » OAT2 op ee PE 3 > 
(I¢MyMM) FIXED BINARY; ~ DAT2 , 
D(*) FLOAT BINARY». F ay Md 5 DAT2 ; eee 
* */ : a _ 
ON ENDFILE (SYSIN) . —— DAT | ec = 1,2,3. 
- .GO TO EXIT,. : a? DAT2 . . a 
‘-GET EDIT (CH) (ACNCARD)) 9. , ; DAT2 
MM =CEIL(M/12)¢. : DAT2 ; 
GET STRING (CH) EDIT ((D(I) DO I= 1 TO M)) . DAT2 r = 1.92 
((MM)(012)F (650) -X(8))),. : :  DAT2 : b I , 
TF NV= 1 OAT2 
* THEN PUT FILE (XDATA) EDIT ( (OCI) 00 I= 1 TO M)) ISTE Re hes . DAT2 ek - 2 tee : . : “te og ap Oe 
‘ REVERT ENDFILE. (SYSIN),. : . : : ett DAT2 : . mos ; ES : : . any Ph 
Si a secon Mase nee _ The general principle of the analysis-of-variance 
Sia "(SKIPCLD COLUHNCIOT yAlse eee wre ee ee procedure used in the program is first to perform a 
" STOP +. . } rae . ; DAT2 
- ENDy _ END OF PROCEDURE DAT2 */DAT2 30¢ formal factorial analysis and then to pool certain 
i. ee os | 2. ; | components in accordance with summary instructions 
ANALYSIS OF VARIANCE ANOV : - that specifically apply to the particular design. The 


summary instructions for four different designs are 


| Problem Description presented in the output section. 





_An analysis of variance is performed for.a factorial Program 
design by use of three special operators suggested 
_by H. O. Hartley.* The analysis of any other Description 
| a. O. Hartley, "Analysis of Variance! in Mathe- The analysis of variance program consists of the 
. _matical Methods for Digital Computers, edited by — main routine, named ANOV, a special input routine 
A. Ralston and H. Wilf, John wae, and uae 1962, DATS, and one subroutine from the Scientific Sab- 
~~ Chapter 20. ps routine Package:. AVAR. : = 
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Capacity 


The capacity of the sample program and the format 
required for data input have been set up as follows: 
1. Up to 14 factors 
2. The total number of data points is limited 
only by the size of available core storage used for 
input. | 
3. (12 F(6, 0)) format for input data cards. There- 
pala if a problem satisfies the above conditions, it 
is not necessary to modify the sample program. — 


a different format, the input format statement must. 
be modified. The general rules for program modi- 
fications are described later. 


Input 
Control Cards 


Two control cards are required for each problem 
and are read by the main program, ANOV. 


The first card is prepared as follows: 


For Sample 


Columns Contents Problem 
1-6 Problem number (maybe =SAMPLE 
alphameric) 
7-8 


Number of factors : 04. 


The second card is prepared as follows: | 


For Sample 


Columns. _ Contents Problem 
1 Label for the first factor eat. HAE 
2-5 _- Number of levels for the | 0004. 

| . first. factor ) 

6 Label for the second | iB 
factor ~~ 

7-10 Number of levels for the 0003 


second factor 
11 _ Label for the third factor C 
12-15 Number of levels for the . 
third factor 
16 Label for the fourth factor -R 


17-20. Number of levels for the 0002 
fourth factor 
66 Label of the fourteenth 
| factor 
67-70 Number of levels of the 


fourteenth factor 


Leading zeros do not have to be keypunched. 
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Data Cards 


Data is keypunched in the following order: X 
Sori? Seat? Sioit? Kool? X01? = *4330, 
In other words, the leftmost subscript (namely, the 
first factor) is changed first; then the second, third, 
and fourth subscripts. In the sample problem, the 
first subscript corresponds to factor A; the second, 
third, and fourth subscripts, to factors B, C, and 
R. Since the number of data fields per card is 
twelve, implied by the format (12 F(6,0)), each row 
in Table 3 is keypunched on a separate card. 


1111’ 


Deck Setup 


Deck setup is shown in er 23. 


C= Data vy, 7 


(cet | 
(cet | 


Last problem 


Second problem 










First problem 
Control 3 . 


Cards 


Procedures and main program 


Figure 23. 


Sample 


The listing of input cards for the sample problem is 
shown in Figure 24. 


“SAMPL 
A 4 





Figure 24. 
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a 


Output 
Description | 


The output of the sample analysis-of-variance pro- 
gram includes the numbers of levels of factors as 
input, the mean of all data, and the table of analysis 
of variance. In order to complete the analysis of 
variance properly, however, certain components in 
the table may need to be pooled, This is accom- 
plished by means of summary instructions that 
specifically apply to the particular experiment. 
Some of these are presented in Table 4. 

As mentioned earlier, the sample problem is a 
randomized complete block design with three factors 
replicated twice. Therefore, it is necessary to pool 
certain components in the table of analysis of vari- 
ance shown in Figure 25. Specifically, the compo- 
nents AR, BR, ABR, CR, ACR, BCR, and ABCR 
are combined into one value, called the error term. 
The result is indicated in Figure 25. Since these 
data are purely hypothetical, interpretations of the 
various effects are not made. 


” 


Table 4. Instructions to Summarize Components 


of Analysis of Variance 


Randomized 
Single Classification | Two-way Classificatiof Complete Block Split Prot 
with Replicates with Cell Replicates [with Two Factors 





(Input) 
Factor 1 


Factor No. 1 Groups =A Rows =A =A Main treatment = A 
2 Replicates = R Columns = 8B Factor2 = B Subtreatment = B 
3 Replicates = R Blocks =R Blocks =R 
(Output) 
Sums of squares A A A A 
RR. / 8B B, B 
AR AB AB AB 
R R R 
AR AR AR 
BR : BR BR. 
ABR ABR ABR 
Summary Error = R + (AR) Error = R + (AR) Error = (AR)+(BR) | Error = (BR)+ (ABR) 
instruction +(BR)+ (ABR) ’  +(ABR) (b) 
Analysis of Groups A Rows A Factor 1 A Main treatment A 
variance Error Columns B Factor2 B Blocks R 
Interaction AB Interaction AB Error (a) AR 
Error Blocks R Subtreatment B 
Error Interaction AB 
Error (b) 
Sample 


The output listing for the sample problem is shown 
in Figure 25. 


ANALYSIS OF VARIANCE...e. SAMPLE 
LEVELS OF FACTORS 
4 
B 3 
C 3 
R 2 
GRAND MEAN 9.40278 
SOURCE OF SUMS OF DEGREES OF MEAN 
VARIATION SQUARES FREEDOM SQUARES 
h - 229.04166 3 76234721 
8B 72269434 2 361.34717 
AB 1382.08325 6 230 «34720 
C 55.11110 2 27.55554 
AC 42.00000 6 7.00000 
BC 13.13889 4 3.28472 
ABC 140. 75000 12 11.72917 
R 141.68054 1 141268054 
AR 18.81944 3 6.27315 
BR 6.02778 2 3.01389 
ABR 176.97221 6 29.49536 
CR 40.77777 2 20.38889 
ACR 50655554 6 8.42592 
BCR 62463889 4 15.65972 
ABCR 151.C2777 12 12.58565 
TOTAL ; 3233.31763 71 
END OF SAMPLE PROGRAM 
Figure 25. 


Program Modifications 


Input data in a different format can also be handled 
by providing a different format statement. In order 
to familiarize the user with the program modifica- 
tions, the following general rule is supplied in terms 
of the sample problem: 


Only the format statement and the variable per card 
count indicator for input data may be changed. Since 
sample data are either one- or two-digit numbers, 
rather than using a six-column field, as in the 
sample problem, each row of data might have been 
keypunched in a two-column field; if so, the format 
is changed to (12 F(2,0)). This format assumes 
twelve 2-column fields per card, peewmne in 
column 1, 


Opeeating Instructions 


The sample analysis of variance program is a stan- 
dard PL/I program. Special operating instructions 
are not required. Data set SYSIN is used for input; 
data set SYSPRINT, for output. 


Timing 


The execution of this sample program on a System/ 
360 Model 40, using an IBM 2540 Card Reader as 
input and an IBM 1403, Model N1, as output, is 11 
seconds. | | 
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ANOV.. 
JOR IGIRIO IOI UI OIG IOI IOI GOI IOI lo RII IG I GI RIGO tok iaciiokieax ear ZANOVY 20 


/* 
/* 


(* 


TO READ THE PROBLEM PARAMETEF CARD FOR ANALYSIS OF VARIANC 
CALL THE PROCEDURES FOR THE CALCULATION CF SUMS QF SQUARES 
DEGREES OF FREEDOM AND MEAN SQUAPE, AND PRINT FACTO? LEVEL 
GRAND MEAN AND ANALYSIS OF VARIANCE TABLE. 


ANOV 1¢ 


*/ANOV 30. 


E,» */ANOV 40 
1 */ANDV 5C 
Sy */4NOV 60 
*/ANOV 70 
*/ANQV 80 


7 RF ROR RRO ito ROR Ori ROR AIO Rok moO tot ii ik tok ke tok ato io ak eR REE KAZANOY 90 


/* 


PROC EOUFE 
DECLARE 
(Le JeKelbeMeMMaN) 
FIXED BINARY, : 
ERROR EXTERNAL CHARACTER(1), 
PR1 CHARACTER (6), 
CH CHARACTER (80)_. 


OPTIONS (MAIN) +. 


ON ENDFILE (SYSIN) GO TO EXIT. 


S1CO.. 


/% 
1% 
/* 
7% 


GET EOIT (CH) (A(8C)),. 


GET STRING (CH) EDIT (PR1,K) (A(E),F(2)),. 


PRL.oee PROBLEM NUMBER (MAY BE ALPHAMERIC) 
Keoeeee NUMBER CF FACTORS 


N =(2**K)—-Ly. 


ONE... 


BEGIN». 

DECLARE 
(SUMSO(N) » SMEAN(N) »GMEAN, SUN) 
FLOAT BINARY, 
FLOAT BINARY (53)49. 
(LEVEL(K) »NDF(N) , ESTEP(K)) 
(HEAD(K) ,FMT(K)) CHARACTER 

GET EDIT {CH) (A(8C)),. 

GET STRING (CH) EDIT ((HEAD(I),LEVEL(I) DO I= 1 TO K)) 
(140 ACL) SFIS) ID 9. 


7*SINGLE PRECISION VERSION 
' /*DOUBLE PRECISION VERSION 
BINARY FIXED, 
(1l),. 


HEAD..+FACTOR LEVELS 
LEVEL..LEVELS OF FACTORS 


PUT EDIT ("ANALYSIS OF VAPIANCE. ee yPRILy*LEVELS OF FACTORS’) 
(PAGE sSKIP(4) yCOLUMN(10) pAgA(5) pSKIP(4) pCOLUMN(16)1A),. 
PUT EDIT (CHEAD(T) »,LEVEL(I) DO I= 1 TO K)) 
(SKIP sCOLUMN(13) ACL) 9X(7)5F(4)),. 
M = PROD (LEVEL),». 
MM = PROD (LEVEL+1),. 


TwO.. 


BEGIN». 
DECLARE 
X(MM) 
FLOAT BINARY. 
FLOAT BINARY (53),. 
=09. 


/*SINGLE PRECISION VERSION 
/*DQUBLE PRECISION VERSION 


READ IN ALL INPUT DATA 


CALL DAT3 (MyX)_o.~ 
CALL AVAR (KyLEVEL »MyXsGMEAN,SUMSQ,)NDF ySMEAN) 9 ~ 
IF €RROF NE "O08 
THEN O0O,. 
PUT EDIT ("IN ROUTINE AVAR ERRGR CODE = 
COLUMN{10),A,AT1))—. 
GO TO S1C0Q,. 
END». 


",ERROR) (SKIP(2), 


PRINT THE GRAND MEAN 
PUT EDIT ("GRAND MEAN',GMEAN) (SKIP(6) ,COLUMN(1C)sA,F(2075))5. 
PRINT ANALYSIS OF VARIANCE TABLE 


PUT EDIT ('SGURCE OF* ,*SUMS OF*,"DEGREES OFt,*MEAN', 
"VAR TATIONS» *SQUARES*,*FREEDCM® «* SQUARES *) 
(SKIP(6) sCOLUMN( 10) ¢AyX(18) sAgX(10) eAgX(9) ee ArSKIPs 
COLUMNO 10) sAgX018) pAgX( 11) pAeXC10) 2Ady. 

PUT SKIP(2),. 

ISTEP= 0,;. 

ISTEP(1l)= 1,5. 

00 I = i TO Ny. 
L = Ove 
DO J = 1 TO Kye 
FMT(J)=" "4. 
IF ISTEP(J) NE CG 
THEN DO,. 
L =L+l,. 
FMT(L)I=HEAD(J) >. 
END». 
END». 
PUT EDIT (CFMT(L) DO L= 1 TO K),SUMSQCI) sNOF(I) »SMEANC(I)) 
(SKIP +COLUMN(10),(K)A(1) >COLUMN(23),F(2C0,5),X(10), 
F(6) 2F(20,5)),. 
IF I tT N 
THEN DO,y. 


/* INITIALIZE FOR PRINT OUT 


DO J = 1 TO K+. 

IF ISTEP(J)= 0 

THEN DO y. © 
ISTEP(J)=1)y. 
GO TO $160;. 
END,. 

ISTEP(J)=0%. 

END y. 

END,. 


5160.6 


END,. . 

M =M-l,. 

SUN =SUM(SUMSQ),. 

PUT EDIT (*TOTAL' »SUN«M) (SKIEP(2) ,COLUMN(10),A¢X(10),F(1855), 
XCO1LCIV eFC OI)». 

END». 

END,y. : 

GO TO S1C0Q;. 


EXIT.. : : 


PUT FILE (SYSPRINT) EDIT ("END OF SAMPLE PROGRAM ) 
(SKIP(5),COLUMN(10) sA)y. ; 


END,. /*END OF PROCEDURE ANOV 


ANOV 
ANOV 
ANQV 
ANOV 
ANOV 
ANQV 
ANOV 
x/ANOV 
ANOV 
ANGV 
ANGV 
ANOV 
*/ANCV 
*/ANOV 
*/ANOV 
e/ANOV 
ANOV 
ANOV 
ANY 
ANCV 
ANOV 
7*S*/ANOV 
7*D*/ANOQV 
ANOV 33C 
ANQV 340 
ANCV 350 
ANOV 36C 
ANOV 370 
*/ANOV 280 
*/ANOV 390 
*x/ANOV 4CO 
XJANOV 410 
ANOV 420 
ANOV 430 
ANOV 440 
ANQV 45C 
ANOV 46C 
ANOV 470 
ANOV 480 
ANOV 49C 
ANOV 500 

; ANOV 510 
7*S*/ANQV 520 
/*D*/ANGV 530 
ANOV 54C 
*/ANGV 550 
*/ANQV 560 
*/ANOV 570 
ANOV 580 
ANOV 590 
ANOV 660 
ANOV 610 
ANOQV 620 
ANDV 630 
ANOV 640 
ANQV 65C 
*/ANOV 660 
*/ANOV 670 
*/ANOV 686 
ANOV 690 
*/ANOV 7CO 
*/ANOV 710 
*/ANOV 720 
ANOV 73C 
ANOV 74C 
ANOV 75C 
ANOV 76C 
ANQV 77C 
*x/ANOV 780 
ANOV 790 
ANQV 80C 
ANOV 810 
ANOV 8&2C 
ANOV 830 
ANOV 84C 
ANOV 850 
ANOV 86C 
ANOV 870 
ANOV 880 
ANOV 890 
ANOV 900 
ANOV 910 
ANOV 920 
ANOV 930 
ANOV 940 
ANOV 950 
ANOV 960 
ANOV 970 
ANQV 980 

- ANOV 990 
ANOV1C00 
ANOV1010 
ANOV1020 
ANOV1030 
ANOV1040 
ANOVLOQ50 
ANOV1060 
ANOV1O70 
-ANOV1080 
ANOV1LOS9O 
ANOV1100 
ANOVL110 
ANOV1120 
ANOV1I130 
ANOV1140 
ANOV1150 
*/ANOV1160 


10¢ 
110 
12¢c 
13¢ 
14C¢ 
150 
160 
170 
180 
19¢ 
200 
21¢ 
22c 
230 
24C 
250 
260 
27¢ 
280 
29C 
30c 
31¢ 
32C 
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DAT3..6 ODAT3 
TRE RR RR RR RO RR eR a a eR a RE RE RRR REE ERK EKER KRKEKEREEK/ DATS 
/% : */DAT3 
/%* TO READ A VECTOR OF FLOATING POINT DATA. */DAT3 
1* */DAT3 
73% Rok a Stok eto 2 Oe tok ak Re Ra IR tO tong Og Ro ee io tok OK / DA T3 
PROCEDURE (MyD)e- DAT3 
DECLARE DAT3 

CH CHARACTER(8C) , OAT3 
(IeMyNyNlyN2) DAT3 

FIXED BINARY, DAT3 

D(M) FLOAT BINARY,. ' DAT3 

*/DAT3 
*/DAT3 
*/DAT3 
*/DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
OAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
DAT3 
*/DAT3 


N EQUAL THE NUMBER OF DATA POINTS PER 80 COLUMNS OF A DATA 
CARD. 


ON ENOFILE (SYSIN) 
GO TO EXxIT,. 
N =l2:. 
Nl =ly. 
N2 =Nee 
S10... 
IF M LE N2 
THEN N2 =Mye 
GET EDIT (CH) (A(80C)),. 
GET STRING (CH) EDIT (CDCI) O00 T= Nl TO N2)) 
Nl =N2t+1ly. 
IF NI LE M 
THEN DO,. 
N2 =N2+No. 
GQ TO S1G,. 
ENDy. 
REVERT ENDFILE (SYSIN),. 
RETURN,. 
EXIT.. 
PUT FILE €SYSPRINT) EDIT (*ERROR 
(SKIPl1L) -COLUMN(10) 9A),. 
STOP,. 
ENO;,. 


C(INJFC6,0)) 9. 


INSUFFICIENT DATA®) 


7*END OF PROCEDURE DAT3 


DISCRIMINANT ANALYSIS MDSC 


Problem Description 





A set of linear functions is calculated from data on 
many groups for the purpose of classifying new 
individuals into one of several groups. The classi- 
fication of an individual into a group is performed | 
by evaluating each of the calculated linear functions, 
then finding the group for which the associated prob- 
ability is largest. 

The sample problem for discriminant analysis 
consists of four groups of observations, as presented 
in Table 5, The number of observations in the first 
group is eight, the second group seven, the third 
group seven, and the fourth group eight. The number 
of variables in all groups is six, | | . 


Program 





Description 


The discriminant analysis consists of the main pro- 
gram MDSC, a special input routine DAT2, and 
three subroutines from the Scientific Subroutine | 


Package: DMTX, MINV, DSCR. 
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“Table 5. Sample Data for Discriminant Analysis. 


Observation X, 


w 

we 
~x< 

a 


U1 NM UTM NWO 
COMmMaOnanada 


ONOUABRWN-H 
00 O WON 0 ~! 0 


ee 


Group 2: 


7 
8 
2 
8 
| 
BB 
5 


~ 


NOUDW MY 
_ 
NOUONN 


Group 3 


ONOUBRWNHHE 
NN WOOUNOAW 

NO : 
WO MON NW 
COO0MMNMOM 


Capacity. 


The ee of the sample ] program Bad the foniat 
required for data input have been set up as follows: 

1. Up to 25 groups 

2. The number of variables and the number of 
observations depend on the size of core available — 
for input. 

 3..(12 F(6, 0)) format for input data, Therefore, 

if a problem satisfies the above conditions, it is 
not necessary to modify the sample program. _How- 
ever, if input data cards are prepared using a dif- 
ferent format, the input format statement in the 
special input routine may be modified, The general 
rules for program modification are described 
later. 


Columns 





Input . 


Control Cards 


- Two control cards are required for each problem 
and are read by the main program, MDSC. 


_ The first card is prepared as follows: 


Contents po ees 


Problem 
1-6 Problem number (may SAMPLE 
be alphameric) | . 
7-8 Number of groups 04 
| (greater than 1) 

9-10 Number of variables 06 
11-12 Number of cards per | 01 
| observation -_ 


The second card is prepared as follows: 


For Sample 


Columns Contents Problem 
1-3 Number of observations | 08. 
| in the first group i 
4-6 Number of observations 07 
4 in the second group | | 
7-9 Number of observations | 08 
in the third group 
. 10-12, Number of observations 
- in the fourth group 
Number of observations 


73-75 
| in the 25th group 


Leading zeros are not pee to be res 


| Data Cards 


| Since input data are read into the computer one ob- 


servation at a time, each row of data in Table 5 is 
keypunched on a separate card, using the format 
(12 F(6,0)). This format assumes twelve 6-column 
fields per card. 

If there are more than twelve variables in a 


7 problem, each row of data is continued on the sec- 


ond and third cards until the last data point is key- 
punched. However, each row of data must peat on 
a new card. : 

If there is more than one data card per siseree 
tion, the data card count indicator (NCARD), which 
appears in columns 11-12 of the first control card, 


- must be changed to agree with the number of data — 


cards per observation. 
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Deck Setup +7 SAMPLE “6 1 


The deck setup is shown in Figure 26. 


~~ 


~ 


Last problem 


Control 
Cards 





WOUOAVDANANUNONUANNW DO 


-_ 


Second problem 


~ 


7 
3 
4 
s 
6 
5 
7 
2 
7 
S 
1 
8 
1 
7 
7 
7 
3 
S 
4 
8 
6 
& 
7 
3 
4 
9 
5 
S 
@ 
7 
7 


DBNDAANADANAUWUONNUMANA SDV AOODAAND®A®D 





First problem Figure 27, 


Output 





Description 


The output of the sample program for discriminant 
analysis includes: 

Procedures and main program 1. Means of variables in each group 

2. Pooled dispersion matrix 

3. Common means | 

4, General Mahalanobis D-square 

5. Constant and coefficient of each discriminant 





function 
6. Probability associated with the largest dis- 
Figure 26. | criminant function evaluated for each observation 
Sample 
P Sample 
The listing of input cards for the sample is shown The output listing for the Berople problem is shown 
in Figure 27. as Figure 28. | | 
DISCRIMINANT ANALYSISeceee SAMPLE 
NUMBER OF GROUPS 4 
NUMBER OF VARIABLES 6 
SAMPLE SIZES... 
GROUP 
1 8 
2 7 
3 7 
4 8 
GROUP 1 MEANS . 
7-8750C 7.50C0C 4.62500 7-25C60 18.500CO 8.87500 
GROUP 2 MEANS : 
7-14286 8.57143 9.57143 Te85714 20.14285 12.57143 
GROUP 3 £=MEANS : 
7.85714 7.85714 8.85714 9.28571 17 .42856 19.14286 
GROUP 4 MEANS’ | A . 
7-750C0 8.0ccco 6.75000 _ 137500 21.37500 9.25000 
POOLED DISPERSION MATRIX 
ROW 1 oe . ‘ 
19.61876 | -11.16208 —-5.21497 ; ~6 .C9890 —22 614855 -9.54052 
ROW 2 : ea OU . 
-11.16208 11.94505 5.61813 ReRLtos (22 60982 10.66757 
ROW 3 
“5621497 5.61813 . 39245938 3.93681 ; 16 «23486 9.34546 
ROW . a . - 
—-6.09890 1.91758 3.93681 ‘ 9.83310 4.262156 3.83791 
ROW 5 : ; . , ; 
~-22.74855 22.60982 16 .23486 4.62156 ; 62.78633 30.18262 
ROW 6 
—-9.54052 10.66757 9.34546 3.83791 30.18262 29.57480 


Figure 28. 
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COMMON MEANS 


7.66667 1.96667 7.33333 7.90000 — 19.39998 


GENERALIZED MAHALANOBIS D-SQUARE 12.78063 
OISCRIMINANT FUNCTION 1 
CONSTANT * COEFFICIENTS 


-28.49431 * 
2.63870 2.122C5 -0.17167 


DISCRIMINANT FUNCTION 2 
CONSTANT * COEFFICIENTS 


-29.21C17.—* 
2.6193C 2.2523C 0.04816 


OISCRIMINANT FUNCTION 32 
CONSTANT * CCEFFICIENTS 


—31.86435 * 
2-7445C 2.39588 —0.06457 


DISCFIMINANT FUNCTION 4 
CONSTANT * COEFFICIENTS 


-3C.82628—* . 
2.71860 2.63927 0.13352 


EVALUATION CF CLASSIFICATION FUNCTICNS FOR EACH CBSERVATION 


GRoup 1 
PROBABILITY ASSOCIATED WITH LARGEST 
OBSERVATION LARGEST DISCRIMINANT FUNCTION FUNCTION NO. 
G.38C65 
037045 
« 36261 
244190 


© 44215 
«31787 


Cc 
Cc 
Cc 
C.34454 
Cc 
C 
C.29274 | 


GROUP 2 , 
PRCBABILITY ASSOCIATED WITH LARGEST 
OBSERVATION LARGEST DISCRIMINANT FUNCTION FUNCTION NO. 

251029 : 2 

~50C6C 

»3476C 

»43130 

44282 

C2 36407 

» 28515 


GROUP 3 . 
PROBABILITY ASSOCIATED WITH : LARGEST 
OBSERVATION LARGEST DISCRIMINANT FUNCTION FUNCTION NO. 
.67611 : 
~46629 
+ 54636 
- 66688 
+ 3C600 
2 33043 
-39005 


GROUP 4 wis oo 
PROBABILITY ASSOCIATED WITH LARGEST 
OBSERVATION LARGEST DISCRIMINANT FUNCTION FUNCTION NO. 

©33727 

637475 

«62340 

245657 

‘2.52175 

"2 34061 

043135 

«27849 


END OF SAMPLE PROGRAM 
Figure 28. (Continued) 


Program Modification 


1, Changes in the input format statement of the 
special input routine, DAT2: 
Only the format statement for input data may be 
changed, Since sample data are either one- or 
two-digit numbers, rather than using six-column 
fields, as in the sample problem, each row of data 
might have been keypunched in two-column fields; 
if so, the format is changed to (6 F(2,0)). This 
format assumes six 2-column fields per card, | 
beginning in column 1. 


1.91198 


1.88319 _ 


2213260 


1.94539 





10.13332 


0.58476 —0.40477 
0243732 —0.21784 
-0.32718 


0.71677 -0.48760 


2. If there are more than twelve variables in a 
problem, each row of data is continued on the sec-_ 
ond card until the last data point is keypunched. 
However, each row of data must begin in a new 
card, If there is more than one data card per ob- 
servation, the value of the data card count indicator 
(NCARD), which appears in columns 11-12 of the 
first control card, must be changed to agree with 
the number of data cards. | | 7 
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Operating Instructions 





CALL MINV (DeM,DET,CON),. MDSC 970 

IF ERROR NE *0* MDOSC 980 

: : — poe THEN DO, - MDSC 990 

The sample program for discriminant analysis is a BUD EDLY S018 ROUUENE BINYOERAGA: CODE.) TOERRORD ISKTR CAN * “NOSELCOD 
standard PL/I program. Special operating instruc- eee MDSC1030 
. ° ; CALL DSCR (KeMeNoXeXBARe De CMEANeVeCeoPeLG)s- MDSCLO40 

tions are not required. Data set SYSIN is used for IF ERROR NE 0° HOSCLO50 
HEN DOy.. MD 06 

input; data set SYSPRINT, for output. Pur EUSKIP(2) sCOLUMN(LODGAPALLI hae HDSCLOSO 

GO TO S100,. MDSC1090 

END,. : MDSC1L100 

° ° */MDSCL110 
Timing PRINT THE COMMON MEANS. #/MOSC1120 
*/MDSC1L130 

PUT EDIT ("COMMON MEANS") (SKIP(4),COLUMN(10)9A),.- MDSC1140 

: : / PUT EDIT ((CMEAN(I) DO I= L TO M)) (SKIP,COLUMN(1L0O),(6)F(15,5)),. By Aedes 

The execution of this sample program on a System PRINT GENERALIZED MAHALANOBIS D-SQUARE */MOSCL170 

° */MDSC 0 

360 Model 40, using an IBM 2540 Card Reader as PUT EDIT (‘GENERALIZED MAHALANOBIS D-SQUARE? »V) HDSC1190 

i e (SKIP(4) s;COLUMN( LO) pAgFC15 95) sSKIP(2))_~ MDSC1200 
input and an IBM 1403, Model N1, as output, is 28 */MDSC1210 


_ PRINT CONSTANTS AND COEFFICIENTS OF DISCRIMINANT FUNCTIONS #/MDSC1220 

*/MDSC1230 

seconds. DO I = 1 TO Ky. MDSC1240. 
PUT EDIT (*DISCRIMINANT FUNCTION’ »Ie*CONSTANT *#%, MDSC1250 
COEFFICIENTS") (SKIP(2),COLUMN(10) sAeF(3)—SKIP(2)> MDSC1260 

COLUMN( 16) sA2X(3) eA) oe MDSC1270 

PUT EDIT (Cllel)e* * *) CSKIP(2),COLUMN( LO) 9F(14,5)2A),-  MDSC1280 

PUT EDIT ((C(Js1) DO J= 2 TO M#L)) USKIP,COLUMN( 32), MDSC1290 

(G)F (1495) ) 96 MDSC1L300 

END». MDSC1310 
*/MDSC1320 

PRINT EVALUATION OF CLASSIFICATION FUNCTIONS OF EACH */MDSC1330 
OBSERVATION. */MDSC1340 
*/MDSC1350 

PUT EDIT ("EVALUATION OF CLASSIFICATION FUNCTIONS FOR EACH', MDSC1360 
* OBSERVATION) (SKIP (4) yCOLUMNILO) Ay Adee MOSC1370 

NL =lee | MDSC1380 
N2  =NOL) 96 MDSC1390 
DO f = 1 TO Kye MDSC1400 

PUT EDIT (*GROUP',I,y"PROBABILITY ASSOCIATED WITH',*LARGEST', MDSC1410 

* OBSERVATION", *LARGEST DISCRIMINANT FUNCTION® » MDSC1420 

‘FUNCTION NO.*) MDSC1430 

(SKIP (2) »COLUMN(10) pAyF (3) ySKIPsCOLUMN(28) ,AsX(LL) 2 Ay MDSC1440 

SKIP yCOLUMN(1O) pA X(5) 9AgX(8) Adee MDSC1450 

=O50 MDSC1460 

DO J = NL TO N2¢e~ MOSC1L470 

L =Ltlye MDSC1480 

PUT EDIT (LeP(J) gL GOJ)) (SKIP ,»COLUMN(10) 9F(6)_X(20) 9F(8¢5)MDSC1490 

2X(20) oF(6) D9 MDSC1500 

END». MDSC1510 

IF l= K MDSC1520 

THEN GO TO CONTre. MOSC1530 

NL  =NL4tN(I) 96 MDSC1540 

N2 =N2+N(I 41) 96 MDSC1550 
END». MDSC1560 
CONT.. . MDSC1570 
MDSC1580 

MDSC1590 

GO TO S$100,. MDSC1600 
PUT FILE (SYSPRINT) EDIT (*END OF SAMPLE PROGRAM® ) MDSC1620 
(SKIP(5) yCOLUMN(10) 9A) 96 MDSC1630 
FINe. MDSC1640 
END». /*END OF PROCEDURE MDSC */MDSC1650 


MDSC.. MDSC 
J FERRERKEREAEERSAREREAERERE ERAS EEEEAAEE SE RAEAE EKER EREE EG EEE EE EEE ES EEE /MDSC 
/* */MDSC 
/* TO READ THE PROBLEM PARAMETER CARD AND DATA FOR DISCRIMINANT */MDSC 
ANALYSIS, CALL THE PROCEDURES TO CALCULATE VARIABLE MEANS IN */MDSC 

EACH GROUP, POOLED DISPERSION MATRIX, COMMON COEFFICIENTS OF */MDSC 
DISCRIMINANT FUNCTIONS AND PROBABILITY ASSOCIATED WITH LARG- */MDSC 

EST DISCRIMINANT FUNCTION OF EACH CASE IN EACH GROUP, AND +*/MDSC 

PRINT THE RESULTS. */MDSC 

*/MDSC 

JL ¥REEREREKEREEKEKAAKEKKEKREK ESE KEKE EKERE ERE RKEKKASE EKER EKES EE EKEEKEEEKEKE/MD SC 
PROCEDURE OPTIONS (MAIN) 96 MDSC 
DECLARE MDSC 
(lydeKybyMyNl oN2_NN) MDSC 

FIXED BINARY» ; MDSC 

PRL CHARACTER (6), MDSC 

ERROR EXTERNAL CHARACTER (1), MOSC 
(NCARD,»NV) EXTERNAL» MDSC 

CH CHARACTER (80)). MDSC 

/* */MDSC 
ON ENOFILE (SYSIN) GO TO EXIT». MDSC 
$100.. MDSC 
GET EDIT (CH) (A(80))9- MDSC 
GET STRING (CH) EDIT (PR1yKyMyNCARD) (A(6)93 F(2))9~ MDSC 
*/MDSC 

PR1.seeesPROBLEM NUMBER (MAY BE ALPHAMERIC) */MDSC 
KeeeseeesNUMBER OF GROUPS */MDSC 
MoeseeeeeNUMBER OF VARIABLES */MDSC 
NCARD....NUMBER OF CARDS PER OBSERVATION */MDSC 

*/MDSC 

NC ARD=NCARD*80 5. MDSC 
=090 MDSC 

MDSC 

MDSC 

DECLARE MDSC 
N(K) FIXED BINARY, MDSC 
(XBAR(MyK) 9CUM#1 9K) sD (MyM) pCMEAN(M) » DET» Vy CON) MD SC 

BINARY FLOAT?. /*SINGLE PRECISION VERSION /*S#*/MDSC 

BINARY FLOAT (53)5. /*DOUBLE PRECISION VERSION /*D*/MDSC 

*/MDSC 

READ SAMPLE SIZE OF EACH GROUP */MDSC 

*/MDSC 

GET EDIT (CH) (A(80))9. MDSC 
GET STRING (CH) EDIT ({N(I) DO I= 1 TO K)) MDSC 
(25 F(3)) 96 MDSC 

_ NN =SUM (N)y. MDSC 
THO... MDSC 
BEGIN».» MDSC 
DECLARE MD SC 
LG(NN) FIXED BINARY» MDSC 

X(NNyM) FLOAT BINARY, _ MDSC 

P(NN) MDSC 

BINARY FLOAT». ; /*SINGLE PRECISION VERSION /*S*/MDSC 

/* BINARY FLOAT (53)9- | /*DOUBLE PRECISION VERSION /*D*/MDSC 
PUT EDIT ("DISCRIMINANT ANALYSIS...0e% sPRly * NUMBER OF GROUPS",K, MDSC 

* NUMBER OF VARIABLES* My" SAMPLE SIZESeo"»"GROUP*) MDSC 

(PAGE sSKIP(4) »COLUMN(LO) sApAySKIP(2) pCOLUMN( 10) 9AyX(7)9F(3)9 = MDSC 

SKIP (1) ¢COLUMN(10) pAeF C7) SKIPCL) pCOLUMN( 10) AySKIPUL)» MDSC 

COLUHN( 22) 9A)». MDSC 

PUT EDIT ((1eN(I) DO I= 1 TO KI) (SKIPC1) »COLUMN(22)9F(3)2X(8)5 MDSC 
Fl4)) 96 ; MDSC 

PUT EDIT (* ') (SKIP(2),A)95 MDSC 

= . */MDSC 

READ IN DATA. IN THE MANNER EQUIVALENT TO A 3-DIMENSIONAL */MDSC 

ARRAY X(Lelol) sXl2yLe1) X(3elyl),ETC. THE FIRST SUBSCRIPT */MDSC 

IS THE CASE NUMBER,THE SECOND SUBSCRIPT IS THE VARIABLE */MDSC 

NUMBER AND THE THIRD SUBSCRIPT IS THE GROUP NUMBER */MDSC 

*/MDSC 

DO I = 1 TO NNpee MDSC 

CALL DAT2 (MyCMEAN) 96 | MDSC 

DO J = 1 TO My. . MDSC 
X(I,J)=CMEAN(J) 9- MO SC 

END». MDSC 

ENDy. MDSC 

CALL DMTX (KyMyNiXeXBARyD) 5~ MDSC 

IF ERROR NE ‘0! MOSC 
THEN DOy. | MDSC 
PUT EDIT {*IN ROUTINE DMTX ERROR CODE = ',ERROR) MDSC 
(SKIP(2) ,COLUMN(10) pAsAC1)) 96 MODSC 


co TO FINs. Mosc PRINCIPAL COMPONENTS ANALYSIS FACT 


*/MDSC 

PRINT MEANS AND POOLED DISPERSION MATRIX */MDSC 

*/MOSC 
DO I = 1 TO Kye MDSC Pr D ription 
PUT EDIT (*GROUP*,I,*MEANS") (SKIP (2),COLUMN(11),A,F(3),X(2),2 MDSC oblem esc 1p 10 
Albee ; MOSC 
PUT EDIT ((XBAR( JI) DO J= 1 TO M)) (SKIPCL)»COLUMN(LO), MDSC 
(6)F(15.5)) 9-6 ; MDSC ° e e * 
END» « HDSC A principal component solution and the varimax 

PUT EDIT (*POOLED DISPERSION MATRIX") (SKIP(3),eCGLUMN(10),A)_~ MD SC 


DO I = 1 TO Ms. MOSC rotation of the factor matrix are performed. Prin- 
PUT EDIT (*ROW',I) (SKIP(2),COLUMN(10)_AyF(3) )9- MD SC 


ee ((D(I,J) DO J= Lb TO M)) (SKIP,COLUMN(1L0)76 F(L5s5)) 96 eee cipal components analysis is used to determine the 
minimum number of independent dimensions needed 





DAT2Ze. ; DAT2 
T PRR BA HO HHH He he a ee a a a aK eK I ee Re aC he a a ae hee ie hee ae Hee te ak ea ee ok oe ee KS OAT 2 
/* &/DAT2 
TO READ FLOATING POINT DATA, ONE OBSERVATION AT A TIME. */DAT2 

DATA MAY BE SAVED ON A DATA SET. */DAT2 

*/DAT2 

FRR SR ROK ote Kok Rk otk tok kk teak tk ak kok dit taki te ak ak dete ae kek ok a kak aa tek ek ok ak ek Fok eK / OA T2 
PROCEDURE (MeD),>. “ DAT2 
DECLARE DAT2 
XDATA FILE STSEAM ENVIRONMENT (CONSECUTIVE V(2000,2CC)), DAT2 
(NCARD»NV) EXTERNAL, DAT2 

CH CHARACTERCNCARD) » , DAT2 
(1,M,MM) FIXED BINARY, DAT2 

D(*) FLOAT BINARY». DAT2 

*/ODAT2 

ON ENOFILE {(SYSIN) . DAT2 

GO TO EXITs. ; . OAT2 
GET EDIT (CH) CA{NCARD)) 4. . DAT2 

MM =CEIL(M/12)y. DAT2 
GET STRING (CH) EDIT ((O0(T) DO I= 1 TO M)) DAT2 
C(MM)0012)F (650) 9X08) I) 9. ; DAT2 

IF NV= 1 DAT2 
THEN PUT FILE (XDATA) EDIT ((D( 1) DO T= 1 TO M)) (IMIDE C620) )_. DAT2 
REVERT ENDFILE (SYSIN)». DAT2 
RETURN,. DAT2 
EXIT.. OAT2 
PUT FILE (SYSPRINT) EDIT ("ERROR INSUFFICIENT DATA®) DAT2 
(SKIP(1),COLUMN(10),A)5. DAT2 

STOP,. DAT2 
END,. /7*END OF PROCEDURE DAT2 */DAT2 








=Oy6 MOSC 
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to account for most of the variance inthe original . © 4. (12 F(6,0)) format for input data cards. - 


set of variables. The varimax rotation is used to _ Therefore, if a problem satisfies the above condi- 
simplify columns (factors) rather than rows (vari- tions, it is not necessary to modify the sample | 
agree) of the factor matrix. _ program. However, if input data cards are pre- 
~The sample problem for principal éomponents | pared using a different format, the input format. 
| analysis consists of 23 observations with nine statement in the input procedure, DAT2, must be > 
variables, as presented in Table 6. In order to modified. The general rules for program modifi- 
keep the number of independent dimensions as small cation are described later. | 
as possible, only those eigenvalues (of correlation 
coefficients) greater than or equal to 1.0 are ‘Input 


retained in the analysis. | 
: 7 | | Control Card: 
Table 6. Sample Data for Principal 


Components Analysis == | Columns Contents — For Sample Problem 
1-6 ‘Problem number ©. SAMPLE 
(may be alphameric) . : 
7-11 Number of obser-. 7 
— vations | 00023 
12-13 Number of variables 09 | 
14-19 Value used to limit “9001. 0° 


the number of eigen- | 
values of correlation 
coefficients. Only 
those eigenvalues — 
greater than or equal 
to this value are re- 
tained in the analysis. 
(A decimal point 
3 must be specified. ) 
20-21 Number of data _ 01 





cards per observa- 
tion. 
Program 7 | | _ Leading zeros do not have to be keypunched. 
_ Description | oo | Data Cards 
The principal components analysis sample program Since input fates are read into the computer one ob- 
consists of a main routine, FACT, a special input - servation at a time, each row'of data in Table 6 is 
routine named DAT2, and five subroutines from the keypunched on a separate card, using the format 
Scientific Subroutine Package: CORR, MSDU, _ (12 F(6,0)). This format assumes twelve 6- column | 
TRAC, LOAD, and VRMX. - fields per card. . . 4 
| ~ If there are more than twelve eviied ina 
Capacity | | | a problem, each row of data is continued on the second . 
| | — | and third cards until the last data point is keypunched.. 
The capacity of the sample program and the format BOWwevee each row of data must begin on a new card. 
required for data input have been set up as follows: : 
1. Up to 96 variables can be read. Deck Setup 
2. Up to 99999 observations can be read. | | 
3. Up to eight data cards per observation: can be The deck ses is s shown in Figure 99. 
read. 
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in| 
Control 
Card 
/ 









Second problem 


First problem 






Control 
Card 






Procedures and main program 


Figure 29, 


Sample 


The listing of input cards for the sample problem is 
shown in Figure 30. 


PRINCIPAL COMPONENT ANALYSIS. «2. SAMPLE 


NO. OF CASES 23 
NO. OF VARIABLES 9 


MEANS 
9.30435 12.60870 23.00000 18.00000 12.86957 
19.39130 25213043 
STANDARD DEVIATIONS ; 
2.70412 4.59978 5.33427 8.33393 3.13781 
556563 6209249 
CORRELATION COEFFICIENTS 


ROW 1 
1.00000 0.34987 0.11975 0.12102 0.21917 -0.09549 


ROW 2 
0.34987 1.0c00¢ 0.41311 0.35572 -0.08243 -0.09100 


ROW 3 
0.11975 0.41311 1.0000C Co41512 ~0.43179 -0.08 346 


ROW 


4 
0.12102 0.35572 0.41512 ' 1.000c¢e -0.31288 © -—0.50365 


ROW 5 
0.21917 ~0.08243 -0.43179 —-0.31288 1.00000 —0.23009 


ROW 6 
-0.09549 -0.09100 —0.08346 ~0.50365 -0.23000 1.00000 


ROW 


7 
0.20901 0.29622 -0.10252 0.49856 0.03310 —-0 6.44520 


ROW 8 
-0.12908 —C.32044 0.03215 0.22539 -0 00475 0.25441 © 


9 
0.05818 0.35387 0.27833 0.59890 -0.30341 ~0.37456 


Figure 31, 


Last problem 





SAMPLECOC232090C01.C 1 
q 7 9 





Figure 30. 
Output 


Description 


The output of the sample program for principal 
components analysis includes: 

1. Means | 

2. Standard deviations 

3. Correlation coefficients 

4. Eigenvalues 

5. Cumulative percentage of eigenvalues 

6. Eigenvectors 

7. Factor matrix 

8. Variance of factor matrix for each iteration 
cycle | | - 

9. Rotated factor matrix 

10. Check on communalities 


Sample 


The output listing for the sample problem is shown 
in Figure 31. 


34. 82608 5400900 


9.29149 14.87826 


0.20901 -0.12908 0.05818 
0.29622 —0.32044 0.35387 
-0.10252 0.03215 0.27833 
0.49856 C.22539 0.59896 
0.0331C -C.00475 -0.30341 
-0.44520 —0. 25441 ~0.37456 
1.00c00 -0.28C050 0.60124 
~0.2805C | 1.0CC000 C.13516 


0.60124 0.13516 1.0¢0CC 
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EIGENVALUES 


2.94988 1.64368 
CUMULATIVE PERCENTAGE OF 
0.32776 C.51040 
EIGENVECTORS 
vecrorR 1. 
0.16437 0.34836 
VECTOR 2 
0.34837 0.96552 
VECTOR 3 
-0.29899 -0.46825 
VECTOR 4 
9.54441 0.16909 


FACTOR MATRIX € 4 FACTORS) 


VARIABLE 1 
0.28232 


VARTABLE 2 
0.59831 


VARTABLE 3 
9.49460 


VARTABLE 4 
0.85293 


VARTABLE 5 
~0.28865 


VARIABLE 6 
-0.56544 


VARTABLE 7 
9.68590 


VARIABLE 8 
0.02211 


VAS TABLE 9 
0.81614 


ITERATION 
CYCLE 


COON OU WNHO 


0.44663 


0.0840C 


-0.57240 


~0.15248 


O.78475 


-0.33882 


0.49821 


—-0.31853 


-0.0771C 


VARIANCES 


9.211288 
0.336136 
0.397026 
0.403904 
0.405175 
9.405527 
0.405579 
0.4€5586 
0.405586 
0.405586 
0.405586 
0.4€5586 
0.4C05586 


ROTATED FACTOP MATRIX ( 


VARIABLE 1 
0.05498 


VAPTABLE 2 
0.29329 


VARTABLE 3 
C.C5114 


VARIABLE 4 
0.74040 


VACTABLE 5 
~C.C9991 


VARIABLE 6 
-0.662356 


VARTABLE 7 
9.86997 


VARIABLE 8 
9.C36C2 
VARTABLE 9 
C.6C531 


0.07183 
~0.39653 
-0.82493 
0.41401 

0.80662 
-0.21579 

0.18299 
0.05596 


-0.32759 


CKECK ON COMMUNALITIES 


VARTABLE 


OOaNounhfuvve 


ORIGINAL 


C.734C9 
0.73649 
G.81464 
C.79955- 
C.83109 
6.75725 
C.92C06 
C.86476 
C.75652 


END OF SAMPLE PROGRAM 


Figure 31. (Continued) 


1.55514 1.06579 
EIGENVALUES 
0.68319 0.80161 

0.28797 0.49661 

-0.44647 -0.11893 

-0.23534 0.17377 

-0. 37286 0.56203 

-0.58394 0.17457 
0.21671 0.04297 
0.18043 C.31525 

-0.54303 -0.16686 
0.02345 -0.44816 
0. 768C2 0.41587 
6.15551 -0.24559 

4 FACTORS) 

-0.05578 0.85017 
0.15668 0.32984 
0.24579 0.13972 
0.13525 0.39228 

-C.44983 -0.20593 

-0. 34918 G.C883C 
0.91375 -0.15962 
6.00994 ~0.0238C 

FINAL 
0.73408 
0.73647 
0.81463 
0.79954 
C.83107 
0.75724 
0.92005 
C2 86474 
6.75651 


-0.16806 


0.61210 
0.14468 


0.30537 


DIFFERENCE 


0.00001 
0.00001 


- 0.00001 


0.00001 
0.00001 
0.90001 
0.00001 
0.c0001 
0.00001 


-0.32922 


—-0.26428 


0 643545 


-0.16163 


0.39935 


0.38860 


0.01881 


0.43410 


0.01287 


-0. 24845 
0.61587 | 


0.40283 


0.47518 


-0.06014 


0212470 


-0.23789 
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Program Modifications 


S10C.. . FACT 210 
: , GET EDIT (CH) (A(80)),. FACT 220 
: : GET STRING (CH) EDIT (PRL eNeMepCONeNCARD) (A(6)5F(5) ,F(2),F (6,0), FACT 230 
Input data in a different format can also be handled F(2)) 96 FACT 249 
by providing a different format statement. In order eee acces a oe pA ai 
eee . sea MeseseeseeeNUMBER OF VARIABLES */FACT 280 
to familiarize the user with the program modifica- CONs+seee+eCONSTANT USED TC DECIDE HOW MANY EIGENVALUES */EACT 290 
e . ° */FACT 300 
tions, the following general rules are supplied in NCARD NUMBER OF DATA CARDS PER OBSERVATION t/ACT 310 
terms of the sample problem: Sipe eee ae 
e @ IN; 
1. Changes in the input format statement of the DECLARE eae 
: : 3 (R(MeM),VOMeM) eBOM) 9D0M) oS(M) o TOM) pXBAR(M) »TV(51) 9XC191)) FACT 37¢C 
special input subroutine, DAT2: ye BINARY FLOAT’ £53) 7#0QUBLE PRECISION VERSION /#08/FACT 390 
| Only the format statement for input data may BR TL RECORE on Oe ee ee nee cnen sue 
be changed. Since sample data are either one- or | GSRIPULNCOLUINEISIVAVFLON SKIP 2 ne BACT 436 
oie e e FACT 440 
two-digit numbers, rather than using six-column FACT 450 
e ‘ : ACT 46 
fields as in the sample problem, each row of data CALL CORR (Ne Ms{D¢XeXBAR 9SeVeR yD) + : FACT 470 
might have been keypunched in two-column fields; if ~ rae (*IN ROUTINE CORR ERROR CODE = *,ERROR) paeT 506 
oe ° (SKIP(2) ,COLUMN( 10) sA,ACL) Dg FACT 510 
so, the format is changed to 9F(2,0). This format GO TO $100,~ FACT $2¢ 
e ° . . e END». FACT 530 
assumes nine 2-column fields per card, beginning in EDIT (*MEANS') (SKIP(2),COLUMN(1C0),A) 96 FACT 540 
EDIT ((XBAF(J) DO J= 1 TO M)) (SKIP ,COLUMN(LOD, (7) F01555))_. ‘once om 
column 1. | PRINT MEANS AND STANDARD DEVIATIONS aod aS 
e e eo e . x FA 5 
The special input subroutine, DAT2, 18 EDIT (*STANDARD DEVIATIONS") (SKIP(2) ,COLUMN(10),A)_. FACT 590 
normally written by the user to handle different EDIT ((S(J) DO J= 1 TO M)) (SKIP,COLUMN(10)5(7)F(1525)),. tiene nee 
‘ PRINT CORRELATION COEFFICIENTS */FACT 620 
é */FACT 630 
formats for different problems The Upet may EOIT ('CGRRELATION COEFFICIENTS") (SKIP(€2),COLUMN(10),A),. FACT 640 
1 . 1 ; = TC Moye - FACT 650 
modify this procedure to perform testing of input BUT TEBE (snow) (SKIP(2),COLUMN(10) 2AvFC32) ¢. FACT 660 
data, transformation of data, and so on. ir ee (CR(I,J) OO J= 1 TO M)) (SKIP,»COLUMN(1L0)29 FU12,5)),. ee oie 
: ° ° MV =Oe.6 , FACT 69¢ 
2. If there are more than twelve variables in a CALL SOU (RyVaMyHVDy. FACT 700 
i i - : c ) 
problem, each row of data 1S continued on the , ve sar EDIT ("IN ROUTINE MSDU ERROR CODE ',ERROR) caer uae 
second and third cards until the last data point is Gu : ey 
: i FACT 760 
keypunched. However, each row of data must begin CALL TRAC (MyR yCON Ks) 2 FACT 770 
; IF ERROR NE 'C® . : A 
j iti i i ? FACT 790 
on a new card. If this condition exists, the value vee por EDIT €*IN ROUTINE TRAC ERROR CODE = *,ERROR) FACT 800 
-of the data card count indicator (NCARD), which a ee one erent | : cane 
appears in columns 20-21 of the control card, must © BO 1 Si Te Kes /* PRINT EIGENVALUES K/FACT 840 
be changed to agree with the number of data cards END» « | : FACT 860 
EDIT (*EIGENVALUES!®) (SKIP(3),COLUMN(10)sA)—2. FACT 870 
per TOW. ; EDIT ((S(J) DO J= 1 TO K)) (SKIP,COLUMN(10),9 F(1255)),. soe ee cee 
PRINT CUMULATIVE PERCENTAGE OF EIGENVALUES */FACT as 
*/FACT 9 
O eratin Instructions EDIT Sy Cal ONAt oe OF EIGENVALUES® ) spl a 
BP : B SGC OO ue te (SKIP sCOLUMN(10)99 F(12,95))_. JracT ei 
: * 
7 . PRINT EIGENVECTORS AND FACTOR MATRIX eee a. 
: * A 
The sample program for principal components EDIT ( EIGENVECTORS") (SKIP(3) sCOLUMN(10)¢A)e~ se ee 
s . ° = 7: i. FA 9 
analysis is a standard PL/I program. Special BUT EDLE-( eVECTOR®)a1: CSKIPE2 1s COLUNNCLO)SASELSII 9 FACTLOCO 
e . . e PUT EDIT (CVOI_edJ) DO T= 1 TG M)) (SKIP,COLUMN(10)59 F(12.5)),. FACTLOLO 
operating instructions are not required. Data set END». FACT1020 
‘ Pe : PUT EDIT ("FACTOR MATRIX ("%9K_" FACTORS) *) FACT1030 
SYSIN is used for input; data set SYSPRINT, for saeco se COLUMNLAaN Aap (aN Mes rane roee 
utput. IF ERROR NE 'C! | FACT1060 
‘ N ve FACT1070 
i tie EDIT ("IN ROUTINE LOAD ERROR CODE = *,ERROR) FACT1O080 
O 
(SKIP(2),COLUMN(10) sAg ACL) Dy. aaa es 
° e GO T CCee . FACTLL 
Timing ENDs. | FACTL1LO 
ee. DO = TO My. FACT1120 
SUE EDLY (*VARIABLE'sI) (SKIP(2) »COLUMN(10) Ay F(3)) 96 FACT1130 
2 ; PUT EDIT ((VCI_gJ) DO J= 1 TO K)) (SKIP,COLUMN(10) +9 F(1295))_. Ec iee 
The execution of this sample program on a System/ ERA gary eee en | pcyaee 
360 Model 40, using an IBM 2540 Card Reader as THEN On, Scriaae 
° . PUT EDIT C"IN ROUTINE VRMX ERROR CODE = *,ERROR) FACT1190 
input and an IBM 1403, Model N1, as output, is 45 (SKIP (2) yCOLUMN(10) pAyACL) Dye FACT1L200 
GO TO S1CC,. FACT1210 
seconds. END». FACT1220 


NW =NC+1y. /* PRINT VARIANCES -  */FACT1230 


PUT EDIT C'ITERATION' y*VARIANCES',* CYCLE*) (SKIP(3),COLUMN(10)9Ay FACT124C 


X07) sAySKIP,COLUMN(10),A)5.~ FACT1250 
DO I = 1 TO NWy. FACT1260 
NC =[-l». FACT1270 
PUT EDIT (NC eTVI(I)) (SKIP,COLUMN( 10) ,F (05) 9F (2056) )9.~ FACT1280 
END, . FACT1290 


FACT... FACT 
(2308 88908 008 Eo ogo Ro Soto to to a doe EK, FACT 
1% */FACT 
/* TO READ THE PROBLEM PARAMETER CARD, CALL FIVE PROCEDURES TO */FACT 
1% PERFORM A PRINCIPAL COMPONENT SOLUTIGN AND THE VARIMAX ROTA- */FACT 
1% TION GF A FACTOR MATRIX, AND PRINT THE RESULTS. */FACT 


*/FACT1300 

PRINT RCTATED FACTOR MATRIX ; */FACTL310 
*/FACT1320 

PUT EDIT (*ROTATEO FACTOR MATRIX ("'sKs* FACTORS)®} FACT1330 
(SKIP(3) »COLUMN(10) sAgF 3) A)». FACT1340 

DO 1 = 1 TO Mee _ FACT1350 

PUT EDIT (*VARIABLE'sI) (SKIP(2) »COLUMN(10) pA, F(3))_. FACT1360 

PUT EDIT ((VOITeJ) DO J= L TO K)) (SKIP,»COLUMN(LO),9 F(L2,5)),. FACTI370 
END,. , : FACT1380 


1% */FACT 
19 SIO OR RO ORR ORR FOR SOR ROR ORE KK EK / FACT 
PROCEDURE OPTIONS (MAIN),. FACT 
DECLARE FACT 
(Ty TOsJoKyMeMVeNoNC yNwW) ; FACT 
FIXED BINARY, FACT 
ERROR EXTERNAL CHARACTER(1), ‘ FACT 
(NV,NCARD) EXTERNAL, FACT 
’ CON FACT 
FLOAT BINARY, FACT 
PRL CHARACTER (6), FACT 

CH CHARACTER (80);. FACT | 
1% x/FACT 
ON ENDFILE (SYSIN) GO TO EXIT;. ; FACT 


, */FACT1390 

PRINT COMMUNALITIES , , */FACTL400 
*/FACT1410 

PUT EDIT (*CHECK ON COMMUNALITIES'y *VARIABLE'y*ORIGINAL® »* FINAL" FACT1420 
"DIFFERENCE®) (SKIP(3),COLUMN(1G) sA,SKIPC(2) pCOLUMN( 10), Ay FACT1430 

XC7) gAgXO12) pAgXC10) pAd ge FACT1440 

DQ I = 1 TO My. FACT1450 
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PUT EDIT (1eBC1), TILT) ,D01)) (SKIP,COLUMN(10) 9F(5),3 F(18,5)),- FACTL460 
END,. : 
S206. 


END». 
GO'TO S100,. : 
EXT Tee FACT1510 
PUT FILE (SYSPRINT) EDIT (*END OF SAMPLE PROGRAM" ) . a 
eee Pee esee UMN LOMnyee 


‘FACT1520 
FACT1530 


/*END OF PROCEOURE FACT ' *fFACTL540 


DAT2.. DAT2 
1% hte RR tok ko ko Ro i tok kok tok kkk kta ote ke ke get tek tek ek ok a kek dak doo ok kkk kek kek eK EVD AT 
*/DAT2 

TO READ FLOATING. POINT DATA, ONE OBSERVATION AT A TIME. | */DAT2 

DATA MAY BE SAVED ON A DATASET. #/DAT2 

*/DAT2 

HEA ERAS IAC OSETIA III ASI RA OOS IAAI IAA RAIA] DAT 2 
PROCEDURE (MyD)y. DAT 
DECLARE : DAT2 
XDATA FILE STREAM ENVIRONMENT (CONSECUTIVE V(2000,200)), DAT2 
(NCARD»NV) EXTERNAL, DAT2 

CH CHARACTERUNCARD) » DAT2 
(L»MyMM) FIXED BINARY, . DAT2 

D(*) FLOAT BINARY). DAT2 

z */DAT2 
CN ENDFILE (SYSIN) . | DAT2 

GO TO EXIT, | : DAT2 
GET EDIT (CH) POORCERDING: DAT2 

MM | SCEIL(M/12 DAT2 
GET STRING cca EDIT ({0l1) DO I= 1 TO M)) — DAT2 
 COMMDCC129F (690) 9X08) 0) 96 DAT2 

IF NV= 1 DAT2 
THEN PUT FILE (XDATA) EDIT ({D(1) 00 I= 1 TO M)) (CMDF (600046 — DAT2 
REVERT ENOFILE (SYSIN) 9. DAT2 
gEIUANG: : DAT2 
EXIT. . DAT2 
PUT FILE (SYSPRINT) EDIT (TERROR INSUFFICIENT DATA!) DAT2 
(SKIP(1)¢COLUMN(10) 9A)y. CAT2 

STOPy. | DAT2 
END». /*END OF PROCEDURE DAT2 */DAT2 


-KOLMOGOROV-SMIRNOV TEST KOLM 
Problem Description 


This program is concerned with the problem of 
determining from what probability density function 
a particular sample is drawn, or whether two 
‘different samples were drawn from the same | 
population. In other words, in the one-sample 
case, the actual distribution function of the sample 
is compared with one or more theoretical distribu- 
tion functions, which may be normal, and/or 
exponential, and/or Cauchy, and/or uniform, and/ 
or a user-specified distribution. In the two-sample 
case, the two sample (actual) distribution functions. 
making up the pair are compared with one another. 

_From the above comparisons, a statistic is 
derived. In the one-sample case, this statistic 
evaluates the probability that the statistic will be as 
‘great as or greater than its current value, if the 
hypothesis that the aciual (sample) and the theoreti- 
cal distribution functions are equal is correct. In 
other words, if the probability is determined to be 
0.40, for example, rejecting the hypothesis of | 
equality of the distribution functions will be an in- 
correct action 40 times out of 100. ‘Similarly, in 
‘the two- ~sample case, the hypothesis teing tested is 
the equality of the two actual ieee distribution 
functions. : 

_ This probability is cealoulaied using asymptotic 
formulae. This means that the sample sizes in- 
volved should be large. Sizes greater than 100 are 
: suggested by the literature. In this connection, the 
remarks given under subroutine SMIR should be 
considered. 





Note also that added problems arise when, in the 
one-sample case, the parameters of the continuous 
distribution in question are estimated from the .. 
sample. Lilliefors discusses these problems (see 
reference given in KLMO description). 


Program 
Description 


This program consists of the main routine KOLM; 
and four subroutines from the Scientific Subroutine 
Package: KLMO, KLM2, SMIR, and NDTR. | 


Capacity | 


This program allows up to two samples, : each with 
500 or fewer observations to be examined. If the 
user desires to modify this program to handle more | 
observations, the instructions given below under 
"Program Modification" should be followed. 
Input 
Each job consists of two control cards and the data 
cards (1-3 below). 

1, Job control card (minus signs in cc 1-4) | 


2. Program control card. Each job requires 
one preeree control cai dy defined DELON: 


For Sample 


Columns Contents Deoleud. 
1 - 20 Title (alphameric) Uniform test 
(Job 1) | 
Uniform- 
Gauss Test 
| ‘(job 2) 
21 1 -- one-sample test 1 (job 1) 
2 -- two-sample test 2 (job 2) 
22 Leave blank for one- 0 (job 1) 
sample test. 1 (job 2). 
0 -- Read both Soaeiee . 
(two-sample tests). 
1 -- Read only one 
sample and compare 
it with the first 
- sample read on pre- 
| ceding job. | a: 
23 0 -- Do not print the’ 0 (job 1) - 
| sample(s). " yas 4 
1 -- Print the Sopied: 1 (job 2) 
sample(s). — i 


(F10.3, ten per line) 
(The rest of this control card pertains | to a one- 
sample test. ) 
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Columns 
24 
25 - 29 
30 - 34 
35 
36 - 40 
41 - 45 
46 
47-51 
52 - 56 
57 
58 - 62 
63 - 67 
68 
69 - 73 
74 ~ 78 


Contents 


0 -- Do not compare 


. . With normal pdf, 
_1-- Compare with 


normal pdf, 


u -- mean of the normal 


pdf 


- .§ -- standard deviation | 


of the normal pdf 


| 0 -- Do not compare 


with exponential pdf. 


1 -- Compare with 


exponential pdf, 
u -- mean of the 
exponential pdf 


s -- standard devia-. | 


tion of the. exponential 


_ pdf 


0 -- Do not compare | 
with Cauchy pdf. 

i- Compare with | 
Cauchy pdf, 


u-- median of the _ 


Cauchy pdf 

s -- u-s is the first 
quartile of the 
Cauchy pdf 

0 ~- Do not compare 
with uniform pdf. 

1 -- Compare with 
uniform pdf, 

u -- left endpoint 
of the uniform pdf _ 

s -- right endpoint of 
uniform pdf 

0 -- Do not compare 
with user's pdf, 

1 -- Compare with 
user-specified pdf. 

u\__ Parameters for 

* user-specified pdf 


u and s are described 
fully in 'Description of 


Parameters" under 


subroutine KLMO, and 
are read using Format 
F(5, 0); decimal points 
will override the 
format specification. 


For Sample 


Problems — 


1 (job 1) 


0.5 (job 1) 


0.5 (job 1) 


1 (job 1) 


0.5 (job 1) 


1,0 (job 1) 


1 (job 1) 


0.5 (job 1) 


1.0 (job 1). 


1 (job 1) 
0 (job 1) 
1,0 (job 1). 


0 (job 1) 


0 (job 1) 
0 (job 1) 


3. Data is read into the computer one sample at 


atime. The reading of a sample is terminated by a 
data element of 999999. 


New samples: must begin on 
anew card. Data elements are punched on cards 
using format F(6,0), which assumes twelve 6-column. 
fields per card; decimal points on the card override — 
the format specification. Since the routines KLMO 
and KLM2 sort the samples, no particular order © 


within a sample is necessary. | 


Deck Setup | 


The deck setup is. shown in n Figure 32. 














"Program| Last problem 


sae Card 


First problem 


Procedures and main program 


Figure 32. 


Sample 


The listing of input cards for the sample problems 
is shown in Figure 33. | 
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UNIFORF TEST 
0.377 C.2EC 
C.795 0.827 
0.231 C.8C6 
0.005 ¢.S5l 
0.282 Ce2Cl 
0-692 0.6&3 
0.458 0.654 
0.135 C.536 
C.67C 0.64C 
04242 0-2C€C 
0.636 C.19C 
0.652 C.632 
0.243 C.CC8 
0.982 0.666 
0.501 C€.123 
0.503 0.117 
0.996 C.252 
0.3532 C.2S7 
0.842 C.E&S 
C-236 0.622 
0.136 0.1123 
0.625 C220 
0.905 0.146 
0.482 0.041 
0.581 Ce224 

. 0.422 C.SET 
0.913 0.622 
0.457 C021 
0.455 0.CCS 
O.17E 0.978 
0.524 C2254 
0.463 C.471 


€.611 C.S88 


0.675 0.6C3 
0.376 0.CEZ 
0.388 0.055 
0.C8&5 0-311 
0.546 0.658 
0.562 C.2C7? 
0.208 C.656 
0.141 €.152 
02644 02263 


'10€100C.5000.510C0.5CCCC1100C.50CCC110C0C0000C1 


0.172 0.6€8 
0.870 C.686 
0.753 0.263 


0-€64 0.425 


C.662 0.167 
C.£67 C.C54 
C.041 C.$S5 
C.963 €.S56 
0.805 0.C73 
0-C25 0.349 
0-416 C.786 
C.$23 C.E&44 
C.86C C.CS3 
0.154 €.$33 
0.228 C.2€4 
C.170 C.S72 
c.79C C.111 
O-20€ C.662 
Ge577 C.725 
C2607 0.C42 
0.455 C.7C8 
0.657 0.562 
0.7C@ C.SC9 
C.SO07 0-C77 


‘Cohl2 02655 


0.005 0.328 
0.516 C.502 
0.019 C.$23 
C.919 0.424 
02272 0.827 
0.C47 0-634 
0.664 0.742 
0.431 C.é99 
0.504 €.555 
C.S9C C.381] 
0.836 C.518 
0.102 C,£16 
0.269 0.339 
0.188 C.2é4 
0.304 0.557 
0.654 0.544 
0.785 C.3241 
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0.283 C.S16 
0.515 C227 
C.273 0.154 

-1.157 C.9C2 
0.547 12145 

0.324 0.025 

-C.Oll C.653 
0-714 C.6C7 
0.04E 0.938 
0.656 C.EEC 
1.172 0-762 

~0.295 0.166 
0.313 


0.776 C..6SC 
1.253 0.421 
0.861 C.S27 
0-533 1-270 
0.632 0.3€5 
0-266 1.C35 
0.374 (341 


0.581 0.290 


C.288 0.555 


C.EC4 C2458 
C.57C C.596 
C.C43 6.750 
O.51& €.624 
0.6C4 0.666 
C.Cé8 0.801 
0.19€ 0.516 
C.87C C.C80 
C.S73 0.767 
C.761 0.569 
C.&16 C.058 
Q.Z15 C.ESC 

-£31 0.810 
C.258 0.042 
C556 0.337 
6.115 0.754 
C.163 0.450 
0.787 0.346 
Co15E 0.572 
C.86C C501 
0.C88 0.345 
0.255 0.C97 
C2545 06741 
0.524 0.595 
0.364 C.E67 
0.365 0.&82 
C.331 0.C79 
0.512 0.634 
0.282 0.551 
C2476 C.178 
0.31Z 0.580 
0.C323 0.846 
C.371 0.801 
C2585 0.842 
C2572 0.494 
0.607 0.594 
C.8S5 6.991 
0.605 0.617 
C.376 C2363 


0.514 0.472 
0.737 C.427 
03508 C.628 
02444 0.3C2 
C.117. 0.953 
0.083 0.882 
0.561 0.367 
0.195 0.S€5 
0.336 0.371 
02652 C.1S0 
0-845 C.168 
0.565 0.C73 
0.006 0.515 
0.405 6.441 
C-C83 0.202 
0.574 0.Cé5 
O.C1l2 0.C42 
C.450 C.S18 
0.232 0.345 
0.C06 C.SC4 
0.012 0.528 
C.268 C.C98 
0.277 0.556 
0.892 6.476 
0.94C C.SES 
G.253 C.157 
0.724 Co 244 
C.O1C C.121 
0.50C C.284 
0.195 0.462 
0.103 C.3C3 
0.785 C.113 
0.672 0.810 
0.783 C.C79 
0.467 C.5S2 
0.793 Cell? 
0.2CE 0.8C3 
0.102 6.266 
0.853 Co442 
0.256 C.S84 
0.793 C452 


C.982 C.825595995S - 


C-S10 0.506 
0.495 0.288 
Co44E 0.2702 
0-761 1.110 


C816 C2348 
1.185-C.264 
12451 C.C325 
1.19C 0.433 


0.375 0.6954-0.206 0.126-0.381 1.149 


«53€ €.936 
C.79C 0.302 


0.733-0.2340-0.C12 0.457 


0.584 €.837 


C454 C.695 


0.642 0.185-C.C22 0.037 


1.086 C.487 


O.3ET 1.C67 6.556 C.7C2 


L.04S 0.226-0.297 C.S20 
0.418 1.075 0.C83-0.020 0.362 0.601 
—-0.602 C2763 1.2261 0.3C2-C.C63 0.704 


-0.064 1.C&7~ 


~0.552-C.1€3 
0.818 C.6EE 
C.89S C.4CC 
0.512 1.122 
0-44E-C6 2475 
0.467 1.2188 
C.2S7 C.2C3 
0.6332 1.116 


0.583 €.740 
0.683 0.514 
0.994 0.880 
C-S16 C.838 
0.217 C.E58 
0-536 C.38l 
0.378 1.313 
0-118-C.469 


0.643-C.055-C.COO 0.881 


0.68€ C.7E4 
1.394 C.121 
0.125 1.67C 
C.387 1.243 


0.236 C.675 
0-007 0.657 
0.963 C.659 
0.224 0.4C0 
C.875 0.989 


O.16C C.ol77-C.025 1.125 


0.388 0.772 
0.346-1.018 
0.812 C2537 
1.709 0.133 
0.951 C.3C7 
-0.263-0.06€4 
iS$999S 
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1.C4é-C.067 
1.084 C.CCS 
1.049 0.417 
0-875 C190 


0.317 0.635 
0.82E 6.884 


1.156 0.648 
C.592-02144 
C2284-C.280 
C.743 0.162 
0-445 1.2330 
C.835-0.297 
1.339-0.011 
C.€2S 0.422 
C.663 0.708 
1.163 0.520 
1.115 1.C€00 
C.78S 0.259 
C 0404-C 2124 
0.65€ 0.900 
C.718-0.152 
Ce217 1.206 
C.76C 0.428 
C.S17 0.438 
1.23C 1.127 
0.707 0.857 


0.460 C.828-0.174 0.457 


C.673 C.203 
0.798 1.479 
0.351 0.C53 


1.177 1.644 
1.075 C.2C4 


“Oo41E C840 


0.204 0.976 
0.931 0.745 
0.954 C.608 


C2817 0.183° 


0.665 0.411 
€.540 0.301 
0.156 0.630 
0.113 0.816 
0.157 0.843 
C.275 C.939 
C.40C 0.888 


.C.751 C.851 


0.033 0.565 
0.963 C.810 
0.465 0.996 
0.225 0.766 
C.143 0.482 
G.453 0.463 
C.0CO 0.864 
C365 0.053 
C2455 C381 
C181 0.203 
C.840 0.033 
C.835 0.767 
C2360 0.434 
0.668 0.594 
0.546 0.178 
0.637 0.734 
C.209 0.694 
C.01S 0.956 
C.889 0.607 
0.610 0.646 
C.814 0.557 
C.430 C.868 
C2348 0.759 
0.926 0.964 
C.948 0.462 
0.677 0.668 
C.615 C.7C9 
0.595 0.715 
C.812 0,447 


C.659-0.301 
0.099 0.051 
C.515 C2770 
C.573 Co374 
0.406 0.849 


0.782 0.198 
0.436 C.887 
0.091 0.578 


0.508 Co313- 


0-462 C€.55S 


1.217-0.391 
0.037 0.634 


02-446~C.410 


0.624 0.257 
O.222 02388 


0.718-C.249 
C181 1.799 


C.068-0.227 C.1S8 0.3C05-0.021 


0.007-0.004 
0.109 0.524 
0.401 0.704 
0.643 0.6147 
0.563 0.933 


0.35E 1.203-0.643 0.110 


1.126 C.3S1 
0.5632 C.€10 
0.214 C.S85 
0.664 C€.113 
0.C7@ C.C57 
0.685 C.850 
0.787 1.453 


0.191 0.196 
C2659 0.675 
0.484 1.004 
C.619 0.604 


0.018 0.326 
0-092 C.843 
0.702 0.743 
0.746 0.8233 
0-477 0.164 


‘0.953 0.006 


0.377 0.589 
9.2880 0.931 
0.288 0.139 
0.161 0.514 
0.726 0.365 
0.340 0.383 


0.093 0.470: 


0.195 0.876 
0-752 0.545 
0.57C 0.520 
0.607 0.302 
0.699 0.022 


0.181 0.311 
0.037 0.745. 


0.193 0.728 
0.588 0.701 
0.639 0.539 
0.733 0.029 
0.365 0.285 
0.554 0.984 
0.151 0.302 
0.671 0.416 
0.283 0.454 
0.560 0.761 
0.638 0.367 
0.390 0.520 
0.256 6.16% 
0.343 0.244 
0.422 0.697 
02450 0.022 
0.242 0.287 
0.913 0.462 
0.722 0.950 
0.936 0.178 
0.376 0.231 


0-411 0.951 
0.559 1.053 
1.317 1.255 
0.898 0.372 
0.983 1.184 
0.222 0.445 
0.234 0.874 
0-606-0.340 
1.394-0.038 
0.124-0.096 
0.287 0.583 
0.849 1.063 
1.238 0.376 
1.356 1.024 
1.070-0.023 
C.71S 0.174 
1.108 1.022 
0.012 0.399 
1.176 0.149 
0.310 6.586 
1.598 0.494 
0.687 0.622 


C143 0.868-0.302 0.693 


0.566 0.657 
1.366 0.801 


0.250 0.457-C.01C 0.098 


0-414 CwE8C 


0.852 0.315 


1.217 0.394 
0.301 1.384 
0.975 0.288 
0.231 0.203 


0-583 0.071 1.838-0.313-0.467 0.191 
1.034 0.CO5 0.801 C.920-0-188 0.786 


0.cOS 1.329 


1.221-C.145-C.088 0.629- 


0.852 C.&67 
1.C50 0.€16 


0.C94 0.176 


6-584 C.832-C.026 1.265 


0-562 0.2687 


C.610 0.359 


0.968 0.490 
0.131 0.272 
1.352 0.571 


C.884 0.954-0.275 1.295 


0.069 0.464 
C2916 0.406 


1.-261-0.179 
02204 0.494 


-0.232-0.373 


G.035 1.226-0.072 C.S20 1.207-0.003 0.632 0.004 
0.196 1.058 0.872 C.0€0 C.524 0.501 0.373 0.954 
06248 C.430-02379 Go533 0-688 0.524 Co447 14376 
C.201 1.486 C.351 0.806-0.374 0.735 0.958-0.262 0.332 0.963 





Appendix B--Sample Program--Kolmogorov-Smirnov 


Output 





Description 


The output from the program KOLM gives the 
statistics and probability statements described be- 
low, and in addition identifies the distribution func- 
tions being considered. Sorted samples are print- 
ed on option. 


The following items are eroaieed as output: 

1. Z score, where 
z=. /n D,, for the one-sample test; n ‘is 
the sample size, and Dy is the maximum 
difference between the empirical distribu- 
tion function and the theoretical distribu- 
tion function, 

mn 


Z= Dix 


for the two-sample test; 
mtn m,n | 


m is the size of the second sample; n is 
the size of the first sample; n is the 
maximum difference between the two em- 
pirical distribution functions. 


2. The probability of incorrectly rejecting the 


hypothesis of equality of distribution functions. 
Sample 


Sample output is shown in Figure 34, 


UNTFOR™ TEST 


A 1 SAMPLE TEST WAS REQUESTED. 
THE SIZE OF SAMPLE 1 IS 498. 


THE HYPOTHESIS THAT THE SAMPLE IS FROM A(N) NORMAL 
WITH MEAN C.50¢09 AND VARIANCE C. 2500 ' 
CAN BE REJECTED WITH PROBABILITY C.CCC OF EFEING INCORRECT. 


IS 3.58396+0C FO8 THIS SAMPLE. \ 


- 


DISTRIBUTION 


THE STATISTIC Z 


THE HYPOTHESIS THAT THF SAMPLE IS FROM A(N) . DISTRIBUTION 
WITH MEAN 9.5C0> AND VAOTANCE 1.ccoQ 
CAN AE PEJECTED WITH PPPRABILITY ©.CCC OF REING INCIRRECT. 


TS) 8.8033E4+00 FOQ THIS SAMPLE 


EXPCNENTIAL 


THE STATISTIC Z 


THE KYPCTHESIS THAT THE SAMPLE IS FRGM ACN) CAUCHY . 
WITH MEAN C.5CO0C AND FIRST QUARTILE -0.506C . 
CAN SE REJECTED WITH PROBABILITY C.CCC OF BEING ENCORRECT. 
TS 7.8873E+9C FOR THIS SAMPLE. 


DISTRIBUTION 


THE STATISTIC Z 


THE HYPOTHESTS THAT THE SAMPLE IS FROM ACN) UNIFORM OISTRIBUTION 
IN THE INTERVAL 9.000C T9 1.670C INCLUSIVE 
CAN 8E REJECTED WITH PROBABILITY ©.989 OF RE ING ENGGRRE ETS 


tS 4.4444E-C1 FOS THIS SAMPLE. 


THE STATISTIC Z. 


THE JCB WITH TITLE UNIFORM TEST WAS CCMPLETED. 


Figure 34, 


UNIFORM-GAUSS TEST 


A 2 SAMPLE TEST WAS FEQUESTEC. 


THE SIZE OF SAMPLE 2 IS 492. 


v 
SCRTED SAMPLE ONE AS FOLLOWS 
9.0CC C.005 0.005 0.0C6 0.006 0.006 0.008 0.009 0.010 0.012 
9.012 9.018 0.019 0.€19 0.021 0.022 0.022 0.025 0.029 0.033 
0.033 0.033 '0.C37 0.041 0.041 9.042 0.042 0.042 0.043 0.047 
. 0.053 0.054 0.055 c.058 0.062 0.065 0.068 0.073 0.073 0.077 
C.c79 0.979 0.980 0.083 C.983 0.085 0.088 0.092 0.093 0.093 
C.097 N.C9R C.102 0.1C2 0.103 0.111 0.112 0.113 O1L3 0.113 
"117 0.117 0.119 0.121 0.123 0.136 0.139 0.139 0.141 0.143 
2148 9.151 0.153 0.154 Q.156 Q.157 0.158 0.161 0.163 0.164 
9.2164 0.167 G.168 9.170 0.172 0.177 0.178 0.178 0.178 0.178 
0.181 0.181 C.183 0.188 0.19¢C c.190 0.193 0.195 0.195 0.196 
0.197 0.199 0.200 0.201 Q.202 03203 0.204 0.206 0.207 0.208 
0-208 9.209 C.215 0.220 0.224 0.225 0.228 0.231 0.231 0.232 
02236 9.242 0.242 C2243 0.244 0.253 0.256 C.256 0.260 0.263 
0.263 G.264 C2264 C.266 0.268 0.269 0.272 C.275 0.277 0.282 
C .283 96284 0.285 0.287 0.288 C.288 0.290 0.292 0.294 0.298 
% 2299 Q.3C1 0.302 0.302 0.302 C.303 0.304 0.311 0.311 0.312 
C2326 9.328 0.331 0.336 0.337 0.339 0.340 0.341 0.343 0.344 
C345 0.348 0.348 0.349 0.349 C.353 0.360 0.363 0.364 0.365 
9.365 0.365 0.365 0.367 C.367 0.371 0.371 0.376 0.375 0.2376 
9.377 9.377 0.381 C2381 0.382 C. 383 0.388 0.390 0.397 0.40C 
0.4C9 C411 C2416 0.416 0.422 0.422 0.425 0.427 0.430 0.431 
9 0434 9.434 0-441 0.442 0.444 0.447 0.450 0.450 0.450 0.453 
C.454 0.455 0.455 0.457 C.458 0.458 0.459 0.462 0.462 0.462 
0.463 C2463 0.467 C.469 0.470 0.471 0.472 0.476 0.477 0.478 
9.482 9.482 0-492 0.494 C.500 C.50L 0.501 C.502 0.503 9.504 
0.508 0.512 0.514 0.514 0.515 0.516 0.516 0.518 0.518 0.520 
C.52C C.524 0.531 C.536 0.539 C.540 0.544 0.545 0.546 0.546 
C2554 0.555 C.556 0.556 0.557 0.560 0.561 0.562 0.565 0.570 
£.570 9.572 C2574 0.577 0.580 0.581 0.581 0.585 0.588 0.589 
0.591 C.592 9.594 0.594 0.595 C.595 0.595 0.596 0.597 0.603 
© 604 G.605 C.6C7 C.607 0.607 0.607 0.608 0.610 0.611 0.615 
0.617 C.622 0.622 0.624 C.629 C2630 0.632 0.634 02634 0.636 
9.637 C.638 0.639 C.646 0.644 0.646 C.652 0.652 0.654 0.657 
2.659 C.662 0.662 C.664 0.664 C.665 0.666 C.666 0.667 0.668 
0.668 C.676 C.671 C.672 Q.677 C.679 0.683 0.686 0.688 0.692 
C694 0.694 0.696 C.697 0.698 C.699 0.699 0.701 0.702 0.707 
9.708 0.708 0.709 C.715 0.722 C.724 0.725 0.726 0.728 0.733 
9.734 6.737 C.741 0.742 C2743 C.745 0.745 0.746 0.750 0.751 
0.752 C.753 Q.754 - Q.759 C.761 C.761 0.766 0.767 0.783 0.785 
0.785 C.786 0.787 0.79C 0.793 0.793 0.795 _ 0-801 0.8C1 0.803 
0.804 0.805 0.806 0.810 C.810 0.810 0-812 0.814 0.816 0.816 
C.816 C.817 0.827 C.829 0.833 C.835 0.836 © 0.837 0.840 CQ. 842 
% 842 9.843 C.8423 0.844 0.845 C.846 0.851 0.859 0.860 C.860 
"864 C.867 C .868 6.870 C.87C C.876 0.880 0.882 0.882 0.888 
C .889 C.e9C C892 0.893 C.895 0.904 0.907 0.909 0.909 6.913 
2.913 6.918 C.919 C.923 C2923 0.924 0.926 0.928 0.928 0.931 
+4931 %.933 0.936 C.939 C.940 0.945 0.948 C.95¢ 0.951 0.953 
9.953 0.955 C.956& C.962 C.963 C.963 0.964 0.965 C.967 0.969 
0.969 C.972 C.973 C.973 C.976 C.978 0.982 C.982 C.984 0.984 
; C.985 0.9838 c.99C C.991 C.994 C.$95 0.996 0.996 
SORTED SAMPLE TWO AS FOLLOWS ‘ 
~1.157 -1.018 -0.737 -0.718 -0.643 —6.6C2 -C.552 -0.541 -0.476 —0.475 
-0 469 -0.467 ~C.410 -C.3S7 -C.391 -C.281 -0.379 ~0.374 ~-(0.373 -€.340 
-0.340 —-0.324 -6.313 ~0.302 -0.301 ~C.299 -0.297 ~0.297 -0.283 -~C.28C 
-0.276 —-0.275 —C.264 ~0.263 —-C.262 C249 -0.232 -0.227 —6.206 -C.205 
-C.188 -0.183 -C.179 -C.174 -0.172 -0.159 ~0.152 —0.145 —-Ge144 -0.131 
-0.124 -0.C96 -C.C88é -0.C77 -0.072 -0.C72 -C.C69 -0.C67 -0.064 ~0.C64 
-9.063 -G.C55 -C.C38 —-C.C37 -0.026 —-&.C25 -0.623 -C.023 -0.021 —9.02C 
-€.C12 -0.C1l ~G.611 -0.C11 -0.c1C -C.CC4 -0.C03 c.0cod C.G04% €.6C5 
9.007 0.CG7 0.c09 c.cc9 C.012 €.C25 0.635 | 0.035 9.C27 C.C37 
0.048 0.051 0.053 Q0.€53 0.057 0.C6C 0.C64 0.C68 0.071 0.078 
9.083 0.088 0.091 C.C94 0.098 C.099 0.102 C.109 C.110 0.113 
0.118 0.124 C@.125 0.126 - 0.131 C.133 0.143 0.147 C2149 0.154 
0.160 0.174 6.176 C.177 c.182) 0.185 0.19C G.191 - 0.191 0.196 : 
0.196 0.196 C.19E C.198 6.203 C203 0.204 0.204 0.214 0.217 
0.222 0.222 C.224 0.226 C.227 C.231 G.234 0.236 0.248 C.25C 
C.257 0.259 G.266 C.272 0.273 "0.284 C.287 0.288 0.288 0.297 
C.3¢1 9.361 C.3N2 0.362 C.303 C.305 C.307 6.310 0.313 ¢.313 
0.315 0.517 0.317 C.322 G.341 C.346 0.348 0.351 0.351 0.358 
. 0.359 Q.362 — 0.365 Q.372 C.373 C.374 C.374 C.375 ~ 0.376 9.378 
0.381 0.387 C2387 C.388 C.388 0291 C.394 C.399 C.406 0.400 
0.401 0.464 0-406 0.4C6 C411 0.414 C.417 C.418 C.418 0.421 
0.422 0.422 0.428 C.430 0.433 C.436 0.438 0.445 C2445 9.446 
0.446 0.447 0.448 0.454 C.457 C.457 0.46C C.462 0.464 C.467 
0-484 0.487 G.490 C.494 C.494 C.497 0.499 0.501 0.5C6 0.5C8 
0.512 0.514 C.515 9.515 C-520 0.524 0.524 0.524 G.533 0.533 
0.536 0.5236 C.537 6.547 0.559 C.559 C.562 G.563 0.563 0.566 
0.571 0.573 C.576 0.5823 0.583 C.583 0.584 C.584 0.586 0.592 
0.601 - 0.604 0.6CE C606 9.607 0.€1C 0.610 C.616 0.619 C.622 
0.624 9.629 C2638 C.632 9.632 6.633 0.634 C.635 C2642 0.643 
0.643 C.648 C.653 C.656 0.657 0.658 0.659 C.660 C2663 C.667 
9.673 0.675 C2675 0.680 C.683 C.685: 0.686 0.686 6.687 0.687 
0.688 - 0.699 0.693 0.694 0.695 C.697 0.699 C699 ©.702 G.702 
0.704 C.7C4 C.7C7 0.7C8 0.714 » 6.716 0.719 0.733 G.735 0.740 
0.743 0.760 C.761 C.762 0.763 C.764 0.770 0.772 0.776 782 
0.786 0.787 0.789 0.790 C.798 &.601. 0.801 0.8C6 C.812 0.816 
Q.818 0.823 0.828 C.828 C.829 0.832 0.837 0.838 0.839 0.840 
0.849 0.849 0.85C 0.852 0.852 0.857 C.858 C.861 0.867 C. 868 
9.873 9.874 0.875 0.875 C.88C C.881 0.884 0.884 0.887 - 6.898 
0.899 0.900 G.9C2 C.910 C.913 O.916 0.916 0.916 C.917 €.920 
0.92C 0.930 0.9323 0.936 0.937 ©2938 0.951 C.951 0.954 C2954 
0.958 0.963 0.963 C.968 9.975 0.983 0.985 0.988 C.989 0.994 
0.996 1.000 1.004 1.22 1.024 1.034 1.035 1.046 1.049 1.049 
1.050 1.053 1.€58 1.C63 1.067 1.C70 1.075 1.675 1.C84 1.C86 
1.087 1.1C8 1.11C 1.116 1.119 1.120 1.125 1.127 1.132 1.145 
1.149 1.156 1.163 1.173 1.176 1.176 1.177 1.184 1.188 1.189 
1.190 1.203 1.20€ 1.2C7 1.217 1.217 1.221 1.226 1.230 1.238 
1.243 1.253 © 1.255 1.261 1.261 1.265 1.270 1.295 1.313 1.317 
1.329 1.3390 1.339 1.352 1.356 | 1.366 ' 1.2376 1.384 1.394 1.394 


1.435 1.451 1.479 1.486 1.493 1.598 1.600 1.644 1.67C 1.7C€9 
1.799 1.838 


THE HYPOTHESIS THAT THE TWO SAMPLES ARE.FRCGM THE SAME PCPULATION CAN BE REJECTED WITH (ASYMPTOTIC) 
PROBABILITY OF BEING INCORRECT OF O.CCC. THE STATISTIC Z IS 2.59C0E+00 FOR THESE SAMPLES. 


THE JOB WITH TITLE UNIFORM—-GAUSS TEST WAS COMPLETED. 


END OF SAMPLE PROGRAM 


Figure 34. (Continued) 
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Program Modifications 


1. Program capacity may be increased or de- 
creased by making changes in the allocation state- 
ments. If this is done, the limits on the DO state- 
ments may require modification, as will be the 
case if data formats require changing. Itis also 


possible that output formats may require changes. 


2. Any modifications to the subroutine KLMO in 


terms of added continuous pdf's should be reflected. 


in the program KOLM. It may be necessary to: 
a. Modify the declaration of DIST (5, 3), 


which contains the switches calling on pdf's 


and also contains the parameters u and s 
used by KLMO. 

b. Modify the pdf titling cards numbered 
KOLM 230 through 270. 

c. Modify the- section of the program from _ 


S70 through: §100 to reflect changes a and _ 


b above. These statements call KLMO to 
perform tests and output results. 
3. List of variables in KOLM, and their usage: 


D - | Temporary vector used in reading 
samples 

DAS2 - Job Control Card name (----) » 

DIST - 5 by 3 matrix. The five elements in 
column 1 are switches that allow the 
5 pdf's to be used in one-sample tests. 
Columns 2 and 3 contain the parame- 
ters u and s for the associated test. 

ERROR - Error (in using KLMO, used for 
skipping the test concerned) 

l= Counter used to print correct pdf name 
for pdf used in the test 

IFL - Error indicator (job deck error) 

IES - _ Error (in using KLMO, used for error 
message) 

IO - Switch (used for printing samples) 

IR - ‘Number of samples to be read in cur- 
rent job 

IS - _ Number of samples to Be used in cur- | 
rent job (1 or 2) 

M-. Size of the second sample 

N - Size of first sample 7 

P - Probability of being incorrect if  hy- 
_ pothesis is rejected 

S2 - Temporary storage for u Bude outs: 
put . 

TIT1 - Current pdf names 

TITLE - Job title 

x- Sample 1 

Y- Sample 2 

Zo Z statistic from KLMO or KLM2 


Operating Instructions 


This sample program is a standard PL/I program 
and needs no special operating instructions. Data 
set SYSIN is used for iti data set BESERINYs 


- for eae 
_ Error Messages 


_ The following error conditions will result in mes- 
“gages, followed by the action specified: 


1, Neither a one-nor two-sample test is re- 


quested, or the size of either sample is larger 
- than 500 -- CC.21, CONTROL CARD, INCORRECT, | 
OR SAMPLE SIZE TOO LARGE. JOB IGNORED. 


Action: .Cards are read until a new job control. 
card is found, or until the hopper is empty. 

2. Sample size is less than 100 (not an error) -- 
NOTE THE REMARKS CONCERNING ASYMPTOTIC 


“RESULTS AND SAMPLE SIZE IN Poe oe ee 


SMIR. Action: none. Job continues. 
3. The requirement of subroutine KLMO that 
certain parameters be nonzero or positive is vio- 


lated -- AT LEAST ONE (S) ENTRY PARAMETER 


FOR THE SUBROUTINE KLMO WAS INCORRECT. 
THE TEST FOR THE ASSOCIATED CONTINUOUS 


-PDF WAS IGNORED. Action: All tests are made 


for cases where the parameter s was correct. 
4. A case in which an error requires aborting 


the job, and the succeeding job in the job stack re- _ 


quests a two-sample test where the second sample 
is to be compared with a (first) sample, which was 
read on the previous job -- THIS JOB CALLS FOR 


. THE USE OF A PREVIOUSLY READ SAMPLE, AND 
THE PREVIOUS JOB WAS IGNORED BECAUSE OF 


ERRORS. JOBIGNORED. Action: Cards are read 
until a new job control card is found, or until the 


hopper is empty. 


5. The job control card Geadetine a job is not 
there or is incorrect -- FIRST CARD IN JOB DECK 


(JOB CONTROL CARD) IS INCORRECT. Action: 


Cards are read until a new job control card is 


- found, or until the hopper is empty. 


Timing 


The execution time of this program on a System / 360 


- Modei 40, using a 2540 Card Reader as input and a © 


1403 Printer, Model N1, as output, is 35 seconds 
for job 1 and 55 seconds for job 2. 
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PUT EDIT(* CAN BE REJECTED WITH PROBABILIT*KOLM1280 


KOLM.. KOLM 10 eye ‘ 

[REGRET HALES ER EEEEEERRESEEEE EEE ES EEE EEERE EL ESERSLE SLE SESE ET EKEEEER/KOLM | 20° eerehie Bil ieee .e (can Gre cert ae ra 
/* */KOLM 30 ‘ 

/* THE PURPOSE OF THIS ROUTINE IS TO: */KOLN. 40 Ed tae a are a rater 
/* (1) READ THE CONTROL CARD FOR A ONE OR TWO SAMPLE TEST. */KOLM 50 ENDe. sre Be KDLN1330 
/* (2) READ THE SAMPLE DATA AND DETERMINE THE SAMPLE SIZES. */KOLM 60 Go To $90, KOLM1340 
/* (3) CALL SMIR» KLMO», AND KLM2 FOR CALCULATION OF */KOLM 70 END oe KOLN1350 
/* PROBABILITIES. */KOLM 80 ELSE IES =ERROR KOLM1360 
[% (4) PRINT RESULTS. ae */KOLM 90 590. ' KOLM1370 
7% */KOLM 100 


END ,. 
END». 


KOLM1380 


/ ¥* SRRRARERRERRRAR ATE RSRARA EERE HERES TERSEAESIRSPESASET ESL SS SSESES EE SSF /KOLM 110 KOLM1390 








PROCEDURE OPTIONS (HAIN) 90 KOLM 120 een 1a Sak Os VorMic6o 
DECLARE KOLM 130 . : 
(DASH ,DAS2) CHARACTER (4)5 KOLM 140 TEEN ba /* OUTPUT SAMPLE ONE DECISION epi 
EhrdaK betes TosThelOrl lly E) F2XEO BINARY ROLE on PUT EDIT (* SORTED SAMPLE ONE FOLLOWS*)(SKIP(3),A(26))9« KOLM1L430 
(DIST (593) 9DO12) sX( 501) y¥(501) 9PpZ2S2) FLOAT BINARY, KOLM 160 PUL EDIT Tid) BO Jolt 1OcNi 4 SEIPCAGCIE M16. 51 i Spas 
TITLE CHARACTER (20), KOLH 170 END 7 : ag KDLM1450 
TIT1(5) CHARACTER (16), KOLM 180 iodee  aeoe S EMIAES 
IES CHARACTER (1)> KOLM 190 THEN Catadass 
ERROR EXTERNAL CHARACTER (1)9- KOLM 200 Sion. SeEMiace 
ON ENDFILE(SYSIN) GO TO $2009. KOLM 210 > Yona EP GLNTEOO 
aH aes KOun 220 ie a0 | eountsee 
One: PUT EDIT (* THE JOB WITH TITLE*®,TITLE,* WAS COMPLETED. °) KOLM1510 
pha =o pe a Cee ene pe oleae (SKIP (3) 9A(22) AC18) :A(15) ) 96 KOLM1520 
TITLEL) ==! NORMAL _ "ye 7* AND JOB CONTROL CARD */KOLM 250 We Earcnness paruieae 
ete = ema ae coe 7 THEN PUT EDIT (*NOTE THE REMARKS CONCERNING ASYMPTOTIC RESULTS*KOLML540 
ie =. ve +" AND SAMPLE SIZE IN SUBROUTINE SMIR.*)(SKIP(3),A(46), | KOLMLS50 
104) = UNIFORM ee . KOLM 280 Hea pacuieee 
TITLES) =" USER-SPECIFIED *°,. KOLM 290 caste Siore ott eee 
5100. KOLM 300 END » « KOLM1580 
GET EDIT(DAS29E) (A(4) 9X(75) eF(l) ) 9 KOLM 310 DO,. KOLM1590 
agers Jepene Tete AND sean se PUT EDIT(* AT LEAST ONE (S) ENTRY PARAMETER FOR THE SUBROUTINE KOLML600 
Si Po ne GeeAn WAneNE Seas ner +" KLMO WAS INCORRECT. ',* TEST FOR THE. ASSOCIATED CONTINU*KOLM1610 
BH Se, Coun aes ‘'QUS PDF WAS IGNORED." )(SKIP(3) A(52) sAL21),SKIP,A(32), | KOLM1620 
ve 
GET EDIT(TITLEsIS,1Ry10,DIST(*,*) yE) (AC 20)93 FUL) eSCFUL) 22 FU5)KOLM 360 a AtZ0». Sorarere 
PUT EDIT (TITLE)(A(20)) PAGEy. KOLM 390 - - pe 
PUT EDIT (* A'yIS," SAMPLE TEST WAS REQUESTED.")(SKIP(3)2A(2)y KOLM 400 isis eee 7* OUTPUT SAMPLES. DECISION +/KOLM1680 
FIZ) ,AC 27) Dye KOLM 410 THEN KOLM1690 
IF SW=O AND IS=2 AND IR=1 KOLM 420 Ko eras 
THEN DO,. KOLM 430 a DDy. KOLM1710 
PUT SO ee ey toe Regus Ueeviove DATA FOR A TWO maa Pee pe PUT EDIT(* THE HYPOTHESIS THAT THE TWO SAMPLES ARE FROM THE "y KOLM1720 
ete ° ’ ’ re OctaaeG + SAME POPULATION CAN BE REJECTED WITH (ASYMPTOTIC) *y KOLM1730 
nantes eer ' PROBABILITY OF BEING INCORRECT OF*',Py*. THE STATISTIC Z *KOLM1740 
ae te ROLMA 206 o'IS %pZ," FOR THESE SAMPLES.*) (SKIP(3),A(50),A(50) sSKIP, KOLM1750 
a ee berate: A(34) oF (693) yAULB) AC3) pEC 1294) pALLOD Doe KOLM1760 
=ly. GO TO S100,. KOLM1770 
IF IR=O /* NO. OF SAMPLES DECISION */KOLM 500 ENG COLMATA0 
THEN IF IS GE 1 : KOLM 510 ms KOLM1790 
THEN GO TO S140. KOLM 520 PALL a6D 
ELSE /* NO. OF SAMPLES WRONG */KOLM 530 bas PaLATaio 
$3006 ane ae as PUT EDIT t* SORTED SAMPLE ONE AS FOLLOWS®)(SKIP(3),A029))9- , KOLM1820 
: i : PUT EDIT ((X(J) DO J=1 TO NDICSKIPy10 F(L0,3))9% KOLM1830 
i aa aL APR ALE LR Mao A ond Re coe che PUT EDIT {* SORTED SAMPLE TWO AS FOLLOWS®)(SKIP(3),A(29))y~. . KOLM1840 
e*RRECTs JOB IGNORED. *)(SKIPCS),A042),A(201) 72 KOLM 570 PUT EDIT ((Y(9) DO J=1 TO M))(SKIP210 F(1093))¢  KOLM1850 
$40. KOLM 580 ™ . 
GET EDIT(DAS2,E) CAC4) 9X(75) FULD De KOLM 590 pale $1209. ocuiase 
IF DASH=DAS2 KOLM 600 re “TR DEMEROO 
OE eae Sor pes “Oy. /* READ FIRST SAMPLE */KOLM1890 
Go TO $209 « KOLM 630 DO I=1 TO 509- KOLM1900 
& canoe ROLUceao GET EDIT((D(K) DO-K=L TO 12) ,E)(12 FLO) X(T) ,FULD D9 KOLM1910 
ELSE GO TO S409. KOLM 650 00 J=1 TO 12s. KOLM1920 
ERD a ee IF OJ) = 999999.0 /* CHECK FOR END OF SAMPLE */KOLM1930 
ELSE 1F IFL NEO KOLM 670 THEN GO To S$170¢9.6 ‘ , KOLM1940 
=Nels KOLM195C 
THEN DOy. /* ERROR IN PREVIOUS JOB */KOLM 680 : 
PUT EDIT{*® THIS JOB CALLS FOR THE USE OF A PREVIOUSL*KOLM 690 eH GE 501 7* MAXIMUM SAMPLE SIZE Patio? a 
»*Y READ SAMPLE, AND THE PREVIOUS JOB WAS IGNORE'KOLM 700 THEN S eraoae 
»"D BECAUSE OF ERRORS.*,*JOB IGNORED. +) (SKIP(3), KOLM 710 $150.. a CAEN OSG 
Pe 
om jit42) »AU46) ¥AC20) #SKIPZAL13)2« oor ee PUT EDIT (* SAMPLE SIZE IS TOO LARGE. JOB IGNORED.*)KOLM2000 
END». KOLM 740 (SKIP (3),A(43)) 96 KOLM2010 
ELSE GO TO S180>. KOLM 750 cee ee aeneer 
ze 
ELSE aac pa Us XUN) =D(J)9- /* PLACE SAMPLE IN X */KOLM2040 
PUT EDIT(' FIRST CARD IN JOB DECK (JOB CONTROL CARD) IS INCORR*KOLM 780 et een PaEMDOES 
o "ECT.*) (SKIP(3),A(52) ALG) 90 KOLM 790 aor ND1- Pataaore 
Ot Oe s0 xe bebe hneate PUT EDIT(* THE SIZE OF SAMPLE 1 IS*yNy%e*)(SKIP(3)9A(24) 9F(4)9ACL)) KOLM2080 
END». KOLM 810 KOLM2090 
$5000 Phas eet GO TO S50. KOLM2100 
IF IS=2 KOLM 830 $180. KOLM2110 
THEN GO) TO.SEEO 9's peta eta HO, | 7* READ SECOND SAMPLE: */KOLM2120 
ELSE IF IS GT 2 KOLM 850 Ba edo a soe : patuaise 
THEN GO TO S301 KOLM 860 GET EDIT((D(K) DO K=1 TO 12) ,E) (12 FCO) sXCTI FULD Dye KOLM2140 
ELSE GO TO S65. KOLM 870 Bode Gat eOCuaieo 
S60.. : KOLM 880 ° 
IF IS LE 1 /* ONE SAMPLE TEST USING ALL */KOLM 890 hepa abe ase AS CHEER AGON END Gts 2 Anker Orn TG 
THEN DOy. /* DISTRIBUTIONS REQUESTED | +*/KOLM 900 A ees as KoiMoiag 
S694: e petmoe te IF M GE 501 /* MAX SIZE OF SAMPLE */KOLM2190 
DO I=1 TO 5y. KOLM 920 TEN“ EG, Daeusieg 
fueu eo ceca. e setae ane PUT EDIT(* SAMPLE SIZE IS TOO LARGE. JOB IGNORED.*) KOLM2210 
a‘ (SKIP(3),A(43))9- 
END». KOLM 950 epran cee ’ 
PUT EDIT(*® NO PDF COMPARISON IS ASKED FOR.*)(SKIP(3)2AC32))9- KOLM 960 ENE re 7 
S70. KOLM 970 7 a 
pO I=1 TO 5 9. KOLM 980 _ =D(J) 96 /* PLACE SAMPLE IN Y 
IF DIST{Iyl) = 1 KOLM 990 ep vs 
THEN CALL KLMOUX Ny ZePoIyDIST(1,2) DIST (193) Dy KOLMLOOO cise re 
IF ERROR="0" OR ERROR="3! KOLM1OLO oe 
THEN SP ACHLOsG PUT EDIT(* THE SIZE OF SAMPLE 2 IStyMy"~")(SKIP(3)2A(24)9F (4) ,AC1)) 
DOr. /* OUTPUT RESULTS */KOLM1LO30 Stee eke 
PUT EDIT(* THE HYPOTHESIS THAT THE SAMPLE IS FROM A(N)  *KOLM1040 epee ve 
sTITLOL) g* DISTRIBUTION? ) (SKIP(3) ,A(47) ,AC16)¢A(13)) KOLM1050 Br EL ene RV eBR TaN CORT VENDOR Sa nbhe pROGkAn ED 
IF 1 LT 3 /* PREPARE OUTPUT eyeaLniots one (SKIP(2)sCOLUMN(10) 5A) + ja Gu DE ERDECDUR EGE 
THEN DOs. KOLM1080 ve . , 
$2. =DIST( 193) **2y. KOLM1090 
PUT EDIT(* WITH MEAN'yDIST(1,2)," AND VARIANCE*,S2) KOLM1100 
(SKIP yAC1O) pF( 1394) 9 ACL3) pFULS 24) Dye KOLM1110 | 
GO TO S809. KOLM1120 
ENise KOLM1130 TRIPLE EXPONENTIAL SMOOTHING EXPN 
ELSE IF I=3 KOLM1140 
THEN DOs. KOLM1150 
$2. =DIST(192)-DIST(193)9 KOLM1160 bl t 
PUT EDIT(* WITH MEAN*,DIST(192)>" AND FIRST *y KOLM1170 : nt4 
*QUARTILE' 9S2) (SKIP,AC10),FC139%)sAC11), | KOLM1180 Problem Descrip 100 
ALB) 9F(13 94) )¢5 KOLM1190 . 
GO TO S80y. KOLM1200 cae _ . | a : i the — 
END; KOLM1210 P ; Z ‘ 
ELSE IF I LE 4 , | ~ KOLM1220 Given a time series X, a smoothing constant, and 
‘THEN DOy. t 3 KOLM1230 Sak ieee me i 
a PUT EDIT{* IN THE INTERVAL" ,DIST(T,2)s* TO*KOLM1240 three coefficients of the prediction equation, this 
sDIST(1,3)'y* INCLUSIVE }({SKIPyAC16)y | KOLM1250 
F(13 94) pAC3) pFCL3 94), A010) ) 96 KOLML260 * * * 
beeen ae 7 ‘ eee sample program finds the triple exponentially. 


smoothed series S of the time series X. 


Appendix B--Sample Program--Triple Exponential Smoothing 291 


Program — 
- Description 


The sample program for triple exponential smooth- 
ing consists of the main program, named EXPN, a 
special input routine, named DATS, and one sub- 
routine from the Scientific Subroutine Package: 
EXSM. 


Capacity 


The capacity of the sample program and the format 
required for data input have been set up as follows: 


(12F (6, 0)) format for input data cards. There- 


fore, if a problem satisfies the above conditions, 


the sample program need not be modified. How- 
ever, if input data cards are prepared using a 
different format, the input format in the input 
routine DAT3 must be modified. The general 
rules for program modification are described 
later. 


Input 
Control Card 


One control card is required for each problem and 
is read by the main program, EXPN. This card is 
prepared as follows: 


Columns Contents For Sample Problem 

1-6 Problem number 
(may be alpha- 
meric) 

7-10 Number of data 0038 

points in a given 

time series 

Smoothing constant, 0.1 

a (0.0 <a<1,.0) 

First coefficient | 0.0 

(A) of the predic- 

tion equation 

Second coefficient 0.0 

(B) of the predic- — 

tion equation 

Third coefficient (C) 0.0 

of the prediction 

equation 


| SAMPLE 


11-15 


16-25 
— 26-35 


36-45 


Smoothing constant and three coefficients must be 
Cy Saes with decimal points. 


Leading zeros do not have to be keypunched. 


Data Cards 


‘Time series data are keypunched using the format 
— (12 F(6, 0)). 


This format assumes that each data 
point is keypunched in a six-column field, with 
twelve fields per card. 

Data Setup 


The deck setup is shown in Figure 35. 






Last problem 





Control 
Card 


Second problem 





First problem 


Procedures and main program 


Figure 35. 


Sample 


The listing of input cards for the sample problem is 


_ Shown in Figure 36. _ 





Figure 36, 


Output 


Description 


The output of the sample program for triple expo- 
-nential smoothing includes: — 


1. Original and updated coefficients — 
2, Time series as input and triple exponentially 
smoothed time series 
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Sample Timing 





The output listing for the sample problem is shown The execution of this sample program on a System/360 


in Figure 37. Model 40, using a 2540 Card Reader as input and a 
1403 Printer, Model N1, as output, is 33 seconds. 


TRIPLE EXPONENTIAL SMOCTHING.»ee« SAMPLE 


NUMBES CF DATA POINTS 28 
SMCOTHING CCNSTANT C.1CC 








EXPNe. - EXPN 

CQEFFICIENTS A a C VETTEL TSS PR CCC TC CLCCL COSC OSC SCOCCSCSCSC$ECLOOT SLOSS OSES PSS SCS SS SS tse s s Wa a). 

/* */ EXPN 

ORIGINAL c.ccoce c.coooc C.00600 /* TO READ THE PROBLEM PARAMETER CARD AND A TIME SERIES, CALL */EXPN 

1% THE PROCEDURE EXSM TO SMOGTH THE TIME SERIES, AND PRINT THE */EXPN 

UPDATE 484.8C1L7E 1.71309 C.C4166 /* RESULT. */ EXPN 

/* */EXPN 

TER RR HE A A Re a ea a A ee a Re a a ee he a a Rh ek kK ee OK KK / EX PN 

SMOOTHED DATA PROCEDURE OPTIONS (MAIN)y. EXPN 

INPUT DATA (FOFECAST) DECLAFE EXPN 

£3C.CCOCC 420.0000 (AgRyCyAL) FLOAT BINARY, EXPN 

426.CCCOCC 426.CCLOG (1, NX) EXPN 

422.E°0OCC 422.cC0CC FIXED BINARY, EXPN 

415.CCCCC —418.00c00 ERROR EXTERNAL CHARACTER(1), EXPN 

414.°C0°C 414.29980 CH CHARACTER (80)¢ EXPN 

413.°CCCC 410.23950 PRL CHARACTER (6)9. EXPN 

412.CCCCC 407.08960 /* */ EXPN 

4C9.COOFE 404.66797 ON ENDFILE (SYSIN) GO TO EXITy. EXPN 

411.0CCCC 402.22363 $100. EXPN 

417.000 461225049 GET EDIT (CH) (A(B0))4. /* READ PROBLEM PARAMETER CARD */EXPN 

422.CCCOC 402.64575 GET STRING (CH) EDIT (PR1yNXyALeAyB oC) EXPN 

420.080CC 405.61621 CAC6) FC4)5F 0590) 93 FULGsC)) 9. EXPN 

438.C0°CC 41C.71338 */ EXPN 

441 .CCOCC 417246948 PR1l...+ePROBLEM NUMBER (MAY BE ALPHAMERIC) EXPN 

447600006 423.99829 NXeeeeeeNUMBER GF DATA POINTS IN TIME SERIES */ EXPN 

455-.CCCOC 431.18286 ALeeeee eSMOOTHING CONSTANT */ EXPN 

461.CCCCC 439.43359 AyB,C..eCOEFFICIENTS OF THE PREDICTION EQUATION */ EXPN 

4E3.fCCCC 447.87866 */ EXPN 

443.0090 452221558 PUT EDIT (*TRIPLE EXPONENTIAL SMOOTHING. coee' PRI) (PAGEySKIP(4), EXPN 

649.0CCEC 454.10522 COLUMNO LO) sAvA)y~ | EXPN 

4554.CCCOC 455.8C713 PUT EDIT ("NUMBER OF DATA POINTS'»NX) (SKIP(2),COLUMN(10)_A,F(6))—9~6 EXPN 

463.CCOCS 458.54614 PUT EDIT ("SMOOTHING CONSTANT',AL) (SKIP_yCOLUMN( LO) »A9FU9,3) Dee EXPN 

47.C60CC 463.3C518 /* */EXPN 

472 .CCCCE 469.66445 /* PRINT ORIGINAL COEFFICIENTS */ EXPN 

4T6.0CO°C 474.0952) /* */ EXPN 

481. COCCC 479.11035 PUT EDIT € *CCEFFICIENTS',*A%,*B*,"Ct) (SKIP(2),COLUMN( 10) 9AyX49)9Ay EXPN 

483 .CCCC 484.,38623 XO14) AeXC1L4) Alege , . EXPN 

GBTeCCOLG 486.94629 PUT EDIT (C'ORIGINAL' yAyB9C) (SKIP(2) ,COLUMN( 10) ¢A,F (1995), EXPN 

461.CCCCC 493.50854 2 FUL5 a5) Doe EXPN 

492-.0CACC 498.05444 ONE ee ‘ EXPN 

485.CCCCC 501.66992 BEGIN». EXPN 

466.CCCOC 5€2.12549 DECLARE EXPN 

482.CC0CC 502.44434 (XONX) »SONX)) FLOAT BINARY». EXPN 

479.CCCCC 501.16724 CALL DAT3 (NXeX)e6 /* READ TIME SERIES DATA. */ EXPN 

47E.CCOCE 498.92749 CALL EXSM (XeNXpALyAyBeCoS) 9 EXPN 

476.CCACC 496.84155 IF ERROR NE ‘0! EXPN 

472.CC00CC 494.CC806 THEN DO,. . EXPN 

4TS.CCCLC 490230420 PUT EDIT (*IN ROUTINE EXSM ERROR CODE = ',ERROR) EXPN 

(SKIP(2) yCOLUMN(10),AyAC1) Dye EXPN 

GU TO S10C,y. EXPN 

- END 9. EXPN 

Figure 37. | | PTESON 

PRINT UPDATED COEFFICIENTS */ EXPN 

aes . */ EXPN 

Program Modifications PUT EDIT (*UPDATE'sAy89C) (SKIP(2) sCOLUMN(10) pApFU2095)» EXPN 

2 FUL5s5))—. EXPN 

*/7EXPN 

PRINT INPUT AND SMOOTHED DATA */ EXPN 

° As */ EXPN 

Input data in a different format can also be handled PUT EDIT (*SMOOTHED DATA',*INPUT DATAt ,* (FORECAST)! ) EXPN 

Sas 4 (SKIP (3) yCOLUMN(39) sAgSKIPyCOLUMN(17)59AeX€13) 9A) 9 EXPN 

by providing a different format statement. In order PUT EDIT ((X(1)_S{1) DO T= 1 TO NX)) (SKEPeCOLUMN(LO)+F(1715)>% EXPN 

= ak 9 sine X(8),F(1595) Dye EXPN 

to familiarize the user with the program modifica- ENDre | EXPN 
= 9@e 

1 i 1 7 ExIT.. EXPN 

tion, the following general rules are supplied m PUT FILE (SYSPFINT) EDIT (*END OF SAMPLE PROGRAM®) EXPN 


(SKIPC5),COLUMN(10) ,A),. EXPN 
END,. /*END OF PROCEDURE EXPN */ EXPN 


terms of the sample problem. | 
Changes in the input format statement of the 
input routine DATS. 





Only the format statement and the variables DAT3.. DAT3 

f Fe é ‘ ri : TR RKB KH RH RK HE I RI a a RR a OK a ae eK KK DATS 

per card count indicator (NF), which appears | TO READ A VECTOR OF Sore POINT DATA DES 
in subroutine DATS, can be changed, Since Ce iciuctnd deste aes ene 
sample data are three-digit numbers, rather bectate DATS 
e e ° : = : CH CHARACTERI SC), : DAT3 

than using six-column fields, as in the sample (fsMoNe Ml oN) ont 
problem, each data point might have been key- = PEO ERDE YP LNBEY ae | eat 
punched in By three-column field, with 94 fields serie THE NUMBER OF DATA POINTS PER 80 COLUMNS OF A DATA tala 
< ? */DAT3 

per card. If so, the format is changed to | ON ENDEILE (SYSIN) | ars 
(24 F(3,0)) and the variables per card count in- _ eae ee | OAT 
dicator (NF) is changed to agree with the number ae aie DATA 
of variables per data card. THEN NZ =My. DATS 
; GET EDIT (CH) (AB8C));5. z DAT3 

GET STRING (CH) EDIT ((D(1) DO T= Nl TG N2)) COND F(690))>. DAT3 

oe ; ; NL =N2+1y. tad 
Operating Instructions een aie ae 


N2 =N2+Nqee DAT3 
GO TN $10,. OAT3 
ENDs. DAT3 
REVERT ENOFILE (SYSIN)». DAT3 
RETURN,. . DAT3 


ing is a standard PL/I program. Special operating EXIT. « ae 


The sample program for triple exponential smooth- 


PUT FILE (SYSPRINT) EDIT (*ERROR INSUFFICIENT DATA*) DAT3 

(SKIP{1),COLUMN(10) sA),_. DAT3 
STOP,. DAT3 
END»). /*END OF PROCEDURE DAT3 */DAT3 


instructions are not required. Data set SYSIN is 
used for input; data set SYSPRINT, for output. 
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ALLOCATION OF OVERHEAD COSTS (COST) 
Problem Description © 


A standard problem in finance is the allocation of 
overhead costs (for example, electricity, transpor- 
_ tation, ...) to productive (charge) departments. 
Overhead costs are initially charged to auxiliary 
departments, The costs of the auxiliary depart- 
ments must be distributed among the productive 
‘departments using a given allocation key. For any 
auxiliary department the allocation key gives the 
distribution of unit costs among all departments 

| ‘(productive and auxiliary). 

The problem is to calculate a transition matrix 
that can be used to obtain the final cost allocation 
to productive departments (by multiplying it with 
the given cost vector). 


Mathematical Background 


The calculation procedure is best described using 
matrix notation. 

Let n be the number of auxiliary departments 
and m the number of productive departments. 

The given allocation keys form a matrix K of 
dimension n+m by n, where the i-th column gives 
the distribution of unit costs of the i-th auxiliary 
department among all m+n departments. 


| n-columns 

| R n-rows 

aa (5 ) m-rows oe 
K (given) is segmented into two parts, R and §, 

R is of dimension n by n and S of dimension m 
by n. R contains the allocation keys for charging 
auxiliary departments by an auxiliary department, 
while S contains the allocation keys for charging 
productive departments by an auxiliary department. 

If Ris null, Sis already the required transition | 
matrix. 

Note that all elements of K are nonnegative and 
_ that the sum of all elements in any column is one. 

Let C be the vector of dimension n+m containing 
the costs of auxiliary departments (first n elements) 
and the costs of productive departments (last m 
elements): 


see. . 8 


Distributing overhead costs CA according to allo- 
cation key K gives a new vector 


CA, CA, =R.CA 
C.= with (3) 


CP, _ CP, =8 CA t CP 


and by iteration 


C C =RC =R .CA . 
cal “ia * (3) 


k 
k CP. S CA + CP 1 


A realistic allocation key requires each auxiliary de- 
partment to allot part of its costs to productive de- 
partments. 

Under this assumption for the elements La of R. 


Osr, Sa<1 for alli= 1,2, es Cl 


k= 1,2, 2.50 (4) 


we 


ry, << for allk=1,2,...,n (5) 


II 


i=1 


' | 
This means R ~0 fork ~ ~ and I-R is nonsingular, 
Therefore, iteration (3) will give the allocation 


of costs C to productive departments. 


One step is sufficient if R = 0 (when no auxiliary 
department is ea an aiiaued department 


again). 
The process (3) is easily iecéatned in matrix 


notation: 
(tek. ae _ {RR O/, _ {R 0O\ «A 
oy26 o,- (Bg (2. g 
Therefore: 
lim R 0O a 
kao. S | ~~ 


lim re 7 a: 0 0\ | 
k+e \SRt...+R) 1/ > \r 1). 


' defines the desired transition matrix T, which will 


give the final cost allocation with a single matrix 
multiplication: 7 


T=lim Ss° (FRE. +R" ) =S- (IR) 


k 40 
The rows of T may be calculated one at a time from 


Tloary tT. gh oar lay 
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Programming Considerations 


Calculation of T is done in two major steps: 

1. The matrix (I-R)t is factored into a product 
of two triangular matrices L +» U = (I-R)T, 

2. The column vectors of S” (that is, row vec— 
tors of S) are divided by the triangular factors L and 
U. 

Doing the second step sequentially, one column 
at a time, saves considerable storage space, since 
the only data needed in core simultaneously is an 
n by n matrix, containing (I-R)!, the triangular 
factors L and U, and a vector of dimension n. This 
allows calculation of the transition matrix T, which 
allocates overhead costs, for a very large number | 
of charge departments, as long as the number of 
auxiliary departments is of moderate size. 


Program 
The program for allocation of overhead costs con- 


sists of the main program, COST, and two proce- 
dures from the Scientific Subroutine Package: 


MFG -- triangular factorization of a general 
| matrix | 
MDLG-- division by triangular factors from left- 
hand side | | 


Capacity 


The limitation on the number of auxiliary depart- 
ments depends on the size of storage available for 
data. The number of productive departments is 
not limited by core size. _ 

Dynamic storage allocation is used for data ar- 
rays with extent nt+1 by n. 


Input 


One control card is required for each data set. 
' This card is prepared as follows: 


- Columns Contents © For Sample Problem 
1-10 Problem number HILBERT 
(may be alpha- 
meric) : 
11-15 Number of auxil- «6 
iary departments 
16-20 Number of pro- | 


ductive departments — 


, Leading zeros do not have to be keypunched. 





Data Cards 


The rows of matrix K = @ are read into the com- 
puter one at a time. : 
The elements are keypunched in successive 


cards, assuming six 10-column fields per card. 


These fields are 11-20, 21-30, 31-40, 41-50, 51-60, 
61-70. Columns 1-4 are used for identification of 
the row. Each row must start with a new card. An 
input format of F(10, 8) is used for the ten-column 
fields. | 

Deck setup is shown in Figure 38. 


Control 
Card 


Last problem 





First problem 


.Figure 38, 


Sample 


A listing of input cards for the sample problem is 
shown in Figure 39. 


00 341417430. 247540110.207916310.185625310.171199560.16104686 
0.170708710. 165026720. 155937250. 148500200.142666220. 13804018 | 
0. 1138057 70.123770050. 124749770. 123750150.122285360.12078517 
0.08 5354320. 099016010. 103958120. 106071590. 106999690.10736459 
0. 0682834 30.082513330.089106970.092812650.095110830.09662812 


0. 056902890. 070725730.077968590. 082500100.085599720. 08784371 


0. 048773910 .061885020. 069305410.074250100.077817910. 08052343 
' 0.042677180. 055008910. 0623 74890. 067500050. 071333110.07432931 
, 02037935260. 0495 08000. 056704450.0618 75090.065 845960. 06902003 
0.034141 730. 045007280.051979080. 05 7115480.061142670. 06441873 





Figure 39. 


Output 


As output, the resulting transition matrix T is 
listed rowwise. 
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Sample 


The output listing for the.sample problem is Bnowa 
in Figure 40. 


BCCI RGI oI IOICIO Ra taki ai ai i a gaa i aka ik atic ie gee a 
* * 
% : ALLOCATION OF OVERHE4D COSTS * 
* * 
SRO RO iG i iotola tok to aii ao gO ok ai ke ak ae a ici eke ii oie 


PROSLEM = HILBERT 


NUMBER OF AUXILIARY DEPARTMENTS 


NUMBER OF PRODUCTIVE DEPARTMENTS 


RESULTANT ERROR INDICATOR WITHIN PROCEDURE MFG ERROR =0 


2.9081767RE-O1, 2.89823174E-C1 2-88 753211E-Cl 2¢87737966E-01 2.86899385E-O1 22859702 71E-O1 


2.59813845F-O1 2-59676158E-01 2e59507656E-Cl 2259332657E-O1 2e591L61L770E-O1 2.5899 8632E-01 


2-34915495E-01 2235311449E-01 2.2573333CE-O1 2-3613C297E-01 2.364909C5E~C1 2-36814141E-01 


2-14453995E-01 221519C649E-Cl 2.150C6935E-C 1k 2-167997T96E-01 2.17539072E-OL1 2.18217134F-01 





Figure 40, 


Program Modifications ae 





COST 


Do Io aaa Rai i ito Gt Oi Roi aoa a ao ima a dak tit iit 7 COST 


Input data in a different format can be handled by 


ALLOCATION OF OVERHEAD COSTS 


*/COST 
*/COST 
*/COST 


GF RRR HRM ER EE KK RH RH RI RH RR RR RK RE RHEE RES COST 


providing different formats in corresponding GET PROCE 


DURE OPTIONS( MAIN)». 


DECLARE 


EDIT statements. 


Error Messages 





ON EN 
START. 
EPS 
The value of the error indicator as set by procedure aaa 
MFG is included in the listing: PUT E 


ERROR ='O' means successful factorization. 

ERROR ='P' means incorrect value N. 

ERROR = 'S! means incorrect data matrix R. | PUT E 

oO (I-R) is singular, ~~ 

ERROR ='C' means (I-R) is nearly singular. To 
avoid a breakdown ofthe method, in- 
put data has been slightly modified. 

ERROR ='W'! means (I-R) is nearly singular. 
Results may have poor accuracy. 

In the case ERROR = 'S', calculation is bypassed. 


Operating Instructions 


The sample program for overhead cost allocation | 
is a standard PL/I procedure, Special operating in- 
structions are not required, Data set SYSIN is used 
for input; and data set SYSPRINT, for output. 


Timing 





The execution time of this sample program ona 
System/360 Model 40, using a 2540 Card Reader and 
a 1403 Printer, Model N2, as output, is 19 seconds. 


ERROR EXTERNAL CHARACTER( 1), /*EXTERNAL ERROR INDICATOR 
(CNRyCHNFE) CHARACTER(1LC)» 

CH CHARACTER(1), 

EPS BINARY FLOAT, 

(Te INDyKylb yMyNQ) 

BINARY FIXED»). 


cost 
cOSsT 
*/COST 
cost 
COST 
cast 
cast 
cost 
cost 


*/COST 
cost 
*/COST 
cost 


DFILE (SYSIN) GO TO BACK. ; 

: /*SET EPS FOR INTERNAL TEST FOR*/COST 
=1E-6,. /*LOSS OF SIGNIFICANT DIGITS 
DIT 
(CNRyN My CH) /*REAO NUMBER OF COLUMNS,» ROWS 
CACLONSFU5) sFU5) 9 X1590, AC1)),. 
DIT /*WRITE HEADING 


LSE EASEAS SETS TE RTAL ES EEE ER SS ETRE ES OPES TSE EET 
t* *t, 
t& ALLOCATION OF OVERHEAD costs xt, 
tx RI, 
VKKdEAMERE CEES ERR CER ROR RS REDESRARS OKOERGEERES OY} 
(PAGE, SKIP( 2) 405) (X(30) eAySKIP) Dy. 
DIT 
("PROBLEM =",CNR,*NUMBER OF AUXILIARY DEPARTMENTS ='.N, 
*NUMBEP GF PRODUCTIVE DEPAPTMENTS = 4M) 
CSKIP(2)9X030) sAyAg (2) (SKIP(2),X(30) eAsFI5)))5. 
BEGINe. 
OECLARE 

(RONgN) gSEN1)» 

WON) DEFINED S(1SUB,1)) 


*/COST 
cost 
COST 
cost 
COST 
COST 
COST 
cost 
cost 
cost 
COST 

cost 
cnst 
COST 
COST - 


BINARY FLOAT, /*SINGLE PRECISION VERSION /*S*/COST 
BINARY FLOAT(53), /7*DOUBLE PRECISION VERSION /*D*/COST. 


IPER(N) 

BINARY FIXED,. 

ZBloe /*CALCULATE VALUES FOR INPUT 
=Noe 7*FORMAT LIST 

DO WHILE (L GT 6),. 

t =L- 69-6 


cost 

cost 
*/COST 4 
*/COST 

cost 

- COST 


IND =IND+l,. _ ¢*IND MEANS THE NUMBER OF CARDS*/COST 


END». ' /*FOR ONE ROW OF R 


*/COST- 


=(6-L)*10,. /*L SPECIFIES HORIZONT. SPACING*/COST 


00 I =1 TO Ny. /*EXECUTE LOOP OVER ROWS OF R 
GET EDIT /*READ I-TH ROW OF MATRIX R 
(CHNR yw) 
(A(10),CIND)(0(6)F010.8),X(120)))56 
GET EDIT 7*HORIZONTAL SPACING 
(CNR) 


CX(LIZACION) o- : 
WET) =Ww(T)—-1ly. /*COMPUTE TRANSPOSED (U-R) 
RC*,T) =—Wye. /*WHERE U MEANS UNIT MATRIX 
ENDy. . 
CALL MFGCR,IPERyNyEPS),. /*CALL FACTORIZATION PROCEDURE 
PUT EOIT /*ARITE ERROR INOICATOR OF MFG 
C*RESULTANT ERROR INDICATOR WITHIN PROCEDURE MFG*, 
TERFOR ="gERROR) (SKIPC399X€10) 9AyX010)9AsA) 4 « 
00 I =1 TO Mee /*EXECUTE LOOP OVER ROWS OF S 
GET EDIT “*READ ANY sun OF MATRIX S$ 
(CHNR yw) 
Seed OENOUCN EU ORO TEMPE Cena ae ® 
GET EDIT 
(CNR) 
(XCLDLACICI Dee 
IF ERROR NE 'S* 
THEN O07. /*PERFORM MATREX DIVISION 
CALL MDLG(RySyIPERaNolBe O")y 
PUT EDIT /*WRITE ALLOCATION ROW 
(CHNR,» WwW) 


ENDy. 
END,. 
END». 


GO TO START+:. 


BACK... 
ENDs. 
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/*END OF PROCEDURE COST 


*/COST 
*/COST 
COST 
cost 
*/COST 
cost § 
COST 
*/COST 
*/COST 
COST 
*/COST 
*/COST 
cost 
COST 
*/COST 
*/COST 
COST: 
COST 
COST. 
cast 
cost 
COST 
*/COST. 
‘COST 
*/COST- 
COST 


(SKIPC2) 9X03) 9 Ay X05) 9 CINDI C(O) ECL 77 8) 9 XC18)) Doe cost 730 


COST 740 
COST. 750 
COST 766 
COST/770 
OST. 780 
*/COST 79 
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